URGENTE->conexion con mysql odbc visual basic
hola, quisiera saber como hacer que el mysql no me muestre la ventana de conexion si no puede conectar, por ejemplo con la conexion:
Set BDD = OpenDatabase("hotel", dbDriverNoPrompt, False, "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & direcionIp & ";DATABASE=hotel;USER=" & nomUsuario & ";PASSWORD=" & claveUsuario & ";")
El dbdriverNoprompt hace que no te salga esta ventana si logra conectar, yo solo quiero que esta ventana no salga nunca, que si no puede conectar simplemente de error para que en visual basic pueda saltar a un "on error"
muchas gracias por las repuestas
Set BDD = OpenDatabase("hotel", dbDriverNoPrompt, False, "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & direcionIp & ";DATABASE=hotel;USER=" & nomUsuario & ";PASSWORD=" & claveUsuario & ";")
El dbdriverNoprompt hace que no te salga esta ventana si logra conectar, yo solo quiero que esta ventana no salga nunca, que si no puede conectar simplemente de error para que en visual basic pueda saltar a un "on error"
muchas gracias por las repuestas
Hola yo te sugiero que manajes la cadena de conexion de esta forma:
With cn
.ConnectionString = "UID=usuario" & ";PWD=contraseña" & ";DATABASE=nombre de tu base de datos;" & "SERVER=servidor;" & "DRIVER={MySQL ODBC 3.51 Driver};"
.Open
End With
es mas facil de manejar y ademas no necesitas que te salgan ventanas bueno eso es si tu quieres ademas debes de revisar desde el driver de mysql para que te realize la conexion
With cn
.ConnectionString = "UID=usuario" & ";PWD=contraseña" & ";DATABASE=nombre de tu base de datos;" & "SERVER=servidor;" & "DRIVER={MySQL ODBC 3.51 Driver};"
.Open
End With
es mas facil de manejar y ademas no necesitas que te salgan ventanas bueno eso es si tu quieres ademas debes de revisar desde el driver de mysql para que te realize la conexion