Pessoal,

Em uma aplica��o que estou desenvolvendo, tenho que controlar alguns 
intervalos de datas. Ex. n�o posso ter o mesmo usu�rio com datas de 
acesso iguais.
Tenho na tela, dois componentes DateTimePicker (1 para data_inicio e 
outro p/data_final), e para o controle coloquei uma query que � 
chamada no evento onExit do DateTimePicker data_final.
Com essa query, no sqlPlus obtenho o resultado correto, ou seja, o 
sql est� correto, mas quando passo os par�metros (e eles est�o sendo 
passados corretamente, pois fiz o debug e vi que os valores passados 
s�o corretos) dentro do Delphi 


Estou usando o seguinte c�digo no evento onExit do DateTimePicker 
data_final:


 with qryValidaData do
   begin
        Close;
        ParamByName( 'pUsu' ).AsString      := Usuario.text;
        ParamByName( 'pInicio' ).AsDateTime := StrToDate
(edtDatInicio.Text);
        ParamByName( 'pFim' ).AsDateTime    := StrToDate
(edtDatFim.Text);
        Open;
   end;

   if qryValidaData.FieldByName( 'count' ).Value <> 0 then
   begin
        ShowMessage ('J� existe acesso para o usu�rio nessa data');
        exit;
   end; 

No sqlPlus o valor do count = 3, mas no delphi se colocar um 
showmessage (IntToStr(count.Value)) o valor � sempre 0.

Criei tb procedure e function e est� acontecendo a mesma coisa, se 
execut�-la fora do delphi o valor retornado � 3, mas no delphi � 
sempre = 0.


query

SELECT  COUNT(*)
FROM    acesso V
WHERE   V.usu = :pUsu AND 
        V.dt_inicio between TO_DATE(:pDataInicio, 'DD/MM/YYYY') AND 
TO_DATE(:pDataFinal, 'DD/MM/YYYY') AND
        V.dt_final  between TO_DATE(:pDataInicio, 'DD/MM/YYYY') AND 
TO_DATE(:pDataFinal, 'DD/MM/YYYY')

Por favor, n�o sei mais o que fazer, algu�m pode me ajudar?
Obrigada.






-- 
<<<<< 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

 



Responder a