That's the creating/opening code. I don't provide any user/password info.
ldelete:=false;
if fileexists(olakase.fdb') then
begin
if (messagedlg('Delete previous data?',mtInformation,[mbOk,mbCancel],0)=mrok) then
ldelete:=true;
end
else
ldelete:=true;
if ldelete then DeleteFile('olakase.fdb');
ibconnection1.hostname:='';
IBConnection1.DatabaseName:= ExtractFilePath(Application.EXEName)+'olakase.fdb';
IBConnection1.CharSet:= 'UTF8';
ibconnection1.Close;
if ldelete then
begin
IBConnection1.CreateDB;
sqltransaction1.StartTransaction;
ibconnection1.ExecuteDirect('CREATE TABLE blinks (recno integer, url varchar(500), pr varchar(2), anchor varchar(200), lang varchar(5), S varchar(1));');
sqltransaction1.Commit;
sqltransaction1.EndTransaction;
end;
sqlquery1.FieldDefs.Add('recno',ftinteger);
sqlquery1.FieldDefs.Add('url',ftstring);
sqlquery1.FieldDefs.Add('pr',ftstring);
sqlquery1.FieldDefs.add('anchor',ftstring);
sqlquery1.FieldDefs.add('lang',ftstring);
sqlquery1.fielddefs.add('S',ftstring);
sqlquery1.sql.text:='select * from blinks;';
sqlquery1.open;
Thank you very much