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