(Resolvido) Filtro DBGrid - Delphi + Access

[mrkcristiano]

E ai galera.. beleza?

seguinte... tenho aqui um AdoConnection e um banco do Access, e to tentando fazer com que o dbgrid mostre apenas os registros que o campo ArteMarcial for igual ao item selecionado da ComboBox, to usando um Adodataset, mas ele ta me retornando o erro, por exemplo, se eu selecionar na combo uma arte marcial que não tem nenhum usuário cadastrado nela, ele me retorna "O parametro Boxe não tem o valor padrão".

Se eu colocar uma arte marcial que já possui um ou mais usuários cadastrados ele me retorna "Erro de sintaxe (operador faltando) na expressão de consulta 'Arte Marcial = Muay Thai'

Segue o código do botão 'filtrar':

ADODataSet1.Close;
  ADODataSet1.CommandText := 'SELECT * FROM Alunos WHERE ArteMarcial = '+ComboBox1.Text;
  ADODataSet1.Active := True;
  ADODataSet1.Open;

agradeço desde já!

[Jhonas]

tente

ADODataSet1.CommandText := 'SELECT * FROM Alunos WHERE ArteMarcial = '+''''+ComboBox1.Text+'''';

abraço

[mrkcristiano]

Olá, já consegui resolver, obrigado.

[Jose Juliano Silva]

Em 20/11/2011 at 13:48, mrkcristiano disse:

E ai galera.. beleza?

 

seguinte... tenho aqui um AdoConnection e um banco do Access, e to tentando fazer com que o dbgrid mostre apenas os registros que o campo ArteMarcial for igual ao item selecionado da ComboBox, to usando um Adodataset, mas ele ta me retornando o erro, por exemplo, se eu selecionar na combo uma arte marcial que não tem nenhum usuário cadastrado nela, ele me retorna "O parametro Boxe não tem o valor padrão".

Se eu colocar uma arte marcial que já possui um ou mais usuários cadastrados ele me retorna "Erro de sintaxe (operador faltando) na expressão de consulta 'Arte Marcial = Muay Thai'

 

Segue o código do botão 'filtrar':

 

 

 

ADODataSet1.Close;
  ADODataSet1.CommandText := 'SELECT * FROM Alunos WHERE ArteMarcial = '+ComboBox1.Text;
  ADODataSet1.Active := True;
  ADODataSet1.Open;

 

 

 

agradeço desde já!

como faz no dbexpress preciso disso tambem 

[Jhonas]

o comando select não muda

SELECT * FROM Tabela WHERE Campo = '+''''+ComboBox1.Text+'''';

links sobre o assunto

https://www.google.com.br/search?q=dbexpress+delphi&o que=dbexpress&gs_l=psy-ab.1.2.0i71k1l4.0.0.0.21115.0.0.0.0.0.0.0.0..0.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1..64.psy-ab..0.0.0.HmUlCgf80XQ

 

https://www.google.com.br/search?q=delphi+7+dbexpress+tutorial&o que=dbexpress+tu&gs_l=psy-ab.1.3.0i22i30k1l4.167105.173491.0.178768.5.5.0.0.0.0.127.603.0j5.5.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..0.4.495...0j0i67k1j0i10i67k1.iRBYD4ui9_0

abraço

[Leo_cj]

Eu particularmente gosto de passar os valores por parâmetros, ex:

if (ADOQuery1.Active) then
    ADOQuery1.Close;

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Campo = :ArteMarcial');
  ADOQuery1.Parameters.ParamByName('ArteMarcial').Value := QuotedStr(ComboBox1.Text);
  ADOQuery1.Open;

Acho que o código fica com maior legibilidade.