4 respuestas en este tema

[Nathán]

Hola,
Soy principiante en la programación.
Tengo un pequeño proyecto de realizar un pequeño software para un mariposario.
tengo un form de facturación.
La base de datos está realizada en My SQL 5.0 y ya está llena, tengo una tabla que se llama "Productos" (con los siguientes campos: Tipo, Nombre, Código, Especie...)  en donde se encuentran los productos que vende el mariposario.
Ya tengo el AdoConnection, el AdoQuery y un DataSource.
inserté un DbComboBox en el form de facturación.El AdoQuery ya tiene la conexión y en el SQL del adoQuery hice la siguiente consulta:

select nombre from productos; (para que seleccione el campo "Nombre" de la tabla "Productos)

En las propiedades del DbComboBox  data source  lo ligué al data source que ya tengo creado. y en data field  lo tengo ligado a "Nombre" de la tabla Productos realizada en MySql.
pero sólo me aparece un producto, no me aparecen los demás nombres de los productos en la lista desplegable y no sé como hacer que se muestre toda la lista de productos.

por favor si alguién me puede ayudar se lo agradecería mucho.

Saludos

[andres1569]

Hola,

Si lo que quieres es simplemente mostrar todos los productos que te devuelve la consulta, ligala a un TDBGrid, mediante las mismas propiedades.

Y si lo que quieres es asignar un producto de la tabla de Productos a un campo de otra tabla, en ese caso debes usar un control TDBLookupComboBox, tomando DataSource y DataField de esta última tabla, y apuntando las propiedades ListSource, KeyField y ListField a la tabla de productos (en este caso KeyField apuntaría al campo clave de la tabla de productos ¿Codigo?, y ListField apuntaría al campo Nombre)


Saludos

[Caral]

Hola

1-Coloca un Combobox NORMAL.

2-Coloca esta sentencia donde lo requieras:

delphi

  AdoQuery1.SQL.Text := 'Select Distinct Nombre From Productos';
  AdoQuery1.Active := True;
   While not AdoQuery1.Eof do
   begin
   Combobox1.Items.Add(AdoQuery1.Fields[0].Text);
   AdoQuery1.Next;
   end;

Saludos

[Nathán]

Gracias, voy a probar amigos.
Se les agradece el aporte......     

[Nathán]

Ya pude agregar los datos..
Gracias por el aporte.