Problem mit SQL Abfrage

[Justin]

Sehr geehrte Delphi Praxis Community,

wir sollen in der Schule ein Programm schreiben, womit man per Klick auf ein Button Einträge aus der Listbox in eine dbgrid anzeigen zu lassen.
Hierbei sind die listbox einträge identitäten, die sich auf eine db basieren..
Hierbei soll die ID den zugehörigen Name und Vorname anzeigen, die den Status 'Ja' besitzen.

Dazu mein bisheriger Quellcode:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
 var x:string;
begin
adoquery1.connection:=adoconnection1;
adotable2.recno:=listbox1.itemindex+1;
adoquery1.connection:=adoconnection1;
adoquery1.close;
adoquery1.active:=false;
adoquery1.sql.clear;
adoquery1.SQL.add('SELECT a.Name, a.Vorname FROM Arbeitnehmer as a, Berufsgruppen as b Where a.bgident="'+adotable2.fieldvalues['BGIdent']+'";');
adoquery1.open ;
adoquery1.active:=true;




end;

procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
begin
listbox1.clear;
for i := 1 to adotable2.RecordCount  do
  begin
   listbox1.itemindex:=i;
   adotable2.RecNo:=i;
   listbox1.Items.Add(adotable2.fieldvalues['BGIdent']);
  end;

So wie der Code ist, klappt er nicht richtig, da im db grid nichts angezeigt wird..

Ich hoffe auf etwas Hilfe, denn ich bin schon langsam am verzeifeln.

LG Justin