Problema ADO
hola!!, he creado un programa para acceder a una base de datos Access2000 con contraseña mediante un ADO... problema: utilizo un archivo de conexión pero cuando voy a iniciar la aplicacion me dice que la ruta no es válida... he comprobado los archivos de conexión, la base de datos y el ado pero no me funciona... alguna sugerencia? gracias ^_^
(y perdón por el chorizo de pregunta xD)
(y perdón por el chorizo de pregunta xD)
Hola, puedes hacer una comprobación para ver si existe la BBDD en el Pc al hacer la conexión.
Sub AbrirConexion(ruta As String)
Dim strPath As String
Dim fs As Object
On Error GoTo AbrirConexion_Err
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(ruta) Then
oConexion.Open ruta
EndIf
'********************
'Error
'********************
Exit Sub
AbrirConexion_Err:
MsgBox "AbrirConexion_Err:" & Err & ". " & Err.Description & ".", vbExclamation + vbOKOnly, "Error."
End Sub
Siendo oConexion:
Public oConexion As New ADODB.Connection
Un saludo
sdemingo
Sub AbrirConexion(ruta As String)
Dim strPath As String
Dim fs As Object
On Error GoTo AbrirConexion_Err
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(ruta) Then
oConexion.Open ruta
EndIf
'********************
'Error
'********************
Exit Sub
AbrirConexion_Err:
MsgBox "AbrirConexion_Err:" & Err & ". " & Err.Description & ".", vbExclamation + vbOKOnly, "Error."
End Sub
Siendo oConexion:
Public oConexion As New ADODB.Connection
Un saludo
sdemingo