Query com condição, com dado externo...?

Delphi

30/03/2007

_DM.IBQDATA_RECADASTRAMENTO.Active:= True;
DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;
_DM.IBQDocumentacao.ParamByName(´valor1´).asstring := DataRecadastramento;

select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO = ´DataRecadastramento´ ORDER BY NOME_PESSOA;

A variável DataRecadastramento e de uma outra tabela eu pego o valor dessa tabela copio para uma variável coloco a variável no parametro da query coloco a variável no select e executo, oque falta.?

Oque estou errando....


Max2006

Max2006

Curtidas 0

Respostas

Max2006

Max2006

30/03/2007

_DM.IBQDATA_RECADASTRAMENTO.Active:= True;
DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;

DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;


No SQL da Query ficou assim: select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO = ´DataRecadastramento´ ORDER BY NOME_PESSOA;

_DM.IBQDocumentacao.ParamByName(´DATA_RECADASTRAMENTO´).asstring := DataRecadastramento;
_DM.IBQDocumentacao.Open;

Informa que paramentro ´DataRecadastramento´ não encontrado oque devo vazer...


GOSTEI 0
Alexandreb

Alexandreb

30/03/2007

Está errado!!! Faça assim:

_DM.IBQDATA_RECADASTRAMENTO.Active:= True;
DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;

DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;


No SQL da Query ficou assim: select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO = QuotedStr(DataRecadastramento) ORDER BY NOME_PESSOA;


_DM.IBQDocumentacao.Open;


É que seu campo é do tipo string, mas se o seu campo data cadastramento fosse do tipo date, ficaria assim:




_DM.IBQDATA_RECADASTRAMENTO.Active:= True;
DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsDate;

DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsDate;


No SQL da Query ficou assim: select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO = :DataRecadastramento ORDER BY NOME_PESSOA;

_DM.IBQDocumentacao.ParamByName(´DataRecadastramento´).AsDate := DataRecadastramento;
_DM.IBQDocumentacao.Open;


T+


GOSTEI 0
POSTAR