LastRowID wie auslesen?

[AlexII]

Hallo,

ich möchte die letzte eingefügte ID auslesen, aber ich scheitere an der Syntax und brauche Hilfe. Hier mein Code:

Delphi-Quellcode:

procedure TForm2.InsertNewJob();
begin
  Form1.SQLQuery1.Close;
  Form1.SQLQuery1.SQL.Text := 'INSERT INTO tbmain VALUES(NULL, :title, :start, :ende, :memo, :fk_category_id, NULL, NULL, :fk_status_id, NULL)';
  Form1.SQLQuery1.ParamByName('title').AsString := TitleEdit.Text;
  Form1.SQLQuery1.ParamByName('start').AsDateTime := StartDateEdit.Date;
  Form1.SQLQuery1.ParamByName('ende').AsDateTime := EndeDateEdit.Date;
  Form1.SQLQuery1.ParamByName('memo').AsString := Memo.Text;
  Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex]);
  Form1.SQLQuery1.ParamByName('fk_status_id').AsInteger := 1; 
  Form1.SQLQuery1.ExecSQL;
  Form1.SQLTransaction1.Commit;

  // Letze id auslesen
  Form1.SQLQuery1.Close;
  Form1.SQLQuery1.SQL.Text := 'SELECT last_insert_rowid() FROM tbmain';
  Form1.SQLQuery1.Open;
  showmessage(inttostr(last_insert_rowid())); // funktioniert nicht
end;

Nun an welcher Stelle und vor allem wie lese ich diese aus?

[Sir Rufo]

http://www.delphipraxis.net/128882-l...-und-zeos.html

[AlexII]

Danke!

[himitsu]

Eventuell kennt das SQLQuery1 oder die Connection auch eine LastInsertRowId-Methode.

[AlexII]

Zitat von himitsu:

Eventuell kennt das SQLQuery1 oder die Connection auch eine LastInsertRowId-Methode.

Da finde ich keine... habe das ganze in Lazarus mit ner SQLite DB.

Habe es jetzt wie folgt (siehe // Die letzte ID auslesen) gelöst. Aber die Lösung mit der LastRowID wird wohl mit anderen DBanken nicht funktionieren nehme ich an. Muss da wohl was anderes ausdenken, damit meine Anwendung auch mit MySQL später arbeiten kann.

Delphi-Quellcode:

procedure TForm2.InsertNewJob();
var
  CategoryLastID: Integer;
begin
  Form1.SQLQuery1.Close;
  Form1.SQLQuery1.SQL.Text := 'INSERT INTO tbmain VALUES(NULL, :title, :start, :ende, :memo, :fk_category_id, NULL, NULL, :fk_status_id, NULL)';
  Form1.SQLQuery1.ParamByName('title').AsString := TitleEdit.Text;
  Form1.SQLQuery1.ParamByName('start').AsDateTime := StartDateEdit.Date;
  Form1.SQLQuery1.ParamByName('ende').AsDateTime := EndeDateEdit.Date;
  Form1.SQLQuery1.ParamByName('memo').AsString := Memo.Text;

  // Kategorie nicht vorhanden und ComboBox nicht leer, also erst neue Kategorie in die DB schreiben
  if (CategoryComboBox.ItemIndex = -1) and (CategoryComboBox.Text <> '') and (CategoryComboBox.Items.IndexOf(CategoryComboBox.Text) = -1) then
  begin
    // String manuell reingeschrieben, String sonst in der CB nicht vorhanden
    // Kategorie in die Tabelle tbcategory schreiben
    Form1.SQLQueryCategory.Close;
    Form1.SQLQueryCategory.SQL.Text := 'INSERT INTO tbcategory VALUES(NULL, :category)';
    Form1.SQLQueryCategory.ParamByName('category').AsString := CategoryComboBox.Text;
    Form1.SQLQueryCategory.ExecSQL;
    Form1.SQLTransaction1.Commit;

    // Die letzte ID auslesen
    Form1.SQLQueryCategory.Close;
    Form1.SQLQueryCategory.SQL.Text := 'SELECT last_insert_rowid() as id_tbcategory FROM tbcategory';
    Form1.SQLQueryCategory.Open;
    CategoryLastID := Form1.SQLQueryCategory.FieldByName('id_tbcategory').AsInteger;
    Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := CategoryLastID;

  end else if (CategoryComboBox.ItemIndex = -1) and (CategoryComboBox.Items.IndexOf(CategoryComboBox.Text) <> -1) then
  begin
    // String manuell reingeschrieben, String in der CB vorhanden
    Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := Integer(CategoryComboBox.Items.Objects[CategoryComboBox.Items.IndexOf(CategoryComboBox.Text)]);
  end else if CategoryComboBox.ItemIndex <> -1 then
  begin
    // String in der CB ausgewählt
    Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex])
  end;

  Form1.SQLQuery1.ParamByName('fk_status_id').AsInteger := 1;
  Form1.SQLQuery1.ExecSQL;
  Form1.SQLTransaction1.Commit;
end;

Eine andere Frage... wenn ein Feld leer ist, muss ich in die DB ein NULL schreibe, oder reicht es wenn ich das Attribut gar nicht anfasse?

[mkinzler]

Bei Parametern muss man vorsichtig sein, möglicherweise wird dann der Feld vom letzten Vorgang genommen. Also besser explizit auf NULL setzen.

[p80286]

[QUOTE=AlexII;1269947]
    Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex]) Das halte ich nicht für optimal. Die möglichen Werte für

Code:

fk_category_id

sollten aus der DB kommen und nicht aus Deinem Programm. Das kann gut gehen, dafür muß aber sicher gestellt werden, daß

Code:

fk_category_id

und Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex]) immer gleich sind (für gleiche zugehörige Inhalte).

Null-Werte würde ich nicht über Parameter, sondern explizit übergeben:

Code:

 'INSERT INTO tbcategory VALUES(NULL, NULL)'

Gruß
K-H

[mse1]

Zitat von AlexII:

Zitat von himitsu:

Eventuell kennt das SQLQuery1 oder die Connection auch eine LastInsertRowId-Methode.

Da finde ich keine... habe das ganze in Lazarus mit ner SQLite DB.

Die Funktion heisst
TSQLite3Connection.GetInsertID(). Die MSEgui SQLdb Version schreibt die serverseitig generierten Werte übrigens automatisch in die Feldwerte zurück, entweder mittels "LASTINSERTID" für primary keys oder der "RETURNING" clause im SQL statement für beliebige Felder.