Descargar

Option Explicit
Public WithEvents db As rdoConnection
 
Private Sub boton_conectar_Click()
    Dim cadena_conexion
 
    cadena_conexion = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servidor & "; DATABASE=" & base_de_datos & " ;PWD=" & password & "; UID=" & usuario & ";OPTION=3"
 
    Set db = New rdoConnection
 
    db.Connect = cadena_conexion
    db.CursorDriver = rdUseServer
    db.EstablishConnection
End Sub
 
Private Sub boton_desconectar_Click()
    db.Close
End Sub
 
Private Sub db_Connect(ByVal ErrorOccurred As Boolean)
    Dim tabla As rdoTable
    Dim hay_tablas As Boolean
 
    hay_tablas = False
    cambiar_botones True
 
    For Each tabla In db.rdoTables
        tablas.AddItem tabla.Name
        hay_tablas = True
    Next
 
    If Not hay_tablas Then
        MsgBox "La base de datos esta vacia"
        boton_desconectar_Click
    End If
End Sub
 
Private Sub db_Disconnect()
    cambiar_botones False
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    If boton_conectar.Enabled = False Then
        db.Close
    End If
End Sub
 
Private Sub cambiar_botones(conectado As Boolean)
 
    contenido.Clear
    tablas.Clear
 
    boton_conectar.Enabled = Not conectado
    boton_desconectar.Enabled = conectado
    tablas.Enabled = conectado
    contenido.Enabled = conectado
 
End Sub
 
Private Sub frame_base_de_datos_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub
 
Private Sub tablas_Click()
    Dim tabla As String
    Dim consulta As New rdoQuery
    Dim resultados As rdoResultset
    Dim contenido_row As String
    Dim columna As rdoColumn
 
    contenido.Clear
 
    tabla = tablas.List(tablas.ListIndex)
 
    Set consulta.ActiveConnection = db
 
    consulta.SQL = "SELECT * FROM " & tabla & " WHERE 1"
    consulta.Execute
 
    Set resultados = consulta.OpenResultset
 
    While Not resultados.EOF
 
        contenido_row = ""
 
        For Each columna In resultados.rdoColumns
            contenido_row = contenido_row & columna.Name & "=" & resultados(columna.Name) & "; "
        Next
 
        contenido.AddItem contenido_row
        resultados.MoveNext
    Wend
 
    resultados.Close
    Set resultados = Nothing
 
End Sub

Descargar