ID nicht gefunden nach last_insert_rowid()

[EdAdvokat]

ich habe nun nach den Hinweisen von Stephan den Code verändert:

Delphi-Quellcode:

qMain.Params.Clear;
      qMain.SQL.Text:='SELECT * FROM KONTAKTE';
      //qMain.SQL.Text := 'SELECT LAST_INSERT_ROWID() AS ID FROM KONTAKTE';
      qMain.Open;
      if qMain.RecordCount >0 then begin
      currentID := qMain.FieldByName('ID').AsString;
      end else begin
      MessageDlg('LAST_INSERT_ROWID() liefert kein Ergebnis.',mtError,[mbok],0);
      end;
      qMain.Close;

Nun wird der neue Datensatz mit einer ID=1 ausgewiesen darbestellt. Nach Neuaufruf des Programms jedoch mit der entsprechenden ID der DB. Nun ist jedoch diese Funktion LAST_INSERT_ROWID() AS ID FROM KONTAKTE raus.Kann das so bleiben oder ist das eher Stückwerk?
Ich möchte das Programm möglichst so schreiben, dass ich es als Muster zum Lernen verwende und da sollte möglichst alles stimmen.

[nahpets]

Du liest nun im SQL alle Datensätze der Tabelle Kontakte und bekommst am Anfang den ersten Datensatz und der hat die ID 1.

Das hat aber nichts mit dem zu tuen, was Du erreichen möchtest. Du möchtest doch die ID des zuletzt eingefügten Datensatzes. Also musst Du auch die letzte ID lesen und das geht mit:

Delphi-Quellcode:

qMain.SQL.Text := 'SELECT LAST_INSERT_ROWID()';
qMain.Open;
if qMain.RecordCount > 0 then begin

[EdAdvokat]

Stephan, wenn ich das so einfüge, wie Du geschrieben hast kommt eine Exception:

Zitat:

[0x0005]:Operation wir nicht unterstützt

So kann man wohl den letzten INSERT-Datensatz nicht abfragen.

[nahpets]

Einen hätt' ich noch:

Delphi-Quellcode:

qMain.SQL.Text := 'SELECT max(ID) as ID from KONTAKTE';
qMain.Open;
if qMain.RecordCount > 0 then begin
  currentID := qMain.Fields[0].AsString;