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