Programación General > Visual Basic 6.0 e inferiores

 Re: Desplegar Datos en un control con varias columnas

(1/1)

ctrdlc:
Hola a todos
 Estoy desarrollando una pequeña aplicacion pero tengo un problema al desplegar datos de consulta. Necesito saber si un control combo me desplega al hacer clic sobre el,  los Datos de una Tabla en diferentes columnas. o si debo utilizar otro control.

JLR:
Un combo solo desplega una columna.
Para ver todas las columnas usa un Grid de los que vienen en vb (datagrid, MsflexGrid, etc ) o el data repiter.
Un saludo
JLR

joviedo:
Parece que quieres hacer como los formularios de access, estos no es posible ya que los combos solo  muestran una fila o columna, la opcion que te queda es usar el datagrid o flexgrid, solo que ellos te muestran en celdas como excel.

Saludos.

john oviedo

chimps:
Tambien podes usar el control ListView. Lo siguiente en un ejemplo:

'Declarar la variable
Dim lstxList As ListItem

'Abrir base de datos
    Set db = OpenDatabase(App.Path & "/memo.mdb")
    Set rs = db.OpenRecordset("Informacion", dbOpenTable)

'If registro por registro y agregar los registros al ListView
    Do While Not rs.EOF
        name = rs!Nombre
        url = rs!URL
        Set lstxList = ListView.ListItems.Add(, , name)
        'Esto sirve para agregar una item nuevo al lado de la columna principal, o sea, una subitem  
        lstxList.SubItems(1) = url
       
        'ir al proximo registro
        rs.MoveNext
    Loop

Alberto:
Esta parte de código te permite simular un combobox de access cuando la información se extrae desde una tabla:
Inclye dos combobox (prod_id y combo2 en el ejemplo)

   'indicar la consulta a obtener
   mySql = "Select Prod_idno, Prod_NOMB from productos where Pues_idno=" & cate_id.List(Combo1.ListIndex)
   'Generar la consulta
   Set qryGen = mpanDB.OpenRecordset(mySql, dbOpenDynaset)
   'Evitar trap error por consulta vacia
   If Not qryGen.EOF Then
      'Ir al primer registro
      qryGen.MoveFirst
      'estructura para envolver los registros
      While Not qryGen.EOF
            'incluir la informacion correspondiente en los combos
            prod_id.AddItem qryGen!prod_idno
            Combo2.AddItem qryGen!prod_nomb
            qryGen.MoveNext
      Wend
   End If

Navegación

[0] Índice de Mensajes