ID nicht gefunden nach last_insert_rowid()

[EdAdvokat]

Die sqlite3-Tabelle hat foltende Struktur:
CREATE TABLE "Kontakte" ("ID" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL , "Name" VARCHAR(50), "Vorname" VARCHAR(50), "Geb" VARCHAR(12), "Strasse" VARCHAR(70), "Nr" VARCHAR(10), "PLZ" VARCHAR(10),
"Ort" VARCHAR(70), "Tel" VARCHAR(15), "email" VARCHAR(30), "Bemerkung" VARCHAR(80))

Ob sie damit wirklich eine RowID hat kann ich nicht sagen, doch ich gehe davon aus.(woran kann ich das erkennen?)
Zunächst habe ich das Programm mit dbExpress-Komp. geschrieben und an der bewußten Stelle die Exception erhalten. Dann dachte ich das ganze Programm so wie es ist einfach mit den Zeos-Komp. einzurichten und siehe da das hat geklappt.
Er geht ohne wenn und aber über die Hürde hinweg und gibt sofort die entsprechende ID in der ListView aus und alles ist paletti. Mit dbExpress hängt er an der Zeile:
currentID:=qMain.FieldByName('ID').AsString; Er gibt keine ID aus, jedoch nach Neustart des Programms ist der neue Datensatz mit der entsprechenden nächstfolgenden ID gespeichert, als wäre nichts gewesen. Ich will ja nicht aus der Sache eine Haupt- und Staatsaktion machen, doch etwas komisch kommt es mir doch vor, zumal beide Programme bis auf den DB-Zugang gleich sind.
Jetzt habe ich die Zeile in dem dbExpress-Prog. einfach auskommentiert und alles läuft so ganz ok.
Nur eines ist bei beiden Varianten noch blöd: nach einem "bearbeiten" also verändern und UPDATE... ist dann stets nur der veränderte Datensatz im Listview zu sehen. Eigentlich wollte ich alle Datensätze einschließlich den veränderten sehen.
Da bin ich auch noch nicht weiter gekommen.

[nahpets]

Wenn man in 'nem Programm eine Datenmenge hat und z. B. in 'nem Grid anzeigt, so bekommt man dort per Insert, Update ... gemachte Änderungen nicht mit.

Auch über Trigger, Autoincrement ... vergebene Werte bekommt man nicht mit.

Man muss zuerst die Daten neu einlesen.

Da reicht ein Refresh der Datenmenge aus, ein Neustart des Programmes ist da eher suboptimal.

Zeos scheint aber etwas anders zu arbeiten, als andere Datenbankkomponenten.

Es kann sein, das Zeos das im Hintergrund irgendwie (teilweise?) erledigt bekommt.

[EdAdvokat]

Danke zunächst für die Unterstützung.
himitsu, zu deinem Vorschlag, habe es mit dem Code versucht:

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);'#10;
               +'SELECT LAST_INSERT_ROWID() AS ID;';

er bringt an dieser Stelle die Exception: Operator ist auf diesen Operantentyp nicht anwendbar.
Das geht vermutlich so nicht.
Zum "Problem" Anzeige veränderter Datensätze: Im "Zeos-Programm" gibt er einen neu erstellen Datensatz sofort im Listview sichtbar aus, neben den bereits gespeicherten DS. Lediglich beim Verändern eines DS (update) zeigt er den veränderten DS gesondert nur allein.
Wie in #1 zu erkennen habe ich doch ein refresh sowohl nach UPDATE als auch nach INSERT geschrieben.

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

[himitsu]

Entweder die SQL-Komponente versteht es oder es gibt eventuell eine zusätzliche Komponente, welche SQL-Scripte ausführen kann, also mehrere SQL-Statements zusammen.
Getrennt hat er es ja schon, aber eventuell muß last_insert_rowid in der selben Transaktion ausgeführt werden?


Wenn man nicht manuell via SQL-Statement dieses erledigt, sondern über Insert/Append, Edit und Delete von TDataSet, dann bieten viele DB-Komponenten auch ein UpdateRecord und sogar ein AutoUpdate des veränderten Records im DataSet an, wo dann auch die Änderungen von Triggern inbegriffen sind.
Die versuchen dann z.B. ID-Spalte der Tabelle zu erkennen (oder man nennt sie der Komponente), machen dann nach dem TDataSet.Post ein SELECT mit dieser ID (nehmen z.B. das SELECT-Statement und hängen ein WHERE mit dieser ID an) und aktualisieren ihre Daten.

[EdAdvokat]

Zitat:

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

Dashier sind wohl eher zwei Statements:

Hier in dem #1 am Anfang ist doch ein anderer Quelltext der procedure uebernehmen. Dort habe ich doch sowohl nach UPDATE als auch nach INSERT ein refresh eingefügt. War das nicht ausreichend, um die DS nach der Änderung (UPDATE) gemeinsam mit den bestehenden DS anzuzeigen?

[nahpets]

Bitte Quelltext von refreshItems.

Was genau passiert da?

[EdAdvokat]

Hier die Procedure RefeshItmems:

Delphi-Quellcode:

procedure TMainFRM.refreshItems(ID, Name, Vorname, Geb, Strasse, Nr, PLZ, Ort,
  Tel, email, Bemerkung: string);
var
  item: TListItem;
begin
  item:=lv.Items.Add;
  item.Caption:= ID;
  item.SubItems.Add(Name);
  item.SubItems.Add(Vorname);
  item.SubItems.Add(Geb);
  item.SubItems.Add(Strasse);
  item.SubItems.Add(Nr);
  item.SubItems.Add(PLZ);
  item.SubItems.Add(Ort);
  item.SubItems.Add(Tel);
  item.SubItems.Add(email);
  item.SubItems.Add(Bemerkung);
end;

die rufe ich dann nach UPDATE und INSERT auf.
ist das nicht ausreichend?

[nahpets]

Delphi-Quellcode:

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;

Wie ist bei den ZEOS-Komponenten AutoCommit eingestellt?
Ebenso TransactIsolationLevel?

Eventuell gibt es da Abhängigkeiten, die es ZEOS ermöglichen, die Abfrage auf LAST_INSERT_ROWID() auszuführen, während bei anderen Datenbankschnittstellen hier kein Ergebnis geliefert wird.