Fórum Query (Socorro) #167856
04/07/2003
0
Caros colegas estou usando a seguinte linha de codigo
with dm2.P_CompraTransf do begin
Close;
ParamByName(´DataIni´).AsDate :=StrToDate(DateEdit12.text);
ParamByName(´DataFim´).AsDate :=StrToDate(DateEdit13.text);
Open;
FetchAll;
ShowMessage(´dm2.P_CompraTransf.: ´ + IntToStr(dm2.P_CompraTransf.RecordCount));
end;
No meu showmessage acima diz que existe um registro na minha query, so que na verdade não existe nenhum, minha tabela esta vazia.
Existem também outras pesquisas da mesma forma me mostra que existe um registro.
O que devo fazer
with dm2.P_CompraTransf do begin
Close;
ParamByName(´DataIni´).AsDate :=StrToDate(DateEdit12.text);
ParamByName(´DataFim´).AsDate :=StrToDate(DateEdit13.text);
Open;
FetchAll;
ShowMessage(´dm2.P_CompraTransf.: ´ + IntToStr(dm2.P_CompraTransf.RecordCount));
end;
No meu showmessage acima diz que existe um registro na minha query, so que na verdade não existe nenhum, minha tabela esta vazia.
Existem também outras pesquisas da mesma forma me mostra que existe um registro.
O que devo fazer
Fernando
Curtir tópico
+ 0
Responder
Posts
04/07/2003
Carnette
Caros colegas estou usando a seguinte linha de codigo
with dm2.P_CompraTransf do begin
Close;
ParamByName(´DataIni´).AsDate :=StrToDate(DateEdit12.text);
ParamByName(´DataFim´).AsDate :=StrToDate(DateEdit13.text);
Open;
FetchAll;
ShowMessage(´dm2.P_CompraTransf.: ´ + IntToStr(dm2.P_CompraTransf.RecordCount));
end;
No meu showmessage acima diz que existe um registro na minha query, so que na verdade não existe nenhum, minha tabela esta vazia.
Existem também outras pesquisas da mesma forma me mostra que existe um registro.
O que devo fazer
ShowMessage(´dm2.P_CompraTransf.: ´ + IntToStr(dm2.P_CompraTransf.RecordCount - 1)); <<- atente para o MENOS UM
Não esqueça que ZERO é alguma coisa em programação....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)