Hallo,
ich möchte die letzte eingefügte ID auslesen, aber ich scheitere an der Syntax und brauche Hilfe. Hier mein Code:
Delphi-Quellcode:
procedure TForm2.InsertNewJob();
begin
Form1.SQLQuery1.Close;
Form1.SQLQuery1.SQL.Text := 'INSERT INTO tbmain VALUES(NULL, :title, :start, :ende, :memo, :fk_category_id, NULL, NULL, :fk_status_id, NULL)';
Form1.SQLQuery1.ParamByName('title').AsString := TitleEdit.Text;
Form1.SQLQuery1.ParamByName('start').AsDateTime := StartDateEdit.Date;
Form1.SQLQuery1.ParamByName('ende').AsDateTime := EndeDateEdit.Date;
Form1.SQLQuery1.ParamByName('memo').AsString := Memo.Text;
Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex]);
Form1.SQLQuery1.ParamByName('fk_status_id').AsInteger := 1;
Form1.SQLQuery1.ExecSQL;
Form1.SQLTransaction1.Commit;
// Letze id auslesen
Form1.SQLQuery1.Close;
Form1.SQLQuery1.SQL.Text := 'SELECT last_insert_rowid() FROM tbmain';
Form1.SQLQuery1.Open;
showmessage(inttostr(last_insert_rowid())); // funktioniert nicht
end;
Nun an welcher Stelle und vor allem wie lese ich diese aus?