Fórum If em uma query #205460
09/01/2004
0
Pessoal !!!
Como faço para colocar um if em uma query
Ex:
with QuerOrdemSelecao,sql do
begin
Clear;
add(´Select * from TbOrdem´);
add(´Where DataEntrada >=:dDataIni and DataEntrada <=:dDatafin and´);
add(´tipo = ´O´´ );
Parambyname(´dDataini´).Value := StrToDate(MskDataini.Text);
Parambyname(´dDatafin´).Value := StrToDate(MskDatafin.Text);
Open;
end;
Dentro dessa query quero saber se foi encontrado registros dentro da data especificada
Rogério
Como faço para colocar um if em uma query
Ex:
with QuerOrdemSelecao,sql do
begin
Clear;
add(´Select * from TbOrdem´);
add(´Where DataEntrada >=:dDataIni and DataEntrada <=:dDatafin and´);
add(´tipo = ´O´´ );
Parambyname(´dDataini´).Value := StrToDate(MskDataini.Text);
Parambyname(´dDatafin´).Value := StrToDate(MskDatafin.Text);
Open;
end;
Dentro dessa query quero saber se foi encontrado registros dentro da data especificada
Rogério
Rogeranalista
Curtir tópico
+ 0
Responder
Posts
10/01/2004
Alexdias
OLÁ COLEGA ...
PARA SSABER SE FOI ENCONTRADO REGISTROS DENTRO DA SUA QUERY VC NÃO PRECISA FAZER UM IF DENTRO DA QUERY E SIM
APOS O QUERY1.OPEN;
IF QUERY1.RECORDCOUNT>0 THEN
BEGIN
faça isso !!!
END
ELSE
BEGIN
messagedlg(NÃO EXISTEM REGISTROS PARA ESTA DATA !!!´,mtcustom,[mbok],0);
END;
SE FOR UTIL POR FAVOR ME MANDE UM E-MAIL ...
PARA SSABER SE FOI ENCONTRADO REGISTROS DENTRO DA SUA QUERY VC NÃO PRECISA FAZER UM IF DENTRO DA QUERY E SIM
APOS O QUERY1.OPEN;
IF QUERY1.RECORDCOUNT>0 THEN
BEGIN
faça isso !!!
END
ELSE
BEGIN
messagedlg(NÃO EXISTEM REGISTROS PARA ESTA DATA !!!´,mtcustom,[mbok],0);
END;
SE FOR UTIL POR FAVOR ME MANDE UM E-MAIL ...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)