Fórum Filtro com Data como? Aonde está o erro? #340380
14/04/2007
0
Oque pode ser? Aonde estou errando.
Se o campo Data_Recadastramento existe.
_DM.IBQDATA_RECADASTRAMENTO.Open;
DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;
with _DM.IBQDocumentacao do
begin
Close;
Sql.Clear;
Sql.Add(´select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO :DataRecadastramento´);
ParamByName(´DATA_RECADASTRAMENTO´).AsString := DataRecadastramento;
Open;
if IsEmpty then
MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0);
end;
Max2006
Curtir tópico
+ 0Posts
14/04/2007
Marco Salles
FaltaSinal : Pode ser igau , maior , menor , maior ou igual etc.... Falta Uma Data Valida : Pode ser a Data atua (date)
Gostei + 0
14/04/2007
Max2006
//Eu estou pegando esta data de um outra tabela e colocando numa variável ´DataRecadastramento.
DataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;
with _DM.IBQDocumentacao do
begin
Close;
Sql.Clear;
//Coloquei o sinal está certo?
Sql.Add(´select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO >=: DataRecadastramento´);
ParamByName(´DATA_RECADASTRAMENTO´).AsString := DataRecadastramento;
Open;
if IsEmpty then
MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0);
Gostei + 0
14/04/2007
Marco Salles
with _DM.IBQDocumentacao do
begin
Close;
Sql.Clear;
//Coloquei o sinal está certo? :arrow: :arrow: [b:5c0e97a17b]Sim mas junte os dois pontos[/b:5c0e97a17b]
Sql.Add(´select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO >=:[b:5c0e97a17b]pDataRecadastramento[/b:5c0e97a17b]´);
ParamByName([b:5c0e97a17b]pDataRecadastramento[/b:5c0e97a17b]´).AsString := DataRecadastramento;
Open;
if IsEmpty then
MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0);
so mude o nome do Parametro para [b:5c0e97a17b]p[/b:5c0e97a17b]DataRecadastramento , para não confudir com o dado a ser comparado DataRecadastramento
So isso...
Gostei + 0
14/04/2007
Max2006
Eu estava tentando resolver isto á semanas...
Es o código para quem tem alguma dúvida sobre isto...
//_DMdm.IBQDocumentacao
_DM.IBQDATA_RECADASTRAMENTO.Open;
pDataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsString;
with _DM.IBQDocumentacao do
begin
Close;
Sql.Clear;
Sql.Add(´select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO >=:pDataRecadastramento´);
ParamByName(´pDATARECADASTRAMENTO´).AsString := pDataRecadastramento;
Open;
if IsEmpty then
MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0);
end;
_DM.IBQDocumentacao.Open;
Gostei + 0
14/04/2007
Max2006
Já verifiquei a data no banco de dados e está tudo oK...
Eu quero que amostre todos os registro que sejam maiores ou iguais a data de recadastramento mas agora para funcionar eu tenho que botar o sinal de de menor para funcionar.
Alguem tem alguma ideia sobre oque pode estar acontecendo?
with _DM.IBQDocumentacao do
begin
Close;
Sql.Clear;
Sql.Add(´select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO <:pDataRecadastramento´);
ParamByName(´pDATARECADASTRAMENTO´).AsString := pDataRecadastramento;
Open;
if IsEmpty then
MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0);
end;
_DM.IBQDocumentacao.Open;
Gostei + 0
14/04/2007
Max2006
_DM.IBQDATA_RECADASTRAMENTO.Open;
pDataRecadastramento:= _DM.IBQDATA_RECADASTRAMENTO.fieldbyname(´DATA_RECADASTRAMENTO´).AsDateTime;
with _DM.IBQDocumentacao do
begin
Close;
Sql.Clear;
Sql.Add(´select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO >=:pDataRecadastramento´);
ParamByName(´pDATARECADASTRAMENTO´).AsDate := pDataRecadastramento;
Open;
if IsEmpty then
MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0);
end;
_DM.IBQDocumentacao.Open;
Gostei + 0
14/04/2007
Adriano_servitec
with _DM.IBQDocumentacao do begin Close; Sql.Clear; Sql.Add(´select * from DOCUMENTACAO WHERE DATA_RECADASTRAMENTO >=:pDataRecadastramento´); ParamByName(´pDataRecadastramento´).AsDate := strtodate(maskedit1.text); Open; if IsEmpty then MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0); end;
Gostei + 0
15/04/2007
Marco Salles
se prestar atenção na sugestão que lhe passei , [u:07dd2ad9d0]esta diferente[/u:07dd2ad9d0]:
Gostei + 0