Fórum RecordCount sempre zerado pq? #257945
11/11/2004
0
DadosQ.Open;
if DadosQ.RecordCount <= 0 then
begin
MessageDlg(´Nenhum registro selecionado!´, mtError,[mbOk], 0);
exit;
end;
Wgm8
Curtir tópico
+ 0Posts
11/11/2004
Motta
Gostei + 0
11/11/2004
Mmbarros
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.
Gostei + 0
11/11/2004
Gandalf.nho
Gostei + 0
11/11/2004
Lucas Silva
[b:ac2b778bbb]DadosQ.FetchAll;[/b:ac2b778bbb]
if DadosQ.RecordCount <= 0 then
begin
MessageDlg(´Nenhum registro selecionado!´, mtError,[mbOk], 0);
exit;
end;
Gostei + 0
11/11/2004
Wly
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;
Gostei + 0
11/11/2004
Osocram
nunca tentei isso mas acho q funca
DadosQ.first; if DadosQ.EOF then begin MessageDlg(´Nenhum registro selecionado!´, mtError,[mbOk], 0); exit; end;
Gostei + 0
11/11/2004
Pedrojp
Query1.last;
Query1.first;
tive um probelma deste e desisti so arrumo assim! :P
Gostei + 0
11/11/2004
Lucas Silva
isso tem o mesmo efeito do que o fetchall
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)