|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.545 Beiträge
Delphi 11 Alexandria
|
Re: Datensätze mit SQL zählen
15. Mär 2010, 10:39
Delphi-Quellcode:
//zur Sicherheit Datenmenge schließen
Query2.Close;
//Abfragetext setzen
Query2.SQL.Text := 'Select Count(feld001) as Anzahl from '+ ComboBox1.Text;
//Datenmenge öffnen
Query2.Open;
//Ergebnismenge auslesen
StatusBar1.Panels[0].Text:=IntToStr(Query2.FieldByName('Anzahl').AsInteger);
//und wieder schließen
Query2.Close;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|