RecordCount sempre zerado pq?

O RecordCount do TQuery pode ter problemas, veja o help para mais detalhes.

Utilize esta expressão...

if DadosQ.IsEmpty then
begin
MessageDlg(´Nenhum registro selecionado!´, mtError,[mbOk], 0);
exit;
end;


Não sei se é verdade mas o pessoal fala que existe um bug no recordcount no Delphi 6. (Caso sua versão seja 6), acho que tá explicado...

Obs: NÃO tenho certeza sobre isso, mas também tive problemas com o recordcount.


Espero ter ajudado.

Geralmente RecordCount só é confiável para banco de dados locais como Paradox. Bancos cliente/servidor como o IB/FB não retorna o valor correto.

DadosQ.Open;
[b:ac2b778bbb]DadosQ.FetchAll;[/b:ac2b778bbb]

if DadosQ.RecordCount <= 0 then
begin
MessageDlg(´Nenhum registro selecionado!´, mtError,[mbOk], 0);
exit;
end;

Cara, tenta assim .

Const StringSQL : String = ´Select Dados From Tabela´;

Var Total: Integer;

begin
Total:= 0;
With Query do
begin
Close;
SQL.Clear;
SQL.Add(StringSQL);
Open;
Last; // Caso esteja utilizando o IB ou FB
Total:= RecordCount;
if Total = 0 then
Message(´Nenhum registro encontrado´)
end;
end;

hehehe
nunca tentei isso mas acho q funca

Coleguinha tenta uma gabiarra

Query1.last;
Query1.first;

tive um probelma deste e desisti so arrumo assim! :P

isso tem o mesmo efeito do que o fetchall