Hallo zusammen,
ich bin momentan beim umstellen von FibPlus auf FireDAC und jetzt in der Feinabstimmung.
Ich habe mir für die Erleichterung eine kleine ExecSQL Routine geschrieben die für mich inserts und updates übernimmt:
Delphi-Quellcode:
function ExecQuery(
Sql :
String; Database : TADConnection ) : boolean;
var myQuery : TADQuery;
begin
myQuery := TADQuery.Create( Application );
myQuery.Connection := Database;
myQuery.SQL.Text :=
Sql;
myQuery.ExecSQL;
myQuery.Connection.Commit;
// <-- hier dauert es ca 25 mal so lange wie mit FibPlus
myQuery.Free;
end;
An der markierten Stelle dauert es ewig.
Hat jemand eine Idee?
Gruß
Eppos