GARANTIR DESCONTO

Fórum Consulta SQL Server com data..Erro.. #351671

10/01/2008

0

Delphi

Galera
estou com problemas aqui e não estou conseguindo resolver.

Tenho um bd sql server 2000
na tabela LigacoesRecebidas tenho um campo data (smalldatetime)
ele grava no bd no formato MM/DD/AAAA

tenho um datetimepicker chamado dtinicial
qdo tento fazer o sql para obter resultado obtenho a seguinte msg
´Recurso Opcional não implementado.´

tentei esse
procedure TForm1.Button1Click(Sender: TObject);
var SQL : String;
begin
  SQL := ´SELECT * FROM LIGACOESRECEBIDAS WHERE DATA =:DATA´;
  qConsulta.Close;
  qConsulta.SQL.Clear;
  qConsulta.SQL.Add(SQL);
  qConsulta.Parameters.ParamByName(´DATA´).Value := dtInicial.DateTime;
  qConsulta.Open;

end;



e esse

procedure TForm1.Button1Click(Sender: TObject);
var SQL : String;
begin
  SQL := ´SELECT * FROM LIGACOESRECEBIDAS WHERE DATA =:DATA´;
  qConsulta.Close;
  qConsulta.SQL.Clear;
  qConsulta.SQL.Add(SQL);
  qConsulta.Parameters.ParamByName(´DATA´).Value := copy(DatetoStr(dtInicial.DateTime),4,2) + ´/´ + copy(DatetoStr(dtInicial.DateTime),1,2)+ ´/´ + copy(DatetoStr(dtInicial.DateTime),7,4);
  qConsulta.Open;

end;


agradeço a ajuda de todos..
obrigado


Eric.miranda

Eric.miranda

Responder

Posts

10/01/2008

Djjunior

tente

qConsulta.Parameters.ParamByName(´DATA´).AsDateTime := dtInicial.DateTime;

ou

qConsulta.Parameters.ParamByName(´DATA´).AsDate := dtInicial.DateTime;


se não der certo use a função cast() do sql para formatar a data - não tenho como ver a sintaxe agora.


Responder

Gostei + 0

10/01/2008

Facc

tente qConsulta.Parameters.ParamByName(´DATA´).AsDateTime := dtInicial.DateTime; ou qConsulta.Parameters.ParamByName(´DATA´).AsDate := dtInicial.DateTime; se não der certo use a função cast() do sql para formatar a data - não tenho como ver a sintaxe agora.


Vc tentou passar assim? 
qConsulta.Parameters.ParamByName(´DATA´).AsDate:=  FormatDateTime(´mm/dd/yyyy´, dtInicial.DateTime)



Responder

Gostei + 0

10/01/2008

Eric.miranda

Valeu galera..mas nenhuma das soluções aí funcionou..
continua dando o mesmo problema....

:oops: :oops:


Responder

Gostei + 0

10/01/2008

Djjunior

SELECT * FROM LIGACOESRECEBIDAS WHERE CAST( ????, DATA ) = :data

Dê uma olhada no books Online a sintaxe do cast ou convert, ai vai dar certo


Responder

Gostei + 0

14/01/2008

Emerson Nascimento

tente algo como:
procedure TForm1.Button1Click(Sender: TObject);
var SQL : String;
begin
  SQL := ´SELECT * FROM LIGACOESRECEBIDAS WHERE DATA =:DATA´;
  qConsulta.Close;
  qConsulta.SQL.Clear;
  qConsulta.SQL.Add(SQL);
  qConsulta.Parameters.ParamByName(´DATA´).AsSQLTimeStamp := dtInicial.DateTime;
  qConsulta.Open;
end;



Responder

Gostei + 0

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

Aceitar