Código vb:
Ver originalPublic BD As ADODB.Connection
Public RecSQL As ADODB.Recordset
Private Sub Command1_Click()
On Error GoTo Ver
Set BD = New ADODB.Connection
BD.ConnectionString = "driver={MySQL ODBC 5.1 Driver};" & _
"Server=" & Text1 & ";" & _
"Port=" & Text2 & ";" & _
"Database=" & Text3 & ";" & _
"User=" & Text4 & ";" & _
"Password=" & Text5 & ";" & _
"Option=3;"
BD.Open
MsgBox "Conexión establecida!!!", vbExclamation, "Conexión"
Dim arre As Boolean
arre = True
mostrarconsulta (arre)
Exit Sub
Ver:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Sub
Private Sub Command2_Click()
On Error GoTo cerrar
BD.Close
MsgBox "la conexion se cerro"
Exit Sub
cerrar:
MsgBox "no se cerro la conexion"
cerrar.Clear
End Sub
Function mostrarconsulta(arre As Boolean)
MsgBox "ok"
Set RecSQL = New ADODB.Recordset
RecSQL.Open "Select usuario FROM usuarios WHERE usuario = 'asd'", BD
End Function
Por ahora tengo esto, la conexion funciona, pero no logro traer datos de la bd, nosé como mostrarlos ...
una ayudita?