ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select count(*) from table1');
ADOQuery1.open;
edit.text:=inttostr(ADOQuery1.fields[0].value);
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select count(*) from table1');
ADOQuery1.open;
edit.text:=inttostr(ADOQuery1.fields[0].value);
with ADOQuery1 do
begin
SQL.Text := 'select count(*) from XX.mdb';
Open;
Edit.Text := Fields[0].AsString;
Close;
end;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from table1');
ADOQuery1.open;
AdoQuery1.last;
AdoQuery1.first;
edit.text:=inttostr(ADOQuery1.RecordCount);