Visual Basic - Ayuda con código para Access con contraseñas

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con código para Access con contraseñas

Publicado por Arturo (6 intervenciones) el 18/11/2004 22:44:23
Estoy desarrollando una aplicación que tiene como base de datos varias tablas Access. El fichero Access lo tengo protegiodo por una contraseña. El problema que tengo es que por más que lo intento me dá el siguiente error al ejecutar la aplicación
"NO PUDO ENCONTRAR EL ARCHIVO ISAM INSTALABLE"
Mi codigo para la conexión es el siguiente:
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/Unilever.mdb;&Jet OLEDB:Database Password=MyPassword;"
¿Alguien podria ayudarme, por favor?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con código para Access con contraseñas

Publicado por Anubis (8 intervenciones) el 25/11/2004 17:43:58
Hola, prueba con esta (utilizo ADO y ACCESS 2000):

Function InicializarDatos()
Dim StrConexion As String

Ruta = App.Path
RutaImagenes = App.Pah+"\Imagenes"
RutaInformes = App.Path + "\Informes"
RutaIconos = App.Path + "\Iconos"

On Error GoTo ControlError
Set Conexion = New ADODB.Connection
Conexion.CommandTimeout = 60
Conexion.ConnectionTimeout = 30
StrConexion = "DSN=MS Access Database;" + _
"DBQ=" + Ruta + "\BD_GESTION.mdb;" + _
"DefaultDir=" + Ruta + ";" + _
"DriverId=25;FIL=MS Access;" + _
"MaxBufferSize=2048;PageTimeout=5;" + _
"UID=anonymous;PWD=pericoeldelospalotes"
Conexion.Open StrConexion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar