ich habe jetzt eine Funktion geschrieben die wie folgt aussieht
Delphi-Quellcode:
function ExecFibQuery(
Sql :
String; Database : TFibDatabase ) : boolean;
var myQuery : TpFIBQuery;
begin
myQuery := TpFIBQuery.Create( Application );
Result := True;
try
myQuery.Database := Database;
myQuery.SQL.Text :=
Sql;
myQuery.ExecQuery;
myQuery.Transaction.Commit;
Result := True;
except
myQuery.Free;
Result := False;
end;
myQuery.Free;
end;
Das Problem ist nur, wenn ich diese Funktion ausführe, werden
alle OpenQuerys geschlossen und zwar dann, wenn "myQuery.Transaction.Commit"
ausgeführt wird. Weiss jemand warum?