ID nicht gefunden nach last_insert_rowid()

[nahpets]

Aus dem Quelltext kann ich nicht erkenne, was in refreshItems passiert.

Dashier sind wohl eher zwei Statements:

Delphi-Quellcode:

qMain.SQL.Text:='INSERT INTO KONTAKTE(NAME,VORNAME,GEB,STRASSE,NR,PLZ,ORT,TEL,EMAIL,BEMERKUNG)'
+'values(:NAM,:VNA,:GEB,:STR,:NR,:PLZ,:ORT,:TEL,:EMA,:BEM)';
qMain.ExecSQL;
qMain.SQL.Text:='SELECT LAST_INSERT_ROWID() AS ID'; 
qMain.Open;
currentID:=qMain.FieldByName('ID').AsString;
qMain.Close;