ActiveDelphi

[andreluis78]

Olá a todos !

Estou com a seguinte dúvida :

Estou utilizando banco firebird e gostaria de usar uma query que recebesse parâmetros dentro de um componente ZQuery. onde o campo a ser verificado pela cláusula WHERE, fosse verificado em tempo de execução

Tentei utilizar o seguinte código sql dentro na propriedade parâmentro do componente :

select * from clientes where :param like :valor order by :param

o parâmetro "0" (:param) receberia o campo que deseja pesquisar na tabela, e o parâmetro "1" (:valor), receberia o valor digitado no edit1.text

e no delphi passo os seguintes parâmetros para testar :

dm_dados.qry_select_clientes.Close;
dm_dados.qry_select_clientes.Params[0].Value := 'nome';
dm_dados.qry_select_clientes.Params[1].Value := '%'+Edit1.text+'%';
dm_dados.qry_select_clientes.Open;

O que ocasiona em erro .

Gostaria de saber se a sintaxe do comando SQL está incorreta.

Obrigado

[natanbh1]

Qual erro aparece?

Repare que você cria 3 parâmetros mas só alimenta 2.

Teste assim:

[andreluis78]

Olá natanbh1, não deu certo.

Deu o mesmo erro : Dynamic SQL error code -804 Data type unknown
An error was found in the application program input parameters for the SQL statement.

[natanbh1]

Creio que o erro aconteça porque não se pode definir o nome do campo como parâmetro, somente valores.

Uma alternativa seria fazer tudo em tempo de execução.

Exemplo:

[andreluis78]

Agora deu outro erro :
List index out of bounds (0)

creio que não reconheceu o parâmetro

[natanbh1]

Retire o parâmetro para teste:

[andreluis78]

Pessoal, consegui resolver, em partes, da seguinte maneira :

qry_select_clientes.Close;
teste := '%'+ed_consulta.Text+'%';
qry_select_clientes.SQL.Text := 'select * from clientes where nome like :valor';
qry_select_clientes.ParamCheck := true;
qry_select_clientes.ParamByName('valor').DataType := ftString;
qry_select_clientes.ParamByName('valor').Value := teste;
qry_select_clientes.Active := true;

porém .... nos nomes com valor nulo não aparecem na pesquisa.
Tentei utilizar (na 3a linha) :

qry_select_clientes.SQL.Text := 'select * from clientes where coalesce(nome,'') like :valor';

Porém, com o "coalesce" ele dá um erro : Parameter 'valor' not found.

Alguém ai sabe como utilizar o coalesce nesse caso ?

[andreluis78]

Olá natanbh1

Dessa forma também funcionou !!!

Porém também não retorna resultados com valor nulo, e se eu utilizo o where coalesce (nome,'') ... também dá erro.

Para finalizar, poderia me ajudar a mostrar também os registros com valor nulo ???

[andreluis78]

Olá natanbh1, consegui resolver.

Em vez de utilizar coalesce(nome,'') tentei com coalesce(nome,'''')

Muito Obrigado pela sua ajuda