• Jueves 28 de Marzo de 2024, 17:47

Autor Tema:  Re: Desplegar Datos en un control con varias columnas  (Leído 4361 veces)

ctrdlc

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Desplegar Datos en un control con varias columnas
« en: Jueves 14 de Febrero de 2002, 20:55 »
0
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.
Saludos y Gracias.

Atentamente
CTR

JLR

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Desplegar Datos en un control con varias columnas
« Respuesta #1 en: Domingo 17 de Febrero de 2002, 21:26 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Re: Desplegar Datos en un control con varias columnas
« Respuesta #2 en: Miércoles 20 de Febrero de 2002, 19:16 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 208
    • Ver Perfil
    • http://quiqueq.blogspot.com
Re: Desplegar Datos en un control con varias columnas
« Respuesta #3 en: Domingo 24 de Febrero de 2002, 04:53 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Desplegar Datos en un control con varias columnas
« Respuesta #4 en: Domingo 24 de Febrero de 2002, 06:01 »
0
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