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
>
> 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
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 Termos do Serviço do Yahoo!.
