Query (Socorro)
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
Curtidas 0
Respostas
Carnette
04/07/2003
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....
GOSTEI 0