Problema ADO

_jose_
21 de Octubre del 2003
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)

sdemingo
21 de Octubre del 2003
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

_jose_
21 de Octubre del 2003
gracias sdemingo!! eres un crack !! ^_^