Fórum pesquisa entre datas, será q ninguem vai me ajudar #170563

21/07/2003

0

Delphi

Pessoal preciso fazer uma pesquisa entre datas para verificar se um determinado apto já está reservado naquele período, estou fazendo a consulta abaixo mas não está funcionando, será que alguém poderia me ajudar
qryVerPeriodo.close;
qryVerPeriodo.open;
if qryVerPeriodo.Locate(´Num_apto´, dm.tblDisponNum_apto.Value, []) and
(qryVerPeriodoData_res.Value = dm.tblDisponData_res.Value) then
begin
qryVerPeriodo.Params[0].Value := StrToDate(edtData.Text);
qryVerPeriodo.Params[1].Value := StrToDate(edtPrevSaida.Text);
end;
Application.MessageBox(´O apartamento já encontra-se reservado ´+
#13 + ´para este período!´,´Aviso´,
MB_ICONWARNING + MB_OK);
edtApto.SetFocus;
end;

Código na query
Select * From Reserva
Where Data_Res between :DataI and :DataF

Muito obrigado, Marcelo.


Marcrv2

Marcrv2

Responder

Posts

21/07/2003

Marcelo Saviski

Experimente:

qryVerPeriodo.Params[0].asdateTime := ...



Responder

Gostei + 0

21/07/2003

Marcrv2

Prezado amigo, ele não me da nenhum erro, simplesmente da mensagem O apartamento já encontra-se reservado em qq data que eu coloco ou seja ele está criticando da maneiro que eu preciso.
Deu para entender.
Marcelo


Responder

Gostei + 0

21/07/2003

Marcelo Saviski

Esse código ta meio estranho...

if (qryVerPeriodo.Locate(´Num_apto´, dm.tblDisponNum_apto.Value, []))and
(qryVerPeriodoData_res.Value = dm.tblDisponData_res.Value) then
begin
qryVerPeriodo.Params[0].Value := StrToDate(edtData.Text);
qryVerPeriodo.Params[1].Value := StrToDate(edtPrevSaida.Text);
Application.MessageBox(´O apartamento já encontra-se reservado ´+
#13 + ´para este período!´,´Aviso´,
MB_ICONWARNING + MB_OK);
edtApto.SetFocus;
end;
end;

Tenta esse :D


Responder

Gostei + 0

21/07/2003

Marcrv2

Chará, ainda não funcionou.
Marcelo


Responder

Gostei + 0

21/07/2003

Marcelo.c

Tente colocar a data no formato ´mm-dd-yy´.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar