Hi,
I have a TIBScript object and its works fine. But if i use such as following code, raises an error! ".... TERM". This can be a SET TERM ^ ; or SET TERM ; ^
Is this a bug?
.
.
.
function TbaseDM.DBVarmiKontrolEt(DB: TIBCConnection; Klasor, Adi: String): Boolean;
var
MaxStm: Integer;
begin
Result := False;
if not FileExists(Klasor + '\ + Adi + '.FDB') then begin
if DB = msdb then
MaxStm := msDBCreateScript.Statements.Count
else
MaxStm := SirketDBCreateScript.Statements.Count + SirketDBSabitleri.Statements.Count;
msDlgBaslat('Veritabanı oluşturuluyor ... (' + Adi + ')', msdtIslem, MaxStm); // this functions begins a progressbar
try
DBOlustur(DB, Klasor, Adi);
Result := True;
finally
msDlgBitir; // this function ends progressbar begun above!
end;
end;
end;
.
.
.
procedure TbaseDM.ScriptAfterExecute(Sender: TObject; SQL: string);
begin
msDlgYenile; //increments progressbar each time a statement executed
end;