Consulta Objeto Query

Delphi

01/04/2003

Amigos! Alguem poderia me ajudar a descobrir o que esta errado:

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

Paulo Oliveira

Curtidas 0

Respostas

Wallace

Wallace

01/04/2003

Paulo,

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
Paulo Oliveira

Paulo Oliveira

01/04/2003

Amigo Wallace, hoje que vi sua resposta e muito obrigado...

Amigo fiz do jeito que recomendou mas acusa o erro:

[Error] SceB0201.pas(1065): Undeclared identifier: ´Parambyname´

pode continuar me ajudando?


GOSTEI 0
Allen74

Allen74

01/04/2003

Só tem um pequeno erro no código do Wallace:

Onde Está escrito:

Query1.SQL.Parambyname ....

o correto é:

Query1.ParamByName ....


GOSTEI 0
Paulo Oliveira

Paulo Oliveira

01/04/2003

E verdade Allen74!
ja foi corrigido e funcionou...
obrigado...
alias muito obrigado...


GOSTEI 0
POSTAR