Datenbank Feld als Variable deklarieren

[thiagojonas]

Hallo Leute,
ich habe ein problem, mit einer Datenbankabfrage.

Also hier meine Abfrage:

ADOQuery2.SQL.Text := 'select `fach` from `lehrer` where `lehrer` = '''+Combobox1.Text+''';'; Wie kann ich den jetzt `fach` einer variablen zuweisen? Z.B. um den Wert über ShowMessage anzuzeigen?
Danke schonmal

[phil_ro]

Delphi-Quellcode:

ADOQuery2.Open;
sVariable := ADOQuery2.FieldByName('fach').AsString

Alternativ auch

Delphi-Quellcode:

ADOQuery2.Open;
sVariable := ADOQuery1.Fields[0].AsString

[thiagojonas]

Hmm... Irgendwie klappt das nicht ganz. (es werden willkürlich die werte ausgewählt)

Oder mache ich was falsch?

Delphi-Quellcode:

  ...if dauer_cb.ItemIndex = 0 then
begin
 ADOQuery2.Open;
 fach := ADOQuery2.FieldByName('fach').AsString ;
 ADOQuery2.SQL.Text := 'select `fach` from `lehrer` where `lehrer` = '''+Combobox1.Text+''';';
 listbox1.AddItem(inttostr(i) + '. ' + time + ' ' + Combobox1.Text + ' ' + fach + ', ' + dauer_cb.Text + ' ' + ' Stunde',listbox1);
  i:= i+1;
  end
else...

[Bbommel]

Du solltest mal über die Reihenfolge deiner Befehle nachdenken:

Du öffnest die SQL-Abfrage (= führst sie aus), bevor du überhaupt den SQL-Befehl festgelegt hast. Und der Variable "fach" weist du einen Wert zu, den sie ebenfalls erst haben kann, nachdem du die SQL-Abfrage ausgeführt hast.

Um ggf. ein Missverständnis zu vermeiden: Die Variable "fach" ist kein Zeiger oder sowas auf dein Ergebnis aus der Datenbank, sondern es wird der Wert aus der Datenbank dahin kopiert.

Bis denn
Bommel

[thiagojonas]

Dank kumpel

so ist es richtig:

Delphi-Quellcode:

...if dauer_cb.ItemIndex = 0 then
begin
ADOQuery2.SQL.Text := 'select `fach` from `lehrer` where `lehrer` = '''+Combobox1.Text+''';';
ADOQuery2.Open;
fach := ADOQuery2.FieldByName('fach').AsString ;
listbox1.AddItem(inttostr(i) + '. ' + time + ' ' + Combobox1.Text + ' ' + fach + ', ' + dauer_cb.Text + ' ' + ' Stunde',listbox1);
  i:= i+1;
  end
else...