Foro de elhacker.net

Private Sub Command1_Click()
Dim i As Integer
Call ConectaBase
''Realizamos la consulta
Call Consulta("Seleccion")
For i = 1 To 10
   While Not Rss.EOF
        MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
        MSFlexGrid1.TextMatrix(i, 0) = Rss.Fields("Nombre")
        MSFlexGrid1.TextMatrix(i, 1) = Rss.Fields("Direccion")
        MSFlexGrid1.TextMatrix(i, 2) = Rss.Fields("Administrador")
        MSFlexGrid1.TextMatrix(i, 3) = Rss.Fields("CelAdmin")
        MSFlexGrid1.TextMatrix(i, 4) = Rss.Fields("TelefonoSucursal")
        MSFlexGrid1.TextMatrix(i, 5) = Rss.Fields("Barrio")
        MSFlexGrid1.TextMatrix(i, 6) = Rss.Fields("HorarioEspecial")
        MSFlexGrid1.TextMatrix(i, 7) = Rss.Fields("HorarioEnt")
        MSFlexGrid1.TextMatrix(i, 8) = Rss.Fields("HorarioSal")
        MSFlexGrid1.TextMatrix(i, 9) = Rss.Fields("Comentarios")
        i = i + 1
        Rss.MoveNext
  Wend
Next i
Sub CierraConexion()
Cnn.Close
End Sub
Sub ConectaBase() 'conecta a la base de datos
'realizar sub que detecte si la conexion esta abierta
'si lo esta, cerrarla
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
Cnn.CursorLocation = adUseClient
Cnn.Open
End Sub

Private Sub Form_Load()
MSFlexGrid1.TextMatrix(0, 0) = "devfreg5555"
MSFlexGrid1.TextMatrix(0, 1) = "444444r"
MSFlexGrid1.TextMatrix(0, 2) = "efw"
MSFlexGrid1.TextMatrix(0, 3) = "wlkmdk3mdm3"
MSFlexGrid1.TextMatrix(0, 4) = "ewkmfmweo"
MSFlexGrid1.TextMatrix(0, 5) = "boboesponja"
MSFlexGrid1.TextMatrix(0, 6) = "martin liguera"
MSFlexGrid1.TextMatrix(0, 7) = "papa juan pablo"
MSFlexGrid1.TextMatrix(0, 8) = "efewf"
MSFlexGrid1.TextMatrix(0, 9) = "xD"
MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.ColWidth(1) = 1700
MSFlexGrid1.ColWidth(2) = 1800
MSFlexGrid1.ColWidth(3) = 1400
MSFlexGrid1.ColWidth(4) = 800
MSFlexGrid1.ColWidth(5) = 0
MSFlexGrid1.ColWidth(6) = 1510
End Sub