Establecer una contraseña Access97 por programa

#1 (**permalink**) 02/08/2006, 11:21

Hola amigos.

Si alguno de ustedes me pudiera ayudar con este tema os lo agradecería mucho.

El asunto es que estoy tratando de lograr una forma de establecer una contraseña de Access97 desde un programa, pero no sé como hacerlo.

Supongamos que:
- tenemos una Base llamada Base1.mdb que adentro tiene una tabla llamada Tabla1
- dicha tabla tiene un password que es "Password1"

y queremos cambiar dicho password a "Password2", en tiempo de ejecución del programa.

¿Alguien ha hecho algo parecido? Yo uso ADO y DSN, pero cualquier idea con cualquier método de conexión me vendría bien.

Gracias.

francescoli · #2 (**permalink**) 03/08/2006, 05:10

Pero la contraseña es de una tabla solamente? o de toda la b.d.?

#3 (**permalink**) 03/08/2006, 08:36

Si, tienes razón, me expresé mal. La contraseña es de toda la base. Con Access2000 sé como hacerlo, pues posteando esta misma duda anteriormente aquí, uno de los foreros respondió mandandome a un link que tiene un código con el que realmente se logra el propósito de cambiar la contraseña a la base desde el programa.

El problema es que para Access97 no me funciona. Y no me conviene cambiar el formato de las bases.

El crédito es para www.lawebdelprogramador.com, creo... bueno, mío no es.

El código es este:

Private Sub CmdCompClave_Click()
On Error GoTo Control

'Debes agregar la referencia "Microsoft Jet and replication objects 2.6 library

Dim StrBaseDatosTemp As String
Dim Compactar As JRO.JetEngine
Dim StrBase As String
Dim ClaveN As String
Dim ClaveA As String

StrBase = "BaseDatos.mdb"
ClaveN = "ClaveNueva"
ClaveA = "actual"

Set Compactar = New JRO.JetEngine
' Crear un nombre temporal
StrBaseDatosTemp = "BaseDAtosTemporal" & ".mdb"
' Asegurarnos de que no existe una base con el nombre temporal
If Len(Dir$(StrBaseDatosTemp)) Then
Kill StrBaseDatosTemp
End If
Compactar.CompactDatabase "Data Source=" & StrBase & ";" & "Jet OLEDB:Database Password=" & ClaveA & ";", "Data Source=" & StrBaseDatosTemp & ";" & "Jet OLEDB:Database Password=" & ClaveN & ""

Kill StrBase
Name StrBaseDatosTemp As StrBase

Exit Sub
Control:
MsgBox Err.Description

End Sub

francescoli · #4 (**permalink**) 04/08/2006, 01:02

dim OtraDb as Database
Set OtraDb = EspacioDeTrabajo.OpenDatabase(nombredelabasededato s, True, False, ";PWD=antiguaclave;")
'Quitamos la clave a la base de datos abierta (la CREADA)
OtraDb.NewPassword "antiguaclave", "nueva o comillas comillas si queremos quitarla"
OtraDb.Close