Consulta SQL com campo da tabela com conteúdo do combobox

SQL

17/06/2022

Boa tarde. Estou retornando a programação em Delphi e tentando aprender um pouco mais sobre SQL.
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

Paulo Cavalcanti

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

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;
GOSTEI 1

Mais Respostas

Paulo Cavalcanti

Paulo Cavalcanti

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;


Boa noite Emerson.
Obrigado.
GOSTEI 0
Paulo Cavalcanti

Paulo Cavalcanti

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;


Boa noite Emerson.
Obrigado.
GOSTEI 0
Paulo Cavalcanti

Paulo Cavalcanti

17/06/2022

Resolvido. Obrigado Emerson.
GOSTEI 0
POSTAR