Fórum Pesquisa em SQL....Verifica se já existe........ #226578
17/04/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
17/04/2004
Weber
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 !! ´);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)