Fórum Consulta Objeto Query #151075
01/04/2003
0
Empresa := StrToInt(EdtFornecedor.Text);
Documento := EdtDocOrigem.Text;
DataMovimento := StrToDate(EdtDataMovto.Text);
SQL1 := FormatDateTime(´´ And Data_Movto = ´dd´/´mm´/´yyyy´´,DataMovimento);
SQL := Format(´Select * from Entrada where Fornecedor_ID = ¬s And Doc_Origem = ¬s´, [EdtFornecedor.Text,EdtDocOrigem.Text]);
SQL := SQL + SQL1;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(SQL);
os componentes edtfornecedor e edtdocorigem sao DBEdit
Paulo Oliveira
Curtir tópico
+ 0Posts
01/04/2003
Wallace
Se fosse vc faria diferente. Veja bem, o formato da data depende de configuracao do banco. Eu recomendo definir parametros da consulta e depois alimenta-los com Parambyname. Veja:
Query1.SQL.Text:=
´Select * from Entrada ´ +
´where Fornecedor_ID = :IdFornecedor ´ +
´ And Doc_Origem = :doc_origem ´ +
´ And Data_Movto = :data_movto´;
Query1.SQL.Parambyname(´IdFornecedor´).AsInteger:= ...;
Query1.SQL.Parambyname(´doc_origem´).AsString:= ...;
Query1.SQL.Parambyname(´data_movto´).AsDateTime:= ...;
Query1.Open;
Caso queira insistir com o seu código e se Doc_Origem é um campo string, entao acrescente aspas na hora de monta a string.
Gostei + 0
02/04/2003
Paulo Oliveira
Amigo fiz do jeito que recomendou mas acusa o erro:
[Error] SceB0201.pas(1065): Undeclared identifier: ´Parambyname´
pode continuar me ajudando?
Gostei + 0
02/04/2003
Allen74
Onde Está escrito:
Query1.SQL.Parambyname ....
o correto é:
Query1.ParamByName ....
Gostei + 0
02/04/2003
Paulo Oliveira
ja foi corrigido e funcionou...
obrigado...
alias muito obrigado...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)