Re: [delphi-br]Moacir ---->Onde está o erro ?

Tue, 23 May 2006 14:16:37 -0700

Almir,

Voce esqueceu de colocar os PARAMETERS !!!!!!!!!!!!!

    procedure TForm21.BitBtn2Click(Sender: TObject);
    VAR
         INICIO, FINAL: TDate;
    begin

         INICIO:=strtodate(MaskEdit1.Text);
         FINAL:=strtodate(MaskEdit2.Text);

         QUERY1.CLOSE;
         QUERY1.SQL.CLEAR;
         QUERY1.SQL.ADD(' SELECT * ');
         QUERY1.SQL.ADD(' FROM Contratos_dados ');
         QUERY1.SQL.ADD(' WHERE data_final between :INICIO and FINAL');
         QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
//----------------AQUI----------------------------
         QUERY1.ParamByname('DTINI').AsDateTime := INICIO;
         QUERY1.ParamByname('DTFIM').AsDateTime := FINAL;
//---------------------------------------------------------
         QUERY1.OPEN;
    end;


[ ]´s
Moacir

Almir Paulo Effgen escreveu:
> Moacir, eu tentei de tudo e não deu certo, então converti minha tabela os campos Data_Inicial e Data_final para DATE, deu um trabalhão, mas continua dando erro, não estou entendendo.
>   
>   Olha só:
>   procedure TForm21.BitBtn2Click(Sender: TObject);
>   VAR
>        INICIO, FINAL: TDate;
>   begin
>        {}
>          INICIO:=strtodate(MaskEdit1.Text);
>        FINAL:=strtodate(MaskEdit2.Text);
>          {}
>        QUERY1.CLOSE;
>        QUERY1.SQL.CLEAR;
>        QUERY1.SQL.ADD(' SELECT * ');
>        QUERY1.SQL.ADD(' FROM Contratos_dados ');
>        QUERY1.SQL.ADD(' WHERE data_final between :INICIO and FINAL');
>        QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
>        QUERY1.OPEN;
>   end;
>
>   Onde está o erro?
>   Att,
>   Almir
>  
>
> "Moacir (gmail)" <[EMAIL PROTECTED]> escreveu:
>   Almir,
>
> Use parametros para isto..
>
> procedure TForm21.BitBtn2Click(Sender: TObject);
>   VAR
>        INICIO, FINAL: TDate;
>   begin
>        Table1.Open; //--  ????????????????????
>        INICIO:=strtodate(MaskEdit1.Text);
>        FINAL:=strtodate(MaskEdit2.Text);
>        QUERY1.CLOSE;
>        QUERY1.SQL.CLEAR;
>        QUERY1.SQL.ADD(' SELECT * ');
>        QUERY1.SQL.ADD(' FROM Contratos_dados ');
>        QUERY1.SQL.ADD(' WHERE data_final between :DTINI and DTFIM');
>        QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
>        QUERY1.ParamByname('DTINI').AsDateTime := INICIO;
>        QUERY1.ParamByname('DTFIM').AsDateTime := FINAL;
>        QUERY1.OPEN;
>   end;
>
>
>
> [ ]´s
> Moacir
>
> Almir Paulo Effgen escreveu:
>> Meu camarada, eu fiz o que você falou, mas apresentou o seguinte erro:
>>   Incompatible Types: 'String' and 'TDate'
>>   
>>   Att,
>>   Almir
>>
>> Welson Avelar <[EMAIL PROTECTED]> escreveu:
>>   [-----x-----]
>> effgen9 escreveu:
>>
>> Olá, pessoal.
>> Tenho uma tabela em paradox e uso D7.
>> Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
>> 10.
>> Estou começando a trabalhar com SQL. Passo dois parâmetros
>> Data_Inicial e data_final e gostaria de saber os contratos que estão
>> entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
>> retornou um resultado maluco.
>> Como converto a data que está na tabela como string para data?
>> [-----x-----]
>>
>> [Welson] Tente assim:
>>
>> procedure TForm21.BitBtn2Click(Sender: TObject);
>> VAR
>>      INICIO, FINAL: TDate;
>> begin
>>      Table1.Open;
>>      {}
>>      INICIO:=strtodate(MaskEdit1.Text);
>>      FINAL:=strtodate(MaskEdit2.Text);
>>      {}
>>      QUERY1.CLOSE;
>>      QUERY1.SQL.CLEAR;
>>      QUERY1.SQL.ADD(' SELECT * ');
>>      QUERY1.SQL.ADD(' FROM Contratos_dados ');
>>      QUERY1.SQL.ADD(' WHERE data_final between ' + QuotedStr(INICIO) + ' AND ' + QuotedStr(FINAL));
>>      QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
>>      QUERY1.OPEN;
>>      {}
>> end;
>>
>> []s.
>>
>>
>> =================================
>> "O que me preocupa não é o grito dos maus. É o silêncio dos bons."
>> Martin Luther King.
>> =================================
>> Welson de Avelar Soares Filho
>> Analista/Programador Delphi
>> Gemini Sistemas
>> <www.geminisistemas.com.br>
>> Juiz de Fora - Minas Gerais
>> =================================
>>            
>> ---------------------------------
>> Yahoo! Search
>> Música para ver e ouvir: You're Beautiful, do James Blunt
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>            
>> ---------------------------------
>>  Yahoo! doce lar. Faça do Yahoo! sua homepage.
>>
>> [As partes desta mensagem que não continham texto foram removidas
>
>            
> ---------------------------------
>  Yahoo! Messenger com voz - Instale agora e faça ligações de graça.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>



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


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a