Wilson,
Tenta assim...
Data.qChamada.Params.ParamByName('DataInicio').Value := StrToDate(DataInicio);
Data.qChamada.Params.ParamByName('DataFinal').Value := StrToDate(DataFinal);
Em 23/08/05, Wilson Valdevite<[EMAIL PROTECTED]> escreveu:
> Rodrigo, bom dia..
>
> Tentei montar mas deu que o arquivo não esixte. Deixa eu me explicar melhor.
> Tenho um banco de dados na .............. do paradox que está sendo ligada em
> um Table, DataSource e um Query.
> Tentei montar da seguinte forma:
>
> Data.qChamada.Close;
> Data.qChamada.SQL.Clear;
> Data.qChamada.SQL.Add('Select * from 04CHAMAD.db where Data Between
> :DataInicio and :DataFinal');
> Data.qChamada.Params.ParamByName('DataInicio').Value :=
> DateToStr(inicio.date);
> Data.qChamada.Params.ParamByName('DataFinal').Value := DateToStr(final.date);
> Data.qChamada.Open;
> Data.qChamada.ExecSQL;
>
> mas recebo mensagem de erro
>
>
> ----- Original Message -----
> From: Rodrigo Tognin
> To: delphi-br@yahoogrupos.com.br
> Sent: Monday, August 22, 2005 10:14 AM
> Subject: RES: [delphi-br] Montagem de Query
>
>
> Olha Wilson, tente fazer a query com parametros, assim:
>
> Data.qChamada.Close;
> Data.qChamada.SQL.Clear;
> Data.qChamada.SQL.Add('Select * from Data.tbchamada where Data Between
> :DataInicio and :DataFinal);
> Data.qChamada.Parameters.ParamByName('DataInicio').Value := DateToStr
> (inicio.date);
> Data.qChamada.Parameters.ParamByName('DataFinal').Value := DateToStr
> (final.date);
> Data.qChamada.Open;
> Data.qChamada.ExecSQL;
>
> Abraço
>
> Rodrigo Tognin
>
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Wilson Valdevite
> Enviada em: segunda-feira, 22 de agosto de 2005 09:57
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Montagem de Query
>
>
> Pessoal, bom dia...
> Estou tentando montar uma query de uma tabela de cadastros e a montei da
> seguinte forma:
>
> Data.qChamada.Close;
> Data.qChamada.SQL.Clear;
> Data.qChamada.SQL.Add('Select * from Data.tbchamada where Data >=' +
> DateTimeToStr(inicio.date) + 'and data <=' + DateToStr(final.Date));
> Data.qChamada.ExecSQL;
>
> e quando a executo recebo o seguinte erro:
>
> Invalid use of keyword
> token: 09?
> Line Number: 1.
>
> A tabela está em um DataModule e passei as datas para string para poder
> compilar. Gostaria de saber onde está o erro.
>
> Agradeço a todos.
>
> [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] ou [EMAIL PROTECTED]
>
> 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] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
> ------------------------------------------------------------------------------
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
> do Yahoo!.
>
>
>
>
> ------------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.338 / Virus Database: 267.10.13/78 - Release Date: 19/08/2005
>
>
> [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] ou [EMAIL PROTECTED]
>
> 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] ou [EMAIL PROTECTED]
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:
http://br.yahoo.com/info/utos.html
