Delphi Mysql LIKE
Uso Delphi 7 e mysql 5
Tenho um select onde o usuário escolhe através do form o que deseja imprimir.
Ex: na tabela Profissão tem dos campos ProfissaoId e NomeProfissao
uma variável recebe o que ele deseja, Ex:
if checkBox1.checked = true // escolheu imprimir todas as profissoes
situacao:= %
else
situacao:= ComboBox.Text
o problema tá em como montar o select, fiz assim mas não deu certo
...
Query.Sql.Add(Where p.Profissao Like :cond);
Query.Params[0].DataType := ftString;
Query.Params[0].Value := situacao;
Tenho um select onde o usuário escolhe através do form o que deseja imprimir.
Ex: na tabela Profissão tem dos campos ProfissaoId e NomeProfissao
uma variável recebe o que ele deseja, Ex:
if checkBox1.checked = true // escolheu imprimir todas as profissoes
situacao:= %
else
situacao:= ComboBox.Text
o problema tá em como montar o select, fiz assim mas não deu certo
...
Query.Sql.Add(Where p.Profissao Like :cond);
Query.Params[0].DataType := ftString;
Query.Params[0].Value := situacao;
Claudivan Lopes
Curtidas 0
Respostas
Bruno Leandro
13/05/2012
qual tipo informação tem no ComboBox.Text?
talvez desta forma possa funcionar dependendo da informação do combo
ou seja se o check estiver marcado nao terá where pois trara todos os registros, caso contrario irá pegar a descrição da profissão do combo.
if not(checkBox1.checked) then
begin
Query.Sql.Add(Where p.Profissao = :cond);
Query.Params[0].Value := ComboBox.Text;
end;
talvez desta forma possa funcionar dependendo da informação do combo
ou seja se o check estiver marcado nao terá where pois trara todos os registros, caso contrario irá pegar a descrição da profissão do combo.
if not(checkBox1.checked) then
begin
Query.Sql.Add(Where p.Profissao = :cond);
Query.Params[0].Value := ComboBox.Text;
end;
GOSTEI 0