Fórum consulta entre datas #333026

12/11/2006

0

Delphi

bom dia estou fazendo uma consulta entre datas mas nao esta funcionando, estou utilizando o clientedataset e insiro esse codigo
var
Inicio, Final : string;
begin
With DataModule2 do
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
ClientDataSet2.close;
ClientDataSet2.CommandText := ´select * from CADASTRO_CLIENTE WHERE DATA_CADASTROS >=:dti and DATA_CADASTROS<=:dtf ORDER BY DATA_CADASTROS´;
ClientDataSet2.Params [0].Value := StrToDate(Inicio);
ClientDataSet2.Params[1].Value := StrToDate(Final);
ClientDataSet2.Open.
MAS NAO FUNCIONA FICA DANDO ERRO , INFORMANDO COLUMN UNKNOWN DTI.

ALGUEM SABE ME INFORMAR COMO FACO UMA CONSULTA ENTRE DATAS
USANDO O CLIENTDATASET POR GENTILEZA


Ciotti

Ciotti

Responder

Posts

12/11/2006

Tnaires

Olá
Qual o banco de dados que você está utilizando? Tente utilizar a instrução BETWEEN.
Abraços


Responder

Gostei + 0

12/11/2006

Ciotti

oi estou usando o fb . obrigado

me passa um exemplo por favor.

tenho um campo chamadado data_cadastro
ai quero fazer um consulta usando uma datainicial e final .

eu uso a tecnologia ibexpress/

se possivel mande o exemplo para meu email.

jeffersonciotti@hotmail.com
valew


Responder

Gostei + 0

13/11/2006

Tnaires

Você só precisa substituir o conteúdo do CommandText por esse select:
SELECT * FROM CADASTRO_CLIENTE WHERE DATA_CADASTROS BETWEEN :dti AND :dtf



Responder

Gostei + 0

13/11/2006

Ciotti

ola amigo eu uso 2 datatimepicker como faco uma pesquisa usando o mesmo:?
obrigado pela atencao.


Responder

Gostei + 0

13/11/2006

Alessandrobasto

Faça asssim.

With Query1 do
begin
Close;
Sql.Clear;
Sql.Add(´Select * From Tabela Where data Between :dt_inicio :dt_final´);
ParamByName(´Dt_Inicio´).AsDate = DateTimePicker1.Date;
ParamByName(´Dt_final´).AsDate = DateTimePicker2.Date;
Prepare;
Open;
end;


Responder

Gostei + 0

13/11/2006

Ciotti

valeu cara assim que possivel vou fazer um teste, valeu mesmo.


Responder

Gostei + 0

13/11/2006

Ciotti

OLA AMIGO FIZ O TESTE MAS AINDA PERCISTE EM UM ERRO VOU PASSAR O CODIGO PRA VC POR GENTILEZA, SE VC QUIZER PODE ACESSAR MINHA MAQUINA REMOTAMENTE A POSSIBILEDADE.


ClientDataSet2.close;
ClientDataSet2.CommandText:=(´Select * From CADASTRO_CLIENTE Where DATA_CADASTROS Between :dt_inicio :dt_final´);
ClientDataSet2.Params.ParamByName(´dt_Inicio´).AsDate := DateTimePicker1.Date;
ClientDataSet2.Params.ParamByName(´dt_final´).AsDate := DateTimePicker2.Date;
ClientDataSet2.Open;

NAO SEI MAS PARECE UM ERRO DE SQL OU DE PARAMETROS.
VALEU CARA .


Responder

Gostei + 0

13/11/2006

Ciotti

CARA POR GENTILEZA ME ADICIONA NO MSN TA AI MEU MSN

jeffe_helloween@hotmail.com


obrigado


Responder

Gostei + 0

13/11/2006

Ciotti

ola amigo fiz algumas modificacoes e funcionou valew cara , forte abraco


Responder

Gostei + 0

14/11/2006

Tnaires

Faltou o AND entre os parâmetros.
ClientDataSet2.CommandText:=(´Select * From CADASTRO_CLIENTE Where DATA_CADASTROS Between :dt_inicio AND :dt_final´);



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar