ZEOS und Last_Insert nach Insert

[Ghostwalker]

Moinsen,

bin grad einwenig am verzweifeln.

Ich füge mit folgender Methode einen Datensatz in eine Tabelle ein:

Delphi-Quellcode:

  inherited Insert;
  if (fstate = rsNew) then
  begin
    fsql.SQL.Text := 'INSERT INTO actionarea (areaname,areadescr) VALUES(:areaname,:areadescr);';
    fsql.ParamByName('areaname').AsString := fname;
    fsql.ParamByName('areadescr').AsString := fdescr;
    fsql.ExecSQL;
    fsql.Connection.Commit;
    faaid := GetInsertedId;
    findex := faaid;
    fstate := rsNone;
  end;

fsql ist dabei eine TZQuery. Um nun den Primärschlüssel (autoincrement) zu ermitteln, hab ich in der
Basisklasse die Methode GetInsertId implementiert:

Delphi-Quellcode:

  result := -1;
  fsql.SQL.Clear;
  fsql.Params.Clear;
  fsql.SQL.Text := 'SELECT last_insert_rowid() as last FROM :table;';
  fsql.Prepare;
  fsql.ParamByName('table').AsString := ftable;
  fsql.Open;
  if not fsql.Eof then
  begin
    fsql.First;
    result := fsql.FieldByName('last').AsInteger;
  end;
  fsql.Close;
end;

ftable ist dabei in Feld, das beim erzeugen der abgeleiteten Instanz entsprechend gesetzt wird.

Problem ist nun, das ich genau beim fsql.open eine Exception "SQL logic error or missing database" bekomme.
Die Datenbankverbindung ist jedoch da, der Datensatz wird auch brav eingefügt. Ich hab auch die Abfrage "last_insert..." manuell ausgeführt (natürlich den entsprechenden Tabellenamen eingefügt). Da funktioniert das ganze wunderbar. Woran kann das noch liegen ?

[hoika]

Hallo,
lass das Prepare einfach weg und übergib den Tabellennamen ohne Parameter.

[DeddyH]

AFAIK muss man den Tabellennamen überhaupt nicht angeben. Aus der Doku:

Zitat:

The sqlite3_last_insert_rowid(D) interface usually returns the rowid of the most recent successful INSERT into a rowid table or virtual table on database connection D.

[Ghostwalker]

ok....jetzt tuts (also ohne Parameter und Tabellenname).

Aber komisch ists trotzdem, das es im SQLiteStudio und im SQLiteBrowser mit Tabellenname direkt funktioniert.

Fällt wohl in die Kategorie "ok..muss ich jetzt nicht verstehen"

Danke euch beiden.

[Delphi.Narium]

Man kann Tabellennamen nicht per Parameter übergeben!

Dashier geht nicht: fsql.SQL.Text := 'SELECT last_insert_rowid() as last FROM :table;'; Per Parameter kann man nur Werte für die Where-Bedingung übergeben, so wie es beim Insert gemacht wurde.

Dashier würde ebenfalls scheitern:

Delphi-Quellcode:

inherited Insert;
  if (fstate = rsNew) then
  begin
    fsql.SQL.Text := 'INSERT INTO :table (areaname,areadescr) VALUES(:areaname,:areadescr);';
    fsql.ParamByName('table').AsString := 'actionarea';
    fsql.ParamByName('areaname').AsString := fname;
    fsql.ParamByName('areadescr').AsString := fdescr;
    fsql.ExecSQL;
    fsql.Connection.Commit;
    faaid := GetInsertedId;
    findex := faaid;
    fstate := rsNone;
  end;

Das Problem ist also nicht die Nutzung des Tabellennamens im Statement überhaupt, sondern die Übergabe des Tabellennamens als Parameter.

[Bernhard Geyer]

Das ist AsDesigned. Das dürfte bei fast keinem DBMS funktionieren.
Wenn man SQL-Statements parametrisiert verwenden will, führt die Datenbank ein Prepare darauf aus.
Kenn es die beteiligten Tabellen nicht, kann das nicht durchgeführt werden da ja die DB nicht weiß was sie überhaupt machen soll.