Subject | User name required error message |
---|---|
Author | Anthony Ison |
Post date | 2004-09-16T07:37:16Z |
Hi all,
I am attempting to port an app from Interbase to Firebird. It has
relied on Local connections to this stage and I have just changed these
to be TCP/IP so that it can actually use it... I think this is related
to something I read about SuperServer not supporting IPC?
Anyway, everything has been moving ahead well. However I have run
aground with this code:
try
with IB_Connection do
begin
connected := false;
DatabaseName := inDatabasename;
username := fUserName;
password := fPassword;
Protocol := cpTCP_IP;
connected := true;
end;
IB_Transaction.starttransaction;
try
try
with qryExecuteSQLFile do
begin
sql.clear;
sql.LoadFromFile(sqlfilename);
execute;
end;
except
if IB_Transaction.intransaction then
IB_Transaction.rollback;
raise;
end; //try..except for transaction.rollback;
finally
if IB_Transaction.intransaction then
IB_Transaction.commit;
end; //try..finally for transaction.commit;
finally
IB_Connection.connected := false;
end; //try..finally for IB_Connection.connected := false;
This code appears to run fine on Interbase. I am running Interbase and
Firebird side by side at the moment. So, I shut down Interbase, start
up Firebird and run the app... A database and sql file is created and
then I run the above code to connect to the new database and build the
required metadata. I'm not sure what I have missed. The username and
password is set up.
Any ideas on what I am doing wrong??
Cheers.
Anthony
"The sublimity of wisdom is to do those things living that are desired
when dying."
I am attempting to port an app from Interbase to Firebird. It has
relied on Local connections to this stage and I have just changed these
to be TCP/IP so that it can actually use it... I think this is related
to something I read about SuperServer not supporting IPC?
Anyway, everything has been moving ahead well. However I have run
aground with this code:
try
with IB_Connection do
begin
connected := false;
DatabaseName := inDatabasename;
username := fUserName;
password := fPassword;
Protocol := cpTCP_IP;
connected := true;
end;
IB_Transaction.starttransaction;
try
try
with qryExecuteSQLFile do
begin
sql.clear;
sql.LoadFromFile(sqlfilename);
execute;
end;
except
if IB_Transaction.intransaction then
IB_Transaction.rollback;
raise;
end; //try..except for transaction.rollback;
finally
if IB_Transaction.intransaction then
IB_Transaction.commit;
end; //try..finally for transaction.commit;
finally
IB_Connection.connected := false;
end; //try..finally for IB_Connection.connected := false;
This code appears to run fine on Interbase. I am running Interbase and
Firebird side by side at the moment. So, I shut down Interbase, start
up Firebird and run the app... A database and sql file is created and
then I run the above code to connect to the new database and build the
required metadata. I'm not sure what I have missed. The username and
password is set up.
Any ideas on what I am doing wrong??
Cheers.
Anthony
"The sublimity of wisdom is to do those things living that are desired
when dying."