Error creating table URGENT
Posted: 13.05.2010, 18:58
I have an error executing this code on fb (didnt test others):
it connects to the fb .. cause it have 1 client and when i close program (disconnect) 0 clients.
The connection of the components are the zconnection i selected on obj inspector.
NEED THIS URGENT - dead line for project over and i didnt even create a table ....
I cant do anything with this yet ... coulndt even create the demo tables..
Should be the dialect the problem ???
I did create the database with other method (dll call directly) but is ok. but exec commands on zquery or zsqlprocessor no
The sql is on the end.
Can some one help me on this.
error : Acess error 00000 000000..
with ZConnection do
begin
User := ZUername.Text;
Password := ZPassword.Text;
Protocol := 'firebird-2.1';//ZProtocol.Text;
HostName := ZHost.Text;
if ZPort.Text <> '(default)' then
Port := StrToInt(ZPort.Text);
Database := ZDatabase.Text;
Connect;
ZConnection.StartTransaction;
self.ZSQLProcessor2.Execute;
ZConnection.Commit;
end;
create table cargo (
c_id INTEGER not null,
c_dep_id SMALLINT,
c_name CHAR(10),
c_seal SMALLINT,
c_date_came TIMESTAMP,
c_date_out TIMESTAMP,
c_weight FLOAT,
c_width INTEGER,
c_height INTEGER,
c_cost NUMERIC(12,4),
c_attributes BLOB SUB_TYPE TEXT,
primary key (c_id)
);
thanks
it connects to the fb .. cause it have 1 client and when i close program (disconnect) 0 clients.
The connection of the components are the zconnection i selected on obj inspector.
NEED THIS URGENT - dead line for project over and i didnt even create a table ....
I cant do anything with this yet ... coulndt even create the demo tables..
Should be the dialect the problem ???
I did create the database with other method (dll call directly) but is ok. but exec commands on zquery or zsqlprocessor no
The sql is on the end.
Can some one help me on this.
error : Acess error 00000 000000..
with ZConnection do
begin
User := ZUername.Text;
Password := ZPassword.Text;
Protocol := 'firebird-2.1';//ZProtocol.Text;
HostName := ZHost.Text;
if ZPort.Text <> '(default)' then
Port := StrToInt(ZPort.Text);
Database := ZDatabase.Text;
Connect;
ZConnection.StartTransaction;
self.ZSQLProcessor2.Execute;
ZConnection.Commit;
end;
create table cargo (
c_id INTEGER not null,
c_dep_id SMALLINT,
c_name CHAR(10),
c_seal SMALLINT,
c_date_came TIMESTAMP,
c_date_out TIMESTAMP,
c_weight FLOAT,
c_width INTEGER,
c_height INTEGER,
c_cost NUMERIC(12,4),
c_attributes BLOB SUB_TYPE TEXT,
primary key (c_id)
);
thanks