GARANTIR DESCONTO

Fórum ADO - passagem de parâmetros - (Estou no desespero!!!) #176547

21/08/2003

0

Boa Tarde, quando se usa BDE, para fazer uma passagem de parâmetros, basta colocar:
ParamByName (´nome´).asstring := edit1.Text + ´¬´;

e como se faz em ADO:
estou tentando
Parameters.ParamByName (´nome´).value := edit1.Text + ´¬´;

mas não ta dando certo.

Obrigado
Rubens Saad


Analistasaad

Analistasaad

Responder

Posts

21/08/2003

Erucci

você pode usar assim:

parameters[0]
parameters[1]

[]´s

luís erucci


Responder

Gostei + 0

21/08/2003

Analistasaad

na hora que tiro o Parameters da o erro:
[Error] uBuscaProd.pas(53): Undeclared identifier: ´ParamByName´

Olhem só o código:

with DM.qryBuscaProd do
begin
dm.cdsBuscaProd.Close;
Close;
Parameters.ParamByName (´desc´).value := edit1.Text + ´*´;
dm.cdsBuscaProd.Open;
if dm.cdsBuscaProd.Eof then
begin
ShowMessage(´Nenhum produto encontrado!´);
edit1.SelectAll;
end;
end;


Rubens Saad


Responder

Gostei + 0

21/08/2003

Marcelo.c

No seu código, aparentemente há um espaço entre ParamByName e o parênteses.


Responder

Gostei + 0

21/08/2003

Analistasaad

também não é o espaço. existe dados a serem buscados mas ele informa: Como se não tivesse nada!!
´Nenhum produto encontrado´

with DM.qryBuscaProd do
begin
dm.cdsBuscaProd.Close;
Close;
Parameters.ParamByName(´desc´).value := edit1.Text + ´*´;
dm.cdsBuscaProd.Open;
if dm.cdsBuscaProd.Eof then
begin
ShowMessage(´Nenhum produto encontrado!´);
edit1.SelectAll;
end;
end;


Responder

Gostei + 0

21/08/2003

Marcelo.c

Bem, parece que já melhorou, qual o código SQL utilizado na Query ?


Responder

Gostei + 0

21/08/2003

Analistasaad

select * from clientes where nome like :nome
order by nome, cidade

cara que trem loco, quando tava no BDE tava funcionando!!!
e eu tenho que entregar esse trem hj (tô no desespero)
Rubens Saad


Responder

Gostei + 0

21/08/2003

Marcelo.c

Aparentemente o código SQL está OK.

Tente substituir o [b:49084cb45b]*[/b:49084cb45b] pelo sinal de [b:49084cb45b]¬[/b:49084cb45b] na passagem do parâmetro.

Ah, analisando novamente a passagem do parâmetro notei que você deve passar o seguinte:

QuotedStr(Edit1.Text+´¬´)



Responder

Gostei + 0

21/08/2003

Analistasaad

isso eu ja fiz, mas dá certo só que ele retorna dizendo que não existe produto!!! o que na verdade existe.

Rubens Saad


Responder

Gostei + 0

21/08/2003

Marcelo.c

Eu editei o Post, dê uma olhada.


Responder

Gostei + 0

21/08/2003

Analistasaad

Nóóóóóóóóóó, funcionou com a ajuda de vcs:

o seguinte:

with DM.qryBuscaCliente do
begin
dm.cdsBuscaCliente.Close;
Close;
Parameters.ParamByName(´nome´).Value := edit1.Text+´¬´;
dm.cdsBuscaCliente.Open;
if dm.cdsBuscaCliente.Eof then
begin
ShowMessage(´Nenhum cliente encontrado!´);
edit1.SelectAll;
end;

São os detalhes...


Obrigado a todos, e precisando estamos ai!!!

Rubens Saad


Responder

Gostei + 0

21/08/2003

Marcelo.c

Ia mencionar isso agora. O nome do parâmetro é ´nome´ e não ´desc´.


Responder

Gostei + 0

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

Aceitar