Pesquisa em SQL....Verifica se já existe........

Delphi

17/04/2004

Ai pessoal tudo bem ...eu tenho uma Tabela CADCARRO em InterBase 6.0 com varios campos.... Entre eles o ´NUNVAGA , HORAENTRADA, HORASAIDA ´ .......[b:12c80dfab7]Quero fazer um pesquisa antes de Gravar novo Carro[/b:12c80dfab7]...... Exemplo.....Digito o Numero da Vaga a Hora de Entrada e Hora Saida...Verificar se neste numero ja existe um carro no Intervalo entre a HORAENTRADA E HORASAIDA....Tenho estes codigo abaixo + não da certo.....

with qryCadCarro do
begin
qryCadCarro.Close;
qryCadCarro.SQL.Clear;
qryCadCarro.SQL.Add(´Select * From CADCARRO´);
qryCadCarro.SQL.Add(´Where NUMVAGA=:pVaga and HORAENTRADA>=:hEntrada and HORASAIDA<=:hSaida ´);
qryCadCarro.ParamByName(´pVaga´).Value:=dbedvaga.Text;
qryCadCarro.ParamByName(´hEntrada´).Asstring:=TimeToStr(DateTimePicker1.Time);
qryCadCarro.ParamByName(´hSaida´).Asstring:=TimeToStr(DateTimePicker2.Time);
qryCadCarro.Open;
end;

if qryCadCarro.RecordCount >0 then
Showmessage(´Já existe Carro nesta Vaga e Horario !! ´);

.......[ ]s....TatuLegal


Tatulegal

Tatulegal

Curtidas 0

Respostas

Weber

Weber

17/04/2004

with qryCadCarro do 
begin 
  qryCadCarro.Close; 
  qryCadCarro.SQL.Clear;   
  qryCadCarro.SQL.Add(´Select * From CADCARRO´); 
  qryCadCarro.SQL.Add(´Where NUMVAGA=:pVaga and HORAENTRADA>=:hEntrada and HORASAIDA<=:hSaida´); 
  qryCadCarro.ParamByName(´pVaga´).Value:=dbedvaga.Text; 
  qryCadCarro.ParamByName(´hEntrada´).Asstring:=TimeToStr(DateTimePicker1.Time); 
  qryCadCarro.ParamByName(´hSaida´).Asstring:=TimeToStr(DateTimePicker2.Time); 
  qryCadCarro.Open; 
end; 
if not qryCadCarro.IsEmpty then 
  Showmessage(´Já existe Carro nesta Vaga e Horario !! ´);



GOSTEI 0
POSTAR