GARANTIR DESCONTO

Fórum ADO,SqlServer2000 e Datas #345457

03/09/2007

0

Delphi

Bom dia pessoal,
estou com problemas com ADO e Sql server..
Fiz uma consulta sql entre Datas usando BDE e funcionou corretamente,fiz a mesma consulta utilizando ADO e deu o seguinte erro:
´Optional feature not implemented´
vcs sabem o que tá errado?? obrigado pessoal



  DateTimePicker1.Date := Date - 20;
  DateTimePicker2.Date := Date;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(´SELECT * FROM LIGACOES WHERE DATA BETWEEN :DT1 AND :DT2´);
  ADOQuery1.Parameters[0].Value := FORMATDATETIME(´DD/MM/YYYY´,DateTimePicker1.Date);
  ADOQuery1.Parameters[1].Value := FORMATDATETIME(´DD/MM/YYYY´,DateTimePicker2.Date);
  ADOQuery1.Open;



Eric.miranda

Eric.miranda

Responder

Posts

03/09/2007

Eric.miranda

Fala aí galera..
resolvi aqui fazendo uma POG(Programacao orientada a gambiarra)..mas funcionou..

olha aí
DateTimePicker1.Date := Date - 20; 
DateTimePicker2.Date := Date; 
ADOQuery1.Close; 
ADOQuery1.SQL.Clear; 
ADOQuery1.SQL.Add(´SELECT * FROM LIGACOES WHERE DATA BETWEEN :DT1 AND :DT2´); 
ADOQuery1.Parameters[0].datatype := ftString;
ADOQuery1.Parameters[1].datatype := ftString;

ADOQuery1.Parameters[0].Value := Copy(DatetoStr(dtInicial.Date),4,2)+´/´+Copy(DatetoStr(dtInicial.Date),1,2)+´/´+Copy(DatetoStr(dtInicial.Date),7,4);
ADOQuery1.Parameters[1].Value := Copy(DatetoStr(dtfinal.Date),4,2)+´/´+Copy(DatetoStr(dtfinal.Date),1,2)+´/´+Copy(DatetoStr(dtfinal.Date),7,4);
ADOQuery1.Open;



Responder

Gostei + 0

03/09/2007

Rjun

Se em vez de colocar ftString no datatype, vc colocasse ftDate, não funcionaria?


Responder

Gostei + 0

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

Aceitar