(Resolvido) [erro no código] bitbtn+sql

[pangare]

meu código fico assim:

var sql : string;

begin

sql := 'SELECT *from tabela12 where nome like "%' + edit1.text + '%"';

qry.Close; //fechar a qry

qry.SQL.clear; // limpa a qry se tem dados dentro

qry.SQL.Add(sql); //adiciona a variavel sql

qry.Open; //executa e lista os dados da qry

end;

end.

quando executei rodou normal ai quando fui pesquisar deu o seguinte erro:

project pesquisa.exe raised exception class EOleException with message 'parameter nome has no default value'.process stopped.use Step or run to continue

então um amigo me propos o seguinte código:

var sql : string;

begin

qry.Close;

qry.SQL.clear;

qry.SQL.Add('SELECT *from clientes where nome like :nome');

qry.param[0].value := ou qry.parans[0].value := '%' + Edit.text + '%'; ERRO:

qry.Open;

end;

seria um comando para pesquisar com bitbtn em um sql com ADO,ocorre o erro na linha erro,não consegui encontrar o problema na linha!

Editado Dezembro 21, 2009 por pangare

[Jhonas]

Correção do código

procedure TForm1.Button1Click(Sender: TObject);
var sql : string;
begin
   sql := 'SELECT * from tabela12 where nome like %' + edit1.text + '%';
   qry.Close; //fechar a qry
   qry.SQL.clear; // limpa a qry se tem dados dentro
   qry.SQL.Add(sql); //adiciona a variavel sql
   qry.Open; //executa e lista os dados da qry
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   qry.Close;
   qry.SQL.clear;
   qry.SQL.Add('SELECT * from clientes where nome like :nome');
   qry.params[0].value := '%' + Edit1.text + '%';
   qry.Open;
end;

abraço

[pangare]

o primeiro código rodou perfeitamente :D

muito obrigado,mas infelizmente quando executo o programa e vou pesquisar a seguinte mensagem de advertencia alerta

Project pesquisa.exe raised exception class EOLeException with message 'syntax error in query expression 'nome like %a%".Process stopped.use Step or Run to continue

[Jhonas]

o primeiro código rodou perfeitamente

muito obrigado,mas infelizmente quando executo o programa e vou pesquisar a seguinte mensagem de advertencia alerta

Project pesquisa.exe raised exception class EOLeException with message 'syntax error in query expression 'nome like %a%".Process stopped.use Step or Run to continue

Se voce está se referindo ao segundo código:

procedure TForm1.Button1Click(Sender: TObject);
begin
   qry.Close;
   qry.SQL.clear;
   qry.SQL.Add('SELECT * from clientes where nome like :nome');
   qry.params[0].value := '%' + Edit1.text + '%';
   qry.Open;
end;

tambem está funcionando direitinho

abraço

[pangare]

Não não,eu estou usando o primeiro código ambos ficaram perfeito,só ocorre a mesagem que postei no final quando vou pesquisar no arquivo já copilado no caso,se digitar qualquer palavra e pesquisar...

abraço

[Jhonas]

Não não,eu estou usando o primeiro código ambos ficaram perfeito,só ocorre a mesagem que postei no final quando vou pesquisar no arquivo já copilado no caso,se digitar qualquer palavra e pesquisar...

quando disse que tambem está funcionando direitinho, quis dizer que digito uma letra ou palavra no edit e ele faz a pesquisa corretamente .... aqui não dá nenhuma mensagem de erro.

fiz um teste aqui usando um componente Query, DataSource, DBgrid, Edit e um Botao

abraço

[Alberto Mota]

O código do Jhonas esta correto.

Fiz algumas alterações, pois o banco de dados é o sql server

E muito me ajudou, pois há tempos busco um código de pesquisa incremental.

Eis o código:

QueryAssociados.Close;

QueryAssociados.SQL.clear;

QueryAssociados.SQL.Add('SELECT * from TblAssociados where nomeassociado like :nome');

QueryAssociados.Parameters.ParamByName('nome').Value := '%' + Edit4.text + '%';

QueryAssociados.Open;

[pangare]

solucionado meu problema hehe,fail muito grave tava com meu sql errado do qry :(

a nivel de curiosidade coloquei a seguinte variavel hehe:

SELECT * from tabela12 where nome like '%Juca%'

OBRIGADO A TODOS