¿Qué pasa si la base no se encontrar en la conexión al access 97?
Sabes que funciona super la conexión al Access 97 con contraseña, ¿pero qué pasa si la base no se encontrara?, ¿Se cae el sistema cierto?
Respuesta de fvomaster
1
Efectivamente la aplicación podría interrumpirse por un error de conexión, pero eso tiene solución..
Podrías utilizar cualquiera de estos dos códigos para verificar que tu base existe, antes de realizar la conexión..
Forma 1:
Private Sub Form_Load()
On Error GoTo Fallo
x = GetAttr(C:\base\mibase.mdb`) 'Puede ser cualquier tipo de extension
MsgBox "El fichero existe."
Exit Sub
Fallo:
MsgBox "El fichero no existe."
End Sub
Forma 2: esta me gusta más, es más elegante..
If Dir("C:\base\miBase.mdb") <> "" then
msgbox "existe la base
Else
msgbox "no existe la base"
End if
Hay tú puedes agregar donde corresponda el módulo de conexión, de lo contrario, envías un mensaje informando al usuario que no se puede iniciar la aplicación por problemas de conexión a la base de datos y que contacten al administrador del Sistema..
Espero que te sirva..
Un cordial saludo desde Chile..
Fvomaster
Podrías utilizar cualquiera de estos dos códigos para verificar que tu base existe, antes de realizar la conexión..
Forma 1:
Private Sub Form_Load()
On Error GoTo Fallo
x = GetAttr(C:\base\mibase.mdb`) 'Puede ser cualquier tipo de extension
MsgBox "El fichero existe."
Exit Sub
Fallo:
MsgBox "El fichero no existe."
End Sub
Forma 2: esta me gusta más, es más elegante..
If Dir("C:\base\miBase.mdb") <> "" then
msgbox "existe la base
Else
msgbox "no existe la base"
End if
Hay tú puedes agregar donde corresponda el módulo de conexión, de lo contrario, envías un mensaje informando al usuario que no se puede iniciar la aplicación por problemas de conexión a la base de datos y que contacten al administrador del Sistema..
Espero que te sirva..
Un cordial saludo desde Chile..
Fvomaster
