Abrir conexi贸n con contrase帽a para un data report

frank
29 de Junio del 2005
Trabajo con Dao, base acces con contrase帽a y a la hora de agregar una conexi贸n en tiempo de dise帽o para presentar los datos en un data report, me da problemas al probar la conexi贸n en tiempo de dise帽o "Error en la prueba de conexi贸n al iniciar al proveedor, falta el archivo de informaci贸n del grupo de trabajo o bien est谩 abierto en modo exclusivo por otro usuario", no puedo pasar de ah铆 y crear el reporte de manera que funcione.

Fast
29 de Junio del 2005
Saludos Frank:

Yo tuve ese mismo problema, y no consegu铆a forma alguna de resolverlo, hasta que hablando con unos amigos, estos me recomendaron, que trabajara el manejo de base de datos con ADO en vez de DAO, y listo se acab贸 el rollo !!!.
Ahora como trabajas con MS Access, para abrir la conexi贸n har谩s lo siguiente:
A tu proyecto, Buscaras 'Referencias', y agregaras:
Microsoft ActiveX Data Objects 2.7 (si tienes VB 6.0 y usas Access XP o 2003). A continuaci贸n en la declaraciones generales del form (o m贸dulo.bas),
declaras la siguiente (Public o Private segu el caso):
Private MiVar as ADODB.Connection
Private MiRecordset as ADODB.Recordset (Objeto Recordset)

Una vez hecho esto, debes crear una instancia de c/u de esas variables:

Set MiVar = New ADODB.Connection
Set MiRecordset = New ADODB.Recordset

entonces escribir谩s la siguiente instrucci贸n:
MiVar.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:PathMiBaseDeDatos.mdb;" & _
"Jet OLEDB:Database Password=MiClave"
MiVAr.Open

y listo, ya tienes establecida la conexi贸n con la base de datos !!!.

PD: El formato soportado es:
"Microsoft.Jet.OLEDB.4.0" para Access 2000, pero si trabajas con Acces 97 es: "Microsoft.Jet.OLEDB.3.51"

Saludos:
Manuel F. Borrego S.
Venezuela.