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....
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
Curtir tópico
+ 0
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...
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+
_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
Clique aqui para fazer login e interagir na Comunidade :)