Neuen Datensatz in Abfrage und LV hinzufügen

[mc_flasche]

mit der procedure Personeneintragen()

Delphi-Quellcode:

procedure TForm1.PersonenEintragen(Kl: string);
var
LI: Tlistitem;
begin
lv_personen.items.clear;
//Zugriff auf die Tabelle über eine Abfrage;

//Sicherheitshalber wird die Abfrage geschlossen ..
adoquery1.Close;
// und der SQL-Code gelöscht
adoquery1.SQL.Clear;
//.. und der neue SQL-Code eingefügt

if Kl = '' then  begin
  adoquery1.SQL.ADD('Select * from Schüler');
 end else begin
  adoquery1.SQL.ADD('Select * from Schüler where Klasse = "' + Kl + '"');
end;


// .. und die Abfrage geöffnet;
adoquery1.Open;

//Daten der Abfrage werden ausgegeben..
 while not adoquery1.eof do begin
     LI := lv_personen.Items.Add;
     LI.caption := adoquery1.FieldValues['Familienname'] + ' ' + adoquery1.FieldValues['Vorname'];
     LI.subItems.add(adoquery1.FieldValues['Geschlecht']);
     adoquery1.Next;  // nächsteeees sonst bleibt immer beim ersten ..
 end;
 adoquery1.Close;

end;

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]