SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jose Arriagada en Lunes 19 de Abril de 2004, 21:30

Título: Conectar Access 2000 Con Contraseña
Publicado por: 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,
Título: Re: Conectar Access 2000 Con Contraseña
Publicado por: elmango80 en Martes 20 de Abril de 2004, 02:39
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
  1.  
  2. Private mdbBaseDatos As ADODB.Connection
  3.  
  4. Public Sub AbrirBaseDatos(ByVal strRuta As String, Optional ByVal strPassword As String, Optional ByRef blnErrAbrir As Boolean)
  5. Dim strCadConexion As String
  6.  
  7.     On Error GoTo ErrorAlAbrir
  8.     Set mdbBaseDatos = New ADODB.Connection
  9.     strCadConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
  10.     strRuta & ";"
  11.     If Len(strPassword) Then
  12.        strCadConexion = strCadConexion & "Jet OLEDB:Database Password=" & _            strPassword & ";"
  13.     End If
  14.     mdbBaseDatos.CursorLocation = adUseClient
  15.     mdbBaseDatos.Open strCadConexion
  16.     blnErrAbrir = False
  17.     On Error GoTo 0
  18.     Exit Sub
  19.  
  20. ErrorAlAbrir:
  21.     MsgBox "Error al inicializar la conexión a la base de datos" & vbCrLf & _
  22.     vbCrLf & "Información de error" & vbCrLf & "Numero: " & Err.Number & _
  23.     vbCrLf & "Descripción: " & Err.Description, vbCritical + _
  24.     vbOKOnly, "Error fatal"
  25.     blnErrAbrir = True
  26.     On Error GoTo 0
  27. End Sub
  28.  
  29.  

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

:angel: ----- O ----- :devil:
Título: Re: Conectar Access 2000 Con Contraseña
Publicado por: Jose Arriagada en Miércoles 21 de Abril de 2004, 16:08
Gracias por la respuesta, voy a probarla y te cuento como me fue