![]() |
Datenbank: MySQL • Version: 5.0.27 • Zugriff über: dbExpress (D2007 f. Win32 Prof R2)
Abfrage nach Last_Insert_ID() funkt. nicht
Ich greife auf meine Datenbank via dbExpress zu, jetzt will ich von einem gerade hinzugefügten Datensatz den Auto Inc.
Wert ermitteln, eigentlich keine große Sache es gibt ja 'SELECT Last_Insert_ID...' nur erhalte ich da jedesmal nur "0". Irgendwie bin ich verwirrt, da es sonst mit Turbo Delphi und dbExpress (Open dbExpress Driver für MySQL 5) immer geklappt hat, genauso wie von Hand in der MySQL Console. Ich habe eine Komponente 'TSQLConnection' auf meinem Hauptformular liegen worüber ich die Verbindung herstelle und egal ob ich jetzt die Komponente TSQLQuery auf meinem Dialog verwende oder das Object zur laufzeit erstelle wie in dem folgenden Auszug aus dem Quelltext ich erhalte immer als Ergebnis "0" was totaler quatsch ist. :gruebel: :wall:
Delphi-Quellcode:
procedure TfrmDialog.btnSaveClick(Sender: TObject);
var SQLQuery : TSQLQuery; begin //init SQLQuery := TSQLQuery.Create(Self); SQLQuery.SQLConnection := frmMain.SQLCon; SQLQuery.SQL.Clear; SQLQuery.SQL.Text := 'INSERT INTO tb_test (Datum, Benutzer) VALUES (:Date, :User)'; SQLQuery.ParamByName('Date').AsDate := dtDate; SQLQuery.ParamByName('User').AsString := strUserName; SQLQuery.ExecSQL; if SQLQuery.RowsAffected > 0 then begin SQLQuery.SQL.Clear; SQLQuery.SQL.Text := 'SELECT LAST_INSERT_ID() AS Last_Insert_ID FROM tb_test LIMIt 1'; SQLQuery.Open; if SQLQuery.RecordCount > 0 then begin ShowMessage(SQLQuery.FindField('Last_Insert_Id').AsString); end; end; //deinit SQLQuery.Close; SQLQuery.Free; end; |
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Gibts SQLQuery.LastAutoIncVal?
|
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Zitat:
|
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Reicht nicht einfach SELECT LAST_INSERT_ID()?
[edit] Grad getestet, als direkte SQL Abfrage.
SQL-Code:
Lieferte mir 25, was stimmt.
insert into customers(name, regid, unlockid, registratorid, added) values('test', 'test', 'test', 0, NULL);
select last_insert_id(); |
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Zitat:
Mit anderen Worten klar würde das reichen wenn es den klappen würde was es nämlich NICHT tut und ich nicht weiß warum. |
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Zitat:
![]() |
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Zitat:
Ich will dir ja nichts in den Mund legen, aber du hast bisher nicht gesagt, dass du's mit der einfachen Query so im Programm probiert hast. ^^ Die drei Punkte bei der Query in deinem Anfangssatz können für alles mögliche stehen. |
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Ich habe das noch mal ganz kurz auf die schnelle abgecheckt und bekomme eine Fehlermeldung wenn ich versuche
'SELECT Last_Insert_ID()' abzufragen... ich muß mir das Morgen oder die Tage noch mal näher ansehen. Vielleicht Update ich auch mal den MySQL Server auf 5.1.x .. meine Vermutung liegt bei der Session das der irgendwie nicht rafft das das die gleiche Session ist oder aber wie im Auszug aus der Doku beschrieben das das Insert Statement nicht korrekt abgeschlossen wurde und somit '0' zurück gegeben wird. |
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Ich habs mit MySQL 4 versucht.
Kannst du mehrere Anweisungen in eine reinpacken?
Delphi-Quellcode:
SQLQuery.SQL.Clear;
SQLQuery.SQL.Add ('INSERT INTO tb_test (Datum, Benutzer) VALUES (:Date, :User);'); SQLQuery.SQL.Add ('SELECT LAST_INSERT_ID() AS LID;'); SQLQuery.ParamByName('Date').AsDate := dtDate; SQLQuery.ParamByName('User').AsString := strUserName; SQLQuery.Open; if SQLQuery.RecordCount > 0 then begin ShowMessage(SQLQuery.FindField('LID').AsString); end; |
Re: Abfrage nach Last_Insert_ID() funkt. nicht
Moin moin,
evtl. schließt SQLQuery.ExecSQL die Connection nach Ausführung?! Kannst du die Connection mal explizit öffnen? Halt nur ne Vermutung... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz