Hallo,
wo ist jetzt das Problem? Ich denke Du willst programmieren? Ein bisschen Abstraktion gehört nun mal zum Geschäft.
Delphi-Quellcode:
function GetLastInsertID(aQry:TADOQuery):Integer;
begin
with aQry
do
begin
Close();
SQL.Text:='
SELECT LAST_INSERT_ID()';
Open();
Result:=Fields[0].AsInteger;
end;
// with aQry
end;
// LastInsertID
Aufgerufen wird die Funktion wie folgt:
Delphi-Quellcode:
var lastId:Integer;
...
...
lastId:=GetLastInsertID(ADOQuery1);