Fórum Consulta SQL com campo da tabela com conteúdo do combobox #618247
17/06/2022
0
Estou fazendo uma rotina de consulta com um Edit e um ComboBox.
O usuário digita no Edit o item e seleciona na ComboBox o campo da tabela a ser pesquisado que contenha esse item.
Preciso alterar na cláusula Where dessa SQL.
with Query_Ativos do
begin
close;
sql.Clear;
sql.Add('select IDATIVO, IDETIQUETA, IDHOST, IDLOCAL, LOCAL, COLABORADOR,');
sql.Add('TIPO, MARCA, MODELO, DISCO, STATUS, VALOR, CUSTO, CLASSE, EMPRESA, SERIAL ' );
sql.Add('from ativos ');
sql.Add('where "Conteúdo do ComboBox " like :ppesquisa);
ParamByname('ppesquisa').AsString := UpperCase('%'+Edit_Pesquisa.Text+'%');
Exec.Sql;
end;
Agradeço desde já qualquer orientação.
Paulo Cavalcanti
Curtir tópico
+ 0Post mais votado
17/06/2022
with Query_Ativos do
begin
close;
sql.Clear;
sql.Add('select IDATIVO, IDETIQUETA, IDHOST, IDLOCAL, LOCAL, COLABORADOR,');
sql.Add('TIPO, MARCA, MODELO, DISCO, STATUS, VALOR, CUSTO, CLASSE, EMPRESA, SERIAL ' );
sql.Add('from ativos ');
sql.Add('where ' + ComboBox.Text + ' like :ppesquisa');
paramByname('ppesquisa').AsString := UpperCase('%'+Edit_Pesquisa.Text+'%');
open; // para apresentar registros use open
end;Emerson Nascimento
Gostei + 1
Mais Posts
17/06/2022
Paulo Cavalcanti
with Query_Ativos do
begin
close;
sql.Clear;
sql.Add('select IDATIVO, IDETIQUETA, IDHOST, IDLOCAL, LOCAL, COLABORADOR,');
sql.Add('TIPO, MARCA, MODELO, DISCO, STATUS, VALOR, CUSTO, CLASSE, EMPRESA, SERIAL ' );
sql.Add('from ativos ');
sql.Add('where ' + ComboBox.Text + ' like :ppesquisa');
paramByname('ppesquisa').AsString := UpperCase('%'+Edit_Pesquisa.Text+'%');
open; // para apresentar registros use open
end;Boa noite Emerson.
Obrigado.
Gostei + 0
18/06/2022
Paulo Cavalcanti
with Query_Ativos do
begin
close;
sql.Clear;
sql.Add('select IDATIVO, IDETIQUETA, IDHOST, IDLOCAL, LOCAL, COLABORADOR,');
sql.Add('TIPO, MARCA, MODELO, DISCO, STATUS, VALOR, CUSTO, CLASSE, EMPRESA, SERIAL ' );
sql.Add('from ativos ');
sql.Add('where ' + ComboBox.Text + ' like :ppesquisa');
paramByname('ppesquisa').AsString := UpperCase('%'+Edit_Pesquisa.Text+'%');
open; // para apresentar registros use open
end;Boa noite Emerson.
Obrigado.
Gostei + 0
18/06/2022
Paulo Cavalcanti
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)