id vom letzten insert

[Gollum]

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);