1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| begin
baseName:='d:\Developpements\bank\data\bank.fdb';
StringSQL:=SplitString(lazarusResources.Find('SQLCreateBankDB').value, ';');
UIBBank.DatabaseName:=baseName;
UIBBank.UserName:='SYSDBA';
UIBbank.PassWord:='masterkey';
UIBBank.LibraryName:='d:\Developpements\bank\fbclient.dll';
UIBQueryCreateTable.Transaction:=UIBTransaction;
for i:=0 to StringSQL.Count-1 do
begin
UIBQueryCreateTable.Transaction.StartTransaction;
UIBBank.Connected;
UIBQueryCreateTable.SQL.add(StringSQL[i]);
showmessage(StringSQL[i] + ' ' + IntToStr(i));
UIBQueryCreateTable.Execute;
UIBQueryCreateTable.Close();
end;
StringSQL.free;
end; |
Partager