Márcio Cristiano Tenreiro
Programador Pleno
Unimar - Universidade de Marília -S.P.
(14) 3402-4129
-------Mensagem original-------
De: Almir Paulo Effgen
Data: 05/23/06 13:59:09
Para: delphi-br@yahoogrupos.com.br
Assunto: 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 >>>>>
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!.
__________ Informação do NOD32 IMON 1.1553 (20060522) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[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: | |
|
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!.