[Lazarus] TjvUIBQuery

Bonsoir,

J'ai un fichier SQL contenant tou ce qui est nécessaire à la création d'un base Firebird. Quand je copie colle ce fichier dans FlameRobin, ca marche.
Par contre avec le composant ca foire toujours :(

Code:

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;

Any idea ?

Thanks