consulta entre datas
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
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
Curtidas 0
Respostas
Tnaires
12/11/2006
Olá
Qual o banco de dados que você está utilizando? Tente utilizar a instrução BETWEEN.
Abraços
Qual o banco de dados que você está utilizando? Tente utilizar a instrução BETWEEN.
Abraços
GOSTEI 0
Ciotti
12/11/2006
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
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
GOSTEI 0
Tnaires
12/11/2006
Você só precisa substituir o conteúdo do CommandText por esse select:
SELECT * FROM CADASTRO_CLIENTE WHERE DATA_CADASTROS BETWEEN :dti AND :dtf
GOSTEI 0
Ciotti
12/11/2006
ola amigo eu uso 2 datatimepicker como faco uma pesquisa usando o mesmo:?
obrigado pela atencao.
obrigado pela atencao.
GOSTEI 0
Alessandrobasto
12/11/2006
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;
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;
GOSTEI 0
Ciotti
12/11/2006
valeu cara assim que possivel vou fazer um teste, valeu mesmo.
GOSTEI 0
Ciotti
12/11/2006
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 .
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 .
GOSTEI 0
Ciotti
12/11/2006
CARA POR GENTILEZA ME ADICIONA NO MSN TA AI MEU MSN
jeffe_helloween@hotmail.com
obrigado
jeffe_helloween@hotmail.com
obrigado
GOSTEI 0
Ciotti
12/11/2006
ola amigo fiz algumas modificacoes e funcionou valew cara , forte abraco
GOSTEI 0
Tnaires
12/11/2006
Faltou o AND entre os parâmetros.
ClientDataSet2.CommandText:=(´Select * From CADASTRO_CLIENTE Where DATA_CADASTROS Between :dt_inicio AND :dt_final´);
GOSTEI 0