Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: javierjava 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 :'(
-
No lo he probado pero creo que lo que buscas esta por aqui
http://www.aulaclic.es/sql/t_7_1.htm (http://www.aulaclic.es/sql/t_7_1.htm)
-
Alli tiene exactamente lo que busca... Ahora solo debe cargar el Query a un listview o un Datagrid, no importa el control que use...!
-
Gracias por las respuestas pero use este código
lo dejo aquí por si alguien lo necesita
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...! ;)