Foros del web, para los que viven de bits

LuZbA · 19-abr-2008, 13:29

hola de nuevo... espero me puedan contestar

miren esta es mi conexion a mysql:

Set DB = New Connection

DB.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & _
"Server=192.168.1.245;" & "Port=3306;" & "Database=bitacora;" & _
"User=" & txtUsuario & ";" & "Password=" & txtPassword & ";" & _
"Option=3;"

DB.CursorLocation = adUseClient
DB.Open
........

Exit Sub

Ver:
MsgBox "No corresponde usuario o contraseña", vbCritical, "Acceso Denegado"
'"Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear

lo que quiero saber es como pongo una instruccion para saber si esta o no abierta la base de datos...

mi cuestion es por que cuando ingreso mal un usuario o password me manda Ver: pero tambien me ejecuta las instrucciones que van donde estan (........) y obvio q si esta mal la conexion o no se establece no quiero que haga esas instrucciones... cabe aclarar que estas instrucciones las tengo en un boton para ingresar al sistema...

de antemano gracias... espero me puedan contestar

Avellaneda · 20-abr-2008, 01:56

Hola,

Elimina la linea Err.Clear de la etiqueta Ver: y al aceptar, saldrá del procedimiento.

Para saber si la conexión está abierta o cerrada:

Código:

If DB.State = 1 Then
    MsgBox "Conexión abierta"
Else
    MsgBox "Conexión cerrada"
End If

Un saludo.

LuZbA · 21-abr-2008, 08:49

Hola buen día Avellaneda... muchas gracias lo voy a poner en funcionamiento... un saludo

19-abr-2008, 13:29	#1 (permalink)
LuZbA Fecha de Ingreso: abril-2008 Mensajes: 31	¿Como preguntar si un BD Mysql esta abierta? hola de nuevo... espero me puedan contestar miren esta es mi conexion a mysql: Set DB = New Connection DB.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & _ "Server=192.168.1.245;" & "Port=3306;" & "Database=bitacora;" & _ "User=" & txtUsuario & ";" & "Password=" & txtPassword & ";" & _ "Option=3;" DB.CursorLocation = adUseClient DB.Open ........ Exit Sub Ver: MsgBox "No corresponde usuario o contraseña", vbCritical, "Acceso Denegado" '"Nº de error: " & Err.Number & " \| " & Err.Description, vbCritical, "Control de errores" Err.Clear lo que quiero saber es como pongo una instruccion para saber si esta o no abierta la base de datos... mi cuestion es por que cuando ingreso mal un usuario o password me manda Ver: pero tambien me ejecuta las instrucciones que van donde estan (........) y obvio q si esta mal la conexion o no se establece no quiero que haga esas instrucciones... cabe aclarar que estas instrucciones las tengo en un boton para ingresar al sistema... de antemano gracias... espero me puedan contestar

20-abr-2008, 01:56	#2 (permalink)
Avellaneda Fecha de Ingreso: enero-2008 Ubicación: Madrid Mensajes: 805	Re: ¿Como preguntar si un BD Mysql esta abierta? Hola, Elimina la linea Err.Clear de la etiqueta Ver: y al aceptar, saldrá del procedimiento. Para saber si la conexión está abierta o cerrada: Código: If DB.State = 1 Then MsgBox "Conexión abierta" Else MsgBox "Conexión cerrada" End If Un saludo. Última edición por Avellaneda; 20-abr-2008 a las 02:36.

21-abr-2008, 08:49	#3 (permalink)
LuZbA Fecha de Ingreso: abril-2008 Mensajes: 31	Re: ¿Como preguntar si un BD Mysql esta abierta? Hola buen día Avellaneda... muchas gracias lo voy a poner en funcionamiento... un saludo

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado