Datenbank Tabelle ID-Veknüpfung

[thiagojonas]

Hmm... die Fehlermeldung bleint die selbe.

Hier mein ganzer QuelCode:

Delphi-Quellcode:

procedure Tfach.FormShow(Sender: TObject);
begin
  LoadFach;
end;

procedure Tfach.LoadFach;
begin
  ///////////////////////////////////////////////////////////////////////////
  ///  DB Vorlage öffnen
  ADOQuery1.SQL.Text := 'SELECT Fach.Name FROM Lehrkraft JOIN LehrerFach ON LehrerFach.Lehrer_ID = Lehrkraft.Lehrer_ID JOIN Fach ON Fach.Fach_ID = LehrerFach.Fach_ID WHERE Lehrkraft.Name = :name';
  ADOQuery1.Parameters.ParamByName('name').Value := Fach_cb.Text;
  ADOQuery1.Open;
  ///////////////////////////////////////////////////////////////////////////
  ///  Combobox leeren
  fach_cb.Clear;
  ///////////////////////////////////////////////////////////////////////////
  ///  
  while not ADOQuery1.EOF do
    begin
     fach_cb.Items.Add(ADOQuery1.FieldByName('Fach').Value);
     ADOQuery1.Next;
    end;
end;