Forum: Datenbanken
by AlexII,
27. Aug 2014
Jah... da muss man sehr aufpassen, aber ich habe alles soweit logisch durchgespielt, es muss gehen. So lade ich die ComboBoxen:
// Kategorie laden
Form2.CategoryComboBox.Clear;
Form2.CategoryComboBox.Items.AddObject(' ', TObject(0));
SQLQuery1.Close;
SQLQuery1.SQL.Text := 'SELECT id_tbcategory, category FROM tbcategory';
SQLQuery1.Open;
while not SQLQuery1.Eof do
Forum: Datenbanken
by AlexII,
27. Aug 2014
Ok, sag ma wie mache ich das? Etwa so? Will aber irgendwie nicht so recht...
Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := nil;
Forum: Datenbanken
by AlexII,
26. Aug 2014
Hallo,
ich möchte die letzte eingefügte ID auslesen, aber ich scheitere an der Syntax und brauche Hilfe. Hier mein Code:
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 :=...