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

Mon, 22 May 2006 17:24:55 -0700

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



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