1) Declare essas duas variáveis como sendo strings;
2) Faça a atribuição dos valores da seguinte forma:
dtinicial := FormatDateTime('mm/dd/yyyy', DateTimePicker1.Date); //recebe a
data inicial
dtfinal := FormatDateTime('mm/dd/yyyy', DateTimePicker2.Date); //recebe a data
final
Você estava concatenando valores date como se fossem strings, e em Object
Pascal vc deve convertê-los para string.
Seu código final deverá ficar assim:
dtinicial := FormatDateTime('mm/dd/yyyy', DateTimePicker1.Date); //recebe a
data inicial
dtfinal := FormatDateTime('mm/dd/yyyy', DateTimePicker2.Date); //recebe a data
final
dm.adodsCaixa.Close;
dm.adodsCaixa.commandtext:='select cod_pagto, data_pgto, codvenda, tipopessoa,
modo_pgto, vlr_pgto, cod_usuario from caixa where data_pgto>="'+dtinicial+'" and
data_pgto<="'+dtfinal+'"';
dm.adodsCaixa.open;
Veja se assim dá certo.
Sds.
To: delphi-br@yahoogrupos.com.br
From: asandro1...@yahoo.com.br
Date: Mon, 4 Jan 2010 02:01:38 +0000
Subject: [delphi-br] variavel tipo "date" em consulta sql
Olá pessoal
Já percorri muitos sites mas não encontrei uma forma de colocar uma variavel do
tipo date(mysql) dentro de uma consulta sql. Preciso fazer uma comparação de
data incicial e data final.
Segue parte do código
dtinicial:=DateTimePicker1.Date; //recebe a data inicial
dtfinal:=DateTimePicker2.Date; //recebe a data final
dm.adodsCaixa.Close;
dm.adodsCaixa.commandtext:='select cod_pagto, data_pgto, codvenda, tipopessoa,
modo_pgto, vlr_pgto, cod_usuario from caixa where data_pgto>="'+dtinicial+'"
and data_pgto<="'+dtfinal+'"';
dm.adodsCaixa.open;
A forma que eu estou colocando as variaveis dentro da consulta sql é para
utilizar com variáveis do tipo string mas não sei como colocar as do tipo date.
Também não consegui utilizar o BETWEEN. Acredito que o problema seja só com as
variáveis mesmo.
Alguém pode me ajudar?
Grato
Alex Silva
_________________________________________________________________
Windows 7: agora com conexões automáticas de rede. Conheça.
http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539
[As partes desta mensagem que não continham texto foram removidas]
