dbgrid llenado de datos

[emenchi34]

Holasss!!
estoy trabajando con un dbgrid y un dblookupcomobox y la idea es de que una vez halla seleccionado uno de los items del combobox me aparezca no solo ese item del combobox sino todos los demas que acompañan a la respectiva fila en la tabla.. en el dbgrid no veo muchas opciones para config. solo un datasource.. pero me pone todos los datos de la tabla .....SOS!!

[Rayku]

La Propiedad listsource Del combo Y La Propiedad datasource Del grid Deben Ser Iguales (apuntar Al Mismo dataset)

[emenchi34]

si de hecho apuntan al mismo dataset.. pero me despliega todos los datos de la tabla en el grid....

[Rayku]

MIRA SI EN EL COMBO TIENES DATOS Y SEGUN LO Q SELECCIONAS DESEAS QUE EN EL GRID SE MUESTREN SOLO LOS Q INTERESAN

NECESITAS DOS DATA SET UNO PARA EL COMBO Y OTRO PARA EL GRID

EN EL EVENTO ONDATACHANGE DEL DATASET DEL COMBO, DEBES CONSULTAR/ FILTRAR LO QUE DESEAS EN EL GRID

ESPERO ESO SIRVA rayku19@hotmail.com

[[Bicho]]

Por favor respetad la Guía de estilo y no escribais en mayúsculas.



Saludos

[Rayku]

ok Bicho, es q soy nuevo en esto

[[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

[[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