Subject | Re: [IBO] executing already or not in passive mode |
---|---|
Author | newgen2549 |
Post date | 2007-03-09T02:12:20Z |
Hi Helen,
maybe you can point out what I am doing wrong to get this error? I'm
not sure of why it gives me that error in the IB_process module.
oncreate event of the main form
with dataM.tireserver do
begin
while Connected
do Disconnect;
UserName := 'SYSDBA';
Password := 'newgen';
AutoCommit := true; // False;
// Isolation := tiCommitted;
Connect;
end;
BeforeConnect event TireServer(Tibodatabase)
with TireServer do
if not FileExists('tireman.FDB') then
begin
scTireMan.Execute;
// scCodes.Execute;
// scInsert.Execute;
// scTires.Execute;
end;
this is the script;
/* create database on start up */
SET SQL DIALECT 3;
CREATE DATABASE 'c:\TIRE-MAN-NEW\TireMan.FDB'
USER 'SYSDBA'
PASSWORD 'newgen'
page_size = 4096;
/* UDF functions */
DECLARE EXTERNAL FUNCTION F_BIN_TO_BLOB
CSTRING(261), BLOB
RETURNS PARAMETER 2
ENTRY_POINT 'BinToBlob' MODULE_NAME 'FreeUDFLib.dll';
CREATE DOMAIN T_YESNO AS CHAR(1) DEFAULT 'N' CHECK((VALUE IS NULL) OR
(VALUE IN ('N','Y')));
CREATE DOMAIN T_TRUEFALSE AS CHAR(5) DEFAULT 'TRUE' CHECK((VALUE IS
NULL) OR (VALUE IN ('FALSE','TRUE')));
CREATE DOMAIN T_DATE AS DATE DEFAULT 'NOW' NOT NULL;
CREATE DOMAIN T_DATE2 AS DATE DEFAULT NULL;
CREATE DOMAIN T_CURRENCY AS DECIMAL(10,2) DEFAULT 0.00;
CREATE DOMAIN T_TRACKNO AS VARCHAR (35);
CREATE DOMAIN T_PHONE AS VARCHAR (20);
CREATE EXCEPTION DUP_CODE 'Duplicate Code, Code Already Exist';
COMMIT;
/* table name "Globals" */
/* preferences */
CREATE TABLE GLOBALS (
G_CREATION DATE
, G_STATUS VARCHAR(30)
, G_COUNT INTEGER
, G_TIREKEY SMALLINT
, G_O_TRACK SMALLINT
, G_O_KMMI SMALLINT
, G_H_TRACK SMALLINT
, G_H_KMMI SMALLINT
, G_AIR SMALLINT
, G_THREAD SMALLINT
, G_INVBY SMALLINT
, G_WEIGHT SMALLINT
, G_INVNUM SMALLINT
, G_LOCSELECT SMALLINT
, G_TIRESELECT SMALLINT
, G_TIREDISPLAY SMALLINT
, G_CONAME VARCHAR(50)
, G_COADD1 VARCHAR(50)
, G_COADD2 VARCHAR(50)
, G_COCITY VARCHAR(30)
, G_COPROV VARCHAR(8)
, G_COZIP VARCHAR(10)
, G_COPHONE VARCHAR(15)
, G_COCONTACT VARCHAR( 35 )
, G_COEMAIL VARCHAR( 35 )
);
Commit;
maybe you can point out what I am doing wrong to get this error? I'm
not sure of why it gives me that error in the IB_process module.
oncreate event of the main form
with dataM.tireserver do
begin
while Connected
do Disconnect;
UserName := 'SYSDBA';
Password := 'newgen';
AutoCommit := true; // False;
// Isolation := tiCommitted;
Connect;
end;
BeforeConnect event TireServer(Tibodatabase)
with TireServer do
if not FileExists('tireman.FDB') then
begin
scTireMan.Execute;
// scCodes.Execute;
// scInsert.Execute;
// scTires.Execute;
end;
this is the script;
/* create database on start up */
SET SQL DIALECT 3;
CREATE DATABASE 'c:\TIRE-MAN-NEW\TireMan.FDB'
USER 'SYSDBA'
PASSWORD 'newgen'
page_size = 4096;
/* UDF functions */
DECLARE EXTERNAL FUNCTION F_BIN_TO_BLOB
CSTRING(261), BLOB
RETURNS PARAMETER 2
ENTRY_POINT 'BinToBlob' MODULE_NAME 'FreeUDFLib.dll';
CREATE DOMAIN T_YESNO AS CHAR(1) DEFAULT 'N' CHECK((VALUE IS NULL) OR
(VALUE IN ('N','Y')));
CREATE DOMAIN T_TRUEFALSE AS CHAR(5) DEFAULT 'TRUE' CHECK((VALUE IS
NULL) OR (VALUE IN ('FALSE','TRUE')));
CREATE DOMAIN T_DATE AS DATE DEFAULT 'NOW' NOT NULL;
CREATE DOMAIN T_DATE2 AS DATE DEFAULT NULL;
CREATE DOMAIN T_CURRENCY AS DECIMAL(10,2) DEFAULT 0.00;
CREATE DOMAIN T_TRACKNO AS VARCHAR (35);
CREATE DOMAIN T_PHONE AS VARCHAR (20);
CREATE EXCEPTION DUP_CODE 'Duplicate Code, Code Already Exist';
COMMIT;
/* table name "Globals" */
/* preferences */
CREATE TABLE GLOBALS (
G_CREATION DATE
, G_STATUS VARCHAR(30)
, G_COUNT INTEGER
, G_TIREKEY SMALLINT
, G_O_TRACK SMALLINT
, G_O_KMMI SMALLINT
, G_H_TRACK SMALLINT
, G_H_KMMI SMALLINT
, G_AIR SMALLINT
, G_THREAD SMALLINT
, G_INVBY SMALLINT
, G_WEIGHT SMALLINT
, G_INVNUM SMALLINT
, G_LOCSELECT SMALLINT
, G_TIRESELECT SMALLINT
, G_TIREDISPLAY SMALLINT
, G_CONAME VARCHAR(50)
, G_COADD1 VARCHAR(50)
, G_COADD2 VARCHAR(50)
, G_COCITY VARCHAR(30)
, G_COPROV VARCHAR(8)
, G_COZIP VARCHAR(10)
, G_COPHONE VARCHAR(15)
, G_COCONTACT VARCHAR( 35 )
, G_COEMAIL VARCHAR( 35 )
);
Commit;
--- In IBObjects@yahoogroups.com, Helen Borrie <helebor@...> wrote:
>
> At 10:35 AM 9/03/2007, you wrote:
> >Hi,
> >
> >Would someone know what causes this error from IB_Process. I cannot
> >figure it out.
> >
> >All I have in this application is TIBODatabase and a TIB_script
> >creating a new database.
> >
> >I'm using Delphi6.wit a main form and a datamodule
>
> The script has executed but commit hasn't been called yet when you
> try to re-run it?
>
> Somehow, more info is needed about what the script is doing and at
> what point it excepts.
>
> Helen
>