Okay hier mal der Aufbau:
-TZZIbSqlDatabase= dbmain
-TZZIbSqlTransact= trmain Database=dbmain
-TZZIbSqlQuery= qrmain Database=dbmain Transaction=trmain
-TDataSOurce= dsmain DataSet=qrmain
-TDBGrid= DBGrid1 DataSource=dsmain
So sind die Komponenten benannt und mit den entsprechenden Properties hinterlegt.
Bei Knopfdruck sieht der Code (momentan) wie folgt aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var ListItem:Tlistitem;
anz,i:Integer;
begin
with qrmain
do
begin
Sql.Text := '
SELECT Count (*) FROM Zandereingang';
Open;
Refresh;
anz := qrmain.RecordCount;
ShowMessage(IntToStr(anz));
end;
end;
Ergebnis ist das im Grid mit der Überschrift Count 8 steht und die Meldung über Anz=1 ist. Hoffe ich konnte alles relevante darstellen.