Zuerst drei kleine Anmerkungen:
1. die Textzuweisung via qryMain.SQL.Text löscht automatisch die
SQL-StringList, also kannst du dir das qrMain.Clear sparen.
2. qrMain.Open und qrMain.Active = True machen das Gleiche, also ist eins überflüssig.
3. du verwendest als Alias für deine Anzahl das
SQL-Schlüsselwort Count, wundert mich, dass da keine Fehlermeldung kommt.
In der Select-Anweisung selbst kann ich jetzt keinen Fehler finden, ich würde aber nach der Parameterzuweisung noch die Zeile "qrMain.Prepared := True;" einsetzen. Ist eine Gewohnheit aus alten Tagen, weil unter
ADO nicht immer die Parameterliste korrekt abgearbeitet wurde, wenn diese Zeile fehlte.
Grüße
Mikhal
[edit]Korrekturen...[/edit]