pesquisa entre datas, será q ninguem vai me ajudar

Delphi

21/07/2003

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

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

21/07/2003

Experimente:

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



GOSTEI 0
Marcrv2

Marcrv2

21/07/2003

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


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

21/07/2003

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


GOSTEI 0
Marcrv2

Marcrv2

21/07/2003

Chará, ainda não funcionou.
Marcelo


GOSTEI 0
Marcelo.c

Marcelo.c

21/07/2003

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


GOSTEI 0
POSTAR