Autor Tema: Mostrar Datos en un Grid  (Leído 3457 veces)

0 Usuarios y 1 Visitante están viendo este tema.

javierjava

  • Kilobyte
  • **
  • Mensajes: 69
  • Reputación: +6/-0
    • Ver Perfil
Mostrar Datos en un Grid
« en: Mayo 13, 2010, 06:28:00 pm »
Tengo una base de datos  con varios nombre y un numero lo que quiero es hacer q los nombres salga en horizontal y los numero que corresponde a cada nombre salga en vertical en un Grid


Ejemplo

Tabla

Nombre                 Número
A 1 
A5
B8
B9
C4
C1
C2   


ABC
184
591
    2   

Espero que alguien me ayude gracias  :'(

      

YAcosta

  • Moderador Global
  • Exabyte
  • *****
  • Mensajes: 2853
  • Reputación: +160/-38
  • Daddy de Qüentas y QüeryFull
    • Ver Perfil
    • Personal
Re:Mostrar Datos en un Grid
« Respuesta #1 en: Mayo 16, 2010, 01:25:42 am »
No lo he probado pero creo que lo que buscas esta por aqui

http://www.aulaclic.es/sql/t_7_1.htm
Me encuentras en YAcosta.com

ssccaann43

  • Moderador
  • Terabyte
  • *****
  • Mensajes: 970
  • Reputación: +97/-58
    • Ver Perfil
    • Sistemas Nuñez, Consultores y Soporte, C.A.
Re:Mostrar Datos en un Grid
« Respuesta #2 en: Mayo 17, 2010, 04:50:34 pm »
Alli tiene exactamente lo que busca... Ahora solo debe cargar el Query a un listview o un Datagrid, no importa el control que use...!
Miguel Núñez.

javierjava

  • Kilobyte
  • **
  • Mensajes: 69
  • Reputación: +6/-0
    • Ver Perfil
Re:Mostrar Datos en un Grid
« Respuesta #3 en: Mayo 17, 2010, 05:58:02 pm »
Gracias por las respuestas pero use este código 
lo dejo aquí por si alguien lo necesita

Código: (vb) [Seleccionar]
    Dim strSQL As String
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strNombre As String
    Dim i As Integer
   
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                    App.Path & "\Prueva.mdb"

   
    strSQL = "SELECT Nombre, Numero" & vbNewLine
    strSQL = strSQL & "FROM tabla1" & vbNewLine
    strSQL = strSQL & "ORDER BY Nombre"
   
    rs.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
   
     
    With Grilla
        .Cols = 2
        .Rows = 1
    Do Until rs.EOF
        If strNombre <> rs("nombre") Then
            strNombre = rs("nombre")
            .Cols = .Cols + 1
            .TextMatrix(0, .Cols - 1) = strNombre
            i = 0
        End If
       
        i = i + 1
        If .Rows <= i Then
            .Rows = .Rows + 1
        End If
        .TextMatrix(i, .Cols - 1) = rs("numero")
        rs.MoveNext
    Loop

    End With

Modificación moderador: Así se ve mejor...!   ;)
« última modificación: Mayo 17, 2010, 06:03:18 pm por ssccaann43 »