Fórum Query com condição, com dado externo...? #339678

30/03/2007

0

_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

Responder

Posts

30/03/2007

Max2006

_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...


Responder

Gostei + 0

30/03/2007

Alexandreb

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+


Responder

Gostei + 0

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

Aceitar