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.

[AlexII]

Zitat von mkinzler:

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

Ok, sag ma wie mache ich das? Etwa so? Will aber irgendwie nicht so recht...

Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := nil;

[DeddyH]

IIRC:
ParamByName('fk_category_id').Clear;

[himitsu]

Oder so Form1.SQLQuery1.ParamByName('fk_category_id').Value := nil; , aber Clear ist schon schöner.

Zitat von AlexII:

Etwa so? Will aber irgendwie nicht so recht...

Irgendwie?
Da steht doch genau in der Fehlermeldung drin, was da nicht geht.

Oder würdest du auch ein Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := 'abc'; oder Form1.SQLQuery1.ParamByName('fk_category_id').AsString := 123; veruchen?



Eine weitere Frage ist aber auch:
Warum ist der ganze Code in TForm2 drin, obwohl über 50% der Zugriffe auf TForm1 gehen?
Das würde doch wohl eher in eine Methode der TForm1 gehören und die Werte z.B. als Parameter übergeben.

[AlexII]

Zitat von DeddyH:

IIRC:
ParamByName('fk_category_id').Clear;

Danke