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


Tatulegal

Tatulegal

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

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

Aceitar