If em uma query
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
Curtidas 0
Respostas
Alexdias
09/01/2004
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 ...
GOSTEI 0