Você pode criar uma query só pra executar esta pesquisa:
OpenTable('select Codigo, Hora_Reserva, Hora_Devolucao from "TABELA" Where
Hora_Reserva <= ' + Hora.Text + ' And Hora_Devolucao >= '+Hora.text+ ' ');
Resultadodapesquisa := Query1.Fieldbyname('Codigo').AsString;
If Resultadodapesquisa <> '' Then
label1 := 'Hora Ocupada!'
Else
label2 := 'Hora Livre!';
É questao de ajustar ai.
Robson
[EMAIL PROTECTED]
msn: [EMAIL PROTECTED]
----- Original Message -----
From: "lyanagomes" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, April 05, 2005 5:06 PM
Subject: [delphi-br] Re: Problema com sql!!!
Estou usando para base de dados tabelas paradox 7, e a consulta é
feita com uma query na versão 3 do delphi.
Obrigada Pela Atenção.
--- Em delphi-br@yahoogrupos.com.br, "Romario (Listas)"
<[EMAIL PROTECTED]> escreveu
> Qual o banco de dados que você está utilizando?
>
> Quais os componentes de acesso à dados que você está utilizando?
>
> Qual versão do Delphi que você está utilizando?
>
> Dê mais detalhes para que possamos ajudá-la.
>
> Sds,
>
> Romario
>
>
>
>
> lyanagomes escreveu:
> >
> >
> > Olá...
> >
> > Tenho 2 campos com hora. Hora_Reserva e Hora_Devolucao para um
> > sistema que faz reservas de equipamentos, tenho um consulta em
sql
> > que procura os horários de reserva e devolucao, portanto,tenho
que
> > verificar se o equipamento que pretendo reservar já nao está
> > reservado naquele horário. Entao preciso comparar o horario de
> > reserva de um com o horário de devolucao de outro. Mas como
verificar
> > registro por registro para saber se tem algum equipamento com o
> > horário de devolucao igual ao horario de reserva q estou
digitando?
> >
> > Por favor me ajudem...
> >
> > Até mais,
> >
> > Liana Gomes.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
