Ich habs mit
MySQL 4 versucht.
Kannst du mehrere Anweisungen in eine reinpacken?
Delphi-Quellcode:
SQLQuery.SQL.Clear;
SQLQuery.SQL.Add ('INSERT INTO tb_test (Datum, Benutzer) VALUES (:Date, :User);');
SQLQuery.SQL.Add ('SELECT LAST_INSERT_ID() AS LID;');
SQLQuery.ParamByName('Date').AsDate := dtDate;
SQLQuery.ParamByName('User').AsString := strUserName;
SQLQuery.Open;
if SQLQuery.RecordCount > 0 then begin
ShowMessage(SQLQuery.FindField('LID').AsString);
end;