Hola, este es mi problema, tengo este codigo
Código vb:
Ver original''conexion hacia la base de datos
Dim CONEXION As New ADODB.Connection
''recordset que se usara para los campos
Dim RECORDSET As New ADODB.RECORDSET
Private Sub Command1_Click()
''para el manejo de los errores
On Error GoTo Error
CONEXION.Open "Driver={MySQL ODBC 5.1 Driver};Server=" & txtservidor.Text & ";" & _
"Database=" & txtbase.Text & ";User=" & txtuser.Text & ";Password=" & txtpass.Text & ";Option=3;"
RECORDSET.Open "select * from " & txttabla.Text & " where usuario='" & _
txtusuario(0).Text & "' and password='" & txtpassword.Text & "'", CONEXION, adOpenDynamic, adLockOptimistic
If Not RECORDSET.EOF Then
MsgBox "Bienvenido: " & RECORDSET!usuario, vbInformation
Else
MsgBox "Usuario o contraseña incorrectos", vbExclamation, "Aviso"
txtusuario(0).SetFocus
End If
Call CERRAR
Exit Sub
''ir aqui
Error:
''''desplegar numero de error y descripcion
MsgBox Err.Number & Space(5) & Err.Description
End Sub
Private Sub Form_Load()
''definir el campo de usuario a maximo 15 caracteres
txtusuario(0).MaxLength = 15
''definir el campo password a maximo 15 caracteres
txtpassword.MaxLength = 15
Form1.Caption = "Accesso"
txtbase.Text = ""
txtservidor.Text = ""
txtuser.Text = ""
txtpass.Text = ""
txttabla.Text = ""
End Sub
Sub CERRAR()
''cerramos recordset
RECORDSET.Close
''cerramos conexion
CONEXION.Close
End Sub
pero al tratar de conectarme me sale este error
"-2147467259 [MySQL][ODBC 5.1 Driver]Can't connect to MySQL server on '46.105.123.132' (10060) "
ya puse la ip sola del servidor ip : puerto pero aun sale ese error, al hacerlo en mi pc en localhost no tengo ese problema y todo sale bien
Alguien que me diga Porfavor donde esta el error?
Gracias.