Consegui un codigo, pero me dice "Error de compilacion: No se ha definido el tipo definido por el usuario "
Cita: ' WWW.ELGURUPROGRAMADOR.COM.AR
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 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
La interfaz es la siguiente
[URL=http://img830.imageshack.us/i/47767407.jpg/][IMG]http://img830.imageshack.us/img830/1162/47767407.jpg[/IMG][/URL]
Me arte de buscar, ayuda please :D