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

Tue, 23 May 2006 11:50:03 -0700

Tente assim
var
  vSQL, vData1, vData2, vProd: String;
  vReg, vLinha: integer;
begin
  vReg := 0;
  vData1 := aeData1.Text;
  vData2 := aeData2.Text;
    dm1.qMovimento.Close;
    dm1.qMovimento.SQL.Clear;
    vSQL := 'SELECT * FROM MOVIMENTO WHERE (PONTO = '+
            quotedstr(copy(cbCliente.Text, pos('$', cbCliente.Text) + 1,
4))+
            ')and(PRODUTO='+quotedstr(vProd)+
            ')and(DATA BETWEEN :DATA1 AND :DATA2) ORDER BY PRODUTO';
    dm1.qMovimento.SQL.Add(vSQL);
    dm1.qMovimento.ParamByName('DATA1').AsString := (vDATA1);
    dm1.qMovimento.ParamByName('DATA2').AsString := (vDATA2);
    dm1.qMovimento.Open;
end;


Que a Paz do Grande Arquiteto do Universo nos Ampare
[EMAIL PROTECTED]
Msn-> [EMAIL PROTECTED]
Dourado                                                                 SP



----- Original Message -----
From: "Almir Paulo Effgen" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, May 23, 2006 1:56 PM
Subject: Re: [delphi-br]Moacir ---->Onde está o erro?


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



Links do Yahoo! Grupos












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