Einzelnen Beitrag anzeigen

Eppos

Registriert seit: 7. Aug 2006
Ort: Heilbronn
523 Beiträge
 
Delphi 11 Alexandria
 
#26

Re: TQuery function umstellen auf FibPlus

  Alt 1. Aug 2009, 09:36
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?
  Mit Zitat antworten Zitat