ID nicht gefunden nach last_insert_rowid()

[nahpets]

himitsu meint (zu recht), dass das SQL abgeändert werden muss:

Delphi-Quellcode:

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

Die globale Funktion liefert die ID auch ohne Angabe einer Tabelle.

Das bei den dbExpress-Prg. genannte Verhalten ist eigentlich eher der Normalfall.

Nach einem Insert muss man den Datensatz lesen, um die dann aktuellen Werte zu erhalten. Das Programm kennt nur die Werte, die es selbst mit dem Insert in die Datenbank schreibt, es kennt aber nicht die Werte, die dann (auf welchem Weg auch immer) von der Datenbank vergeben werden.

Das Lesen geht auch ohne einen Programmneustart.
Man muss halt die Routine, mit der man die Daten beim Programmstart liest, erneut aufrufen oder eine andere Leseroutine implementieren.

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