Bueno, resulta que estaba modificando un programa que trabaja con la base de datos de mysql. Lo tengo terminado y
a mi me funciona perfectamente; el problema se presenta cuando le paso el programa a amigos. A ellos no los deja conectar al programa.
Código:
Public Con As ADODB.Connection
Public Sub Conectar()
On Error GoTo error
'COMPILAR BETA
Set Con = New ADODB.Connection
Con.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=xxx;" & " DATABASE=xxx;" & "UID=xxx;PWD=xxx; OPTION=3"
Con.CursorLocation = adUseClient
Con.Open
lblInfo.Caption = "Conectado. Verificando datos..."
DoEvents
If Not Verifypasswd(txtUser.Text, txtPass.Text) Then
lblInfo.Caption = "Datos incorrecto."
Else
'lblInfo.Caption = "Correcto."
Form2.Show
Form2.Caption = "Centro de Soporte FlooderAO # Logueaste como: " & txtUser.Text
Unload Me
Exit Sub
End If
Exit Sub
error:
lblInfo.Caption = "No pudimos conectar. Avisale al admin."
'MsgBox "Error al conectar: " & Err.Description & " String: " & Con.ConnectionString
'End
End Sub
A mi me conecta perfecto, pero a los demás los lleva hacia
error.
No sé que puede ser.. Antes era problema con el acceso remoto del mysql del host, pero ya habilité las IPs, alguna idea?