dbgrid llenado de datos

[[Caral]]

Vamos a ver tal vez lo del filtro no te funciono, otra solucion.
Coloca esta vez dos query, uno obtendra, los datos para llenar el combobox y el otro colocara la informacion filtrada en el dbgrid asi:
Primer query: Coloca informacion combo:

Código Delphi [-]
AdoQuery1.SQL.Text := 'Select PRODUCTO1 From ARTIC';
   AdoQuery1.Active := True;
   While not AdoQuery1.Eof do
   begin
      Combobox1.Items.Add(AdoQuery1.Fields[0].Text);
      AdoQuery1.Next;
   end;

Segundo query: Coloca informacion filtrada en dbgrid:
Nota: este segundo query, tiene que tener un datasource ligado y este datasource tiene que estar ligado al dbgrid.

Código Delphi [-]
ADOQuery2.Active:= False;
  ADOQuery2.SQL.Text:= 'SELECT * From ARTIC';
  ADOQuery2.SQL.Add('WHERE (((ARTIC.PRODUCTO1)="'+Combobox1.Text+''"'));
  ADOQuery2.Active:= True;

Espero te sirva
Saludos

[emenchi34]

creo que tienes un error en la siguiente sentencia:

ADOQuery2.SQL.Add('WHERE (((ARTIC.PRODUCTO1)="'+Combobox1.Text+''"'));

[[Lepe]]

Código Delphi [-]
ADOQuery2.Active:= False;
  ADOQuery2.sql.clear;  
  ADOQuery2.SQL.Add('SELECT * From ARTIC');
  ADOQuery2.SQL.Add('WHERE ARTIC.PRODUCTO1 = '+ QuotedStr(Combobox1.Text));
  ADOQuery2.Active:= True;

Prueba así. Quizás en lugar de comillas dobles, necesites comillas simples.

Para no liarte introduciendo varias comillas simples, he usado QuotedStr. Deberás usarlo si artic.producto1 está declarado como un string en la base de datos.

Saludos