Autor Tema: Conectar Access 2000 Con Contraseña (Leído 920 veces)

Jose Arriagada · « **en:** Lunes 19 de Abril de 2004, 21:30 »

Hola estimados:

Debo almacenar datos para que sean visibles pero no modificables.
He hecho unas tablas en access 2000, y las acceso y visualizo sin problemas, usando string de conexion.
Pero si a la base de datos, se agrego la seguridad de una contraseña, mi programa se conecta, pero me solicita la contraseña.
Si no la coloco, se para el programa,
Si la ingreso, el programa continua como si nada.

Mi problema, es que la aplicación la debo instalar en varios equipos, y la idea es que el programa se conecte a la base de datos, a pesar de tener la contraseña, ya que el programa le pasa el string de conección pero no lo considera.

Les envio la base de datos, y el programa pa' que me indiquen donde esta el problema

GRACIAS,

elmango80

Hola José!!!

Si estas utilizando ADO Data Control para conextar VB a la base de datos entonces en la propiedad Password coloca la clave de tu base de datos o si no utiliza este codigo para conectarte con la base de datos

Código: Text

 
Private mdbBaseDatos As ADODB.Connection
 
Public Sub AbrirBaseDatos(ByVal strRuta As String, Optional ByVal strPassword As String, Optional ByRef blnErrAbrir As Boolean)
Dim strCadConexion As String
 
    On Error GoTo ErrorAlAbrir
    Set mdbBaseDatos = New ADODB.Connection
    strCadConexion = &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&#34; & _
    strRuta & &#34;;&#34;
    If Len(strPassword) Then
       strCadConexion = strCadConexion & &#34;Jet OLEDB:Database Password=&#34; & _            strPassword & &#34;;&#34;
    End If
    mdbBaseDatos.CursorLocation = adUseClient
    mdbBaseDatos.Open strCadConexion
    blnErrAbrir = False
    On Error GoTo 0
    Exit Sub
 
ErrorAlAbrir:
    MsgBox &#34;Error al inicializar la conexión a la base de datos&#34; & vbCrLf & _
    vbCrLf & &#34;Información de error&#34; & vbCrLf & &#34;Numero: &#34; & Err.Number & _
    vbCrLf & &#34;Descripción: &#34; & Err.Description, vbCritical + _
    vbOKOnly, &#34;Error fatal&#34;
    blnErrAbrir = True
    On Error GoTo 0
End Sub
 
 

Nota: Si utilizas este codigo entonces debes utilizar la variable mdbBaseDatos para manejar la base de datos...

----- O -----

Jose Arriagada

Gracias por la respuesta, voy a probarla y te cuento como me fue

SoloCodigo

Autor Tema: Conectar Access 2000 Con Contraseña (Leído 920 veces)

Jose Arriagada

Conectar Access 2000 Con Contraseña

elmango80

Re: Conectar Access 2000 Con Contraseña

Jose Arriagada

Re: Conectar Access 2000 Con Contraseña