dbgrid llenado de datos

[[Caral]]

Hola emenchi34
Esto es muy facil, haciendo un filtro a la tabla o query y usando un combobox sencillo.
Tienes un DBgrid, este esta conectado a un Query, la cual tiene campos, Bueno.
1- Colocamos un query nuevo en el form para que coloque la informacion en el combobox asi:

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

Con esto vemos el contienido del campo en el combobox1.
Ahora vamos a filtrar la informacion.
1- Queremos que aparezca en el grid lo que filtre el combobox hacemos esto:

Código Delphi [-]
    TuTabla.Filter := 'TuCampo = '+QuotedStr(Combobox1.Text);
    TuTabla.Filtered := True;

Con esto filtramos lo que este en el combobox y lo colocamos en el dbgrid, por supuesto TuTabla tiene que estar conectada al datasorce y este al dbgrid.
Espero que lo entiendas.
Saludos

[emenchi34]

bueno voy a ver si me resulta.... gracias caral...

[[Lepe]]

Un apunte al primer código de caral:

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

Usando Enable/Disable Controls permite que un bucle normal de 5 segundos de ejecución, se ejecute en menos de medio segundo.

Saludos.

[[Caral]]

Hola Lepe
Gracias por mejorar el codigo, de eso se trata, de aprender, me parece muy bien
Saludos

[emenchi34]

holasss les comento que con el combobox no he tenido inconvenientes.. en cambio los problemas los tengo cuando quiero hacer la insercion en el dbgrid

Repasando:
tengo un combobox en el cual visualizo un campo determinado de mi tabla (campo=PRODUCTO1) (tabla=ARTIC). una vez seleccionado el producto en el combobox, atraves de un boton tendria que insertar en el dbgrid PRODUCTO1,PRECIO,CATEGORIA;todos pertenecientes a la tabla ARTIC... trate de implemetar lo escrito por caral y no me dio resultado.. quizas este errado en algo....

[[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+''"'));

[[Caral]]

Hola emenchi34
Cuando resulte, que es un hecho, porque asi lo hago y funciona, por favor indicalo en otra nota, asi, cuando alguien mas vea esta, no se quedara con la duda, es bueno que si se hacierta con la duda, se de a conocer el resultado fina, recuerda que estos foros los ven muchas otras personas y talvez con las mismas dudas.
Saludos