Ir para conteúdo
Fórum Script Brasil
  • 0

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


pangare

Pergunta

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 por pangare
Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0

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;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...