Cita:
Iniciado por MiKe27
Hola, agregale el err.description al manejador de error para ver cual es el error ke esta arrojando
Código:
Sub Main3()
On Error GoTo ERROR
CONECCION.OpenConnection "xxx.xx.xx.xxx", "user", "contraseña", "BD", 3306, CLIENT_TRANSACTIONS
If (CONECCION.State = MY_CONN_CLOSED) Then
MsgBox (Err.Description)
Exit Sub
Else
Exit Sub
End If
On Error GoTo 0
ERROR:
MsgBox (Err.Description)
Exit Sub
End Sub
y nos cuentas
ok, lo probare y les cuento que error aparece, creo que mas tarde les respondo ya que en estos momentos estoy en el trabajo