Abfrage nach Last_Insert_ID() funkt. nicht

[TUX_der_Pinguin]

Der Test das ich beide Abfragen gleichzeitig abschicke, wird schon direkt abgebrochen mit einer Exception.

Delphi-Quellcode:

SQLQuery.SQL.Clear;
SQLQuery.SQL.Add('INSERT INTO tb_routes (Date, CarID) VALUES (:Date, :CarID);');
SQLQuery.SQL.Add('SELECT LAST_INSERT_ID() FROM tb_routes Limit 1;');
SQLQuery.ParamByName('Date').AsDate     := dtpDate.Date;
SQLQuery.ParamByName('CarID').AsInteger := Integer(cmbCar.Items.Objects[cmbCar.ItemIndex]);
SQLQuery.Open;

if SQLQuery.RecordCount > 0 then begin
  ShowMessage('Last ID:'+SQLQuery.FindField('Last_Insert_ID()').AsString);
end;{if}

Exception:

Zitat:

Im Projekt Test.exe ist eine Exception der Klasse TDBXError mit der Meldung
'You have an error in your SQL syntax; check the manual that corresponds to
your MySQL server version for the right syntax to use near ';
SELECT LAST_INSERT_ID() FROM tb_routes Limit 1' at line 1' aufgetreten.

Des weiteren was in einigen postings vorher schon angemerkt wurde ob man nicht nur nach 'SELECT Last_Insert_ID()' abfragen
kann, funktioniert auch nicht, das wirft auch eine Exception aus. Daher immer das 'From tabelle' und dann auch 'LIMIT 1' da
er sonst so viele Zeilen zurück gibt, wie Datensätze in der Tabelle stehen.


So jetzt habe ich mir mal den "Spaß" erlaubt die ZEOSLib (zeosdbo-6.6.2-rc) zu testen, ich habe vom Prinzip nichts geändert
und plötzlich funktioniert alles wunderbar. Hier noch mal der Quellcode mit ZEOS Komponenten.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ZAbstractRODataset, ZAbstractDataset,
  ZDataset, ZConnection;

type
  TForm1 = class(TForm)
    SQLCon: TZConnection;
    SQLQuery: TZQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  SQLCon.Connect;

  ShowMessage(SQLCon.ServerVersionStr); //5.0.51a

  SQLQuery.SQL.Clear;
  SQLQuery.SQL.Text := 'SELECT Connection_ID()';  
  SQLQuery.Open;

  if SQLQuery.RecordCount > 0 then ShowMessage('ConID:'+SQLQuery.FindField('Connection_ID()').AsString);  //ID: 13

  SQLQuery.SQL.Text := 'INSERT INTO tb_routes (Date, CarID) VALUES (:Date, :CarID)';
  SQLQuery.ParamByName('Date').AsDate     := Now;
  SQLQuery.ParamByName('CarID').AsInteger := 105;
  SQLQuery.ExecSQL;

  if SQLQuery.RowsAffected > 0 then begin
    SQLQuery.SQL.Clear;
    SQLQuery.SQL.Text := 'SELECT Last_Insert_ID()';
    SQLQuery.Open;

    if SQLQuery.RecordCount > 0 then ShowMessage('Last ID:'+SQLQuery.FindField('Last_Insert_Id()').AsString); //Last Auto Inc. 21
  end;

  SQLQuery.SQL.Clear;
  SQLQuery.SQL.Text := 'SELECT Connection_ID()'; 
  SQLQuery.Open;

  if SQLQuery.RecordCount > 0 then ShowMessage('ConID:'+SQLQuery.FindField('Connection_ID()').AsString); //ID: 13

  SQLCon.Disconnect;

end;

end.

Und all diese Tests zeigen für mich das der dBExpress Treiber von Delphi 2007 verbuggt ist oder man noch irgendwas einstellen
kann um das Verhalten zuändern, die Einstellung finde ich aber nicht. Auch wenn mein Fazit nicht ganz sachlich ist aber
dbExpress von Delphi 2007 für Win32 R2 SUCKS ! Ich überlege mir jetzt das Projekt mit der ZEOSLib zurealisieren.

Aber dennoch vielen dank für all die Tips und Ideen um das Problem zubeheben.