pesquisa entre datas, ajuda
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;
Muito obrigado, Marcelo.
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;
Muito obrigado, Marcelo.
Marcrv2
Curtidas 0
Respostas
Marcelo.c
21/07/2003
Colega,
Coloque o código SQL inserido na query pra gente dar uma olhada.
Coloque o código SQL inserido na query pra gente dar uma olhada.
GOSTEI 0
Marcrv2
21/07/2003
Então segue é muito simples:
Select * From Reserva
Where Data_Res between :DataI and :DataF
Marcelo
Select * From Reserva
Where Data_Res between :DataI and :DataF
Marcelo
GOSTEI 0
Marcelo.c
21/07/2003
Tente:
qryVerPeriodo.Params[0].Value := FormatDateTime(´mm/dd/yyyy´,StrToDate(edtData.Text));
qryVerPeriodo.Params[1].Value := FormatDateTime(´mm/dd/yyyy´,StrToDate(edtPrevSaida.Text));
qryVerPeriodo.Params[0].Value := FormatDateTime(´mm/dd/yyyy´,StrToDate(edtData.Text));
qryVerPeriodo.Params[1].Value := FormatDateTime(´mm/dd/yyyy´,StrToDate(edtPrevSaida.Text));
GOSTEI 0