Anzahl von Datenbank Einträgen.

[ngott2]

Guten morgen Liebe Delphi Praxis Community.

Habe ein Sql Statment gebastelt das mir die Anzahl der Einträge meiner Datenbank zurück geben soll.Ich brauch die Anzahl der Datenbankeinträge.
Beim Ersten aufruf gibt er 2 zurück was momentan richtig ist. Bei jeden weiteren Aufruf kommt einer hinzu. Warum ist das so ?
Vermutlich ist Query.SQL.count falsch oder ? Query = class var Query : TADOQuery; Ich brauche die Anzahl für eine Fortlaufende Dokumenten Nummer.

Code:

Query.SQL.Add('SELECT COUNT (ID) from Document');
    Result := Query.SQL.Count;

Habe zwei Sachen aus dem Internet ausprobiert die gehen aber leider auch nicht.

[Der schöne Günther]

Schau doch nochmal genau was Query.SQL ist. Nicht Query , sondern Query.SQL . Was du damit aktiv anstellst, und was du mit Query.SQL.Count abfragst

[Mikkey]

Verwende Query.sql.Text.

Sonst verlängerst Du die Query immer weiter.

Die Abfrage geht dann auch mit Query.Fields[0], oder Du musst eine Klausel "AS Anzahl" oder so anhängen.

[rapante]

Moin,
probiere es mal so:

Delphi-Quellcode:

Query.SQL.Text := 'SELECT COUNT (ID) AS counter from Document';
Query.Open;
Result := Query.FieldByName('counter').AsInteger;

[Bebe]

Hallo,

so wie ich das sehe fügst du immer wieder das gleiche Statement hinzu (ohne zu löschen [SQL.Clear]) und fragst dann nach der Anzahl der Zeilen von dem Statement ab. Das muss immer wachsen.

Im Statement hast du Count(ID) enthalten, daher musst du danach das erste Feld der Query abfragen. Die zweite Zeile gehört dort nicht rein.

Gruß
Matze

[DeddyH]

Und rapantes Code noch einmal mit Kommentaren zum Verständnis:

Delphi-Quellcode:

(* Gesamtes Statement auf einmal setzen -> evtl. vorhandenes überschreiben *)
Query.SQL.Text := 'SELECT COUNT (ID) AS counter from Document';
(* Abfrage auf die DB loslassen *)
Query.Open;
(* Ergebnismenge unter Verwendung des im Statement angegeben Feldalias auswerten *)
Result := Query.FieldByName('counter').AsInteger;

[baumina]

Du solltest lieber SELECT COUNT(*) statt SELECT COUNT(ID) nehmen.

1. Weils schneller sein müsste und
2. Weil du nur so sicher gehen kannst, die Anzahl der Datensätze zu erhalten, denn NULL-Werte in der Spalte ID würden bei SELECT COUNT(ID) nicht mitgezählt werden.

[ngott2]

Zitat von baumina:

Du solltest lieber SELECT COUNT(*) statt SELECT COUNT(ID) nehmen.


2. Weil du nur so sicher gehen kannst, die Anzahl der Datensätze zu erhalten, denn NULL-Werte in der Spalte ID würden bei SELECT COUNT(ID) nicht mitgezählt werden.

Das kann doch eigendlich nicht Passieren bei Auto ID oder ?


PS counter kann man oder zumindest ich nicht verwenden ist Reserviert.

Danke für eure Antworten Funktioniert jetzt und ich verstehe es auch

[DeddyH]

Zitat von ngott2:

PS counter kann man oder zumindest ich nicht verwenden ist Reserviert.

Dann nimm halt einen anderen Alias, den kannst Du ja frei vergeben.

Delphi-Quellcode:

Query.SQL.Text := 'SELECT COUNT(*) AS Erbsensuppe from Document';
Query.Open;
Result := Query.FieldByName('Erbsensuppe').AsInteger;

Das funktioniert genauso gut. Inwieweit dieser Alias allerdings auf den Inhalt schließen lässt, das steht auf einem anderen Blatt

[ngott2]

Zitat von DeddyH:

Zitat von ngott2:

PS counter kann man oder zumindest ich nicht verwenden ist Reserviert.

Dann nimm halt einen anderen Alias, den kannst Du ja frei vergeben.

Delphi-Quellcode:

Query.SQL.Text := 'SELECT COUNT(*) AS Erbsensuppe from Document';
Query.Open;
Result := Query.FieldByName('Erbsensuppe').AsInteger;

Das funktioniert genauso gut. Inwieweit dieser Alias allerdings auf den Inhalt schließen lässt, das steht auf einem anderen Blatt

Ja wenn Erbensuppe im Quellcode steht, dann ist eine Gute Quellcode Dokumentation wichtig Wir hatten mal in unserm Quellcode vor Jahren Turm und Springer als Variablen Name. Und nein es war kein Schachspiel ^^ Zum glück war ich da noch nicht da.