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

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

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