Nuevo Foro de programacion
0 Usuarios y 1 Visitante están viendo este tema.
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