abrir base de datos con password
en la aplicación que estoy desarrollando utilizo una tabla de access 2000 que está protegida con una clave, desde la aplicación abro la tabla :
Set wrJet = CreateWorkspace("", "admin", "", dbUseJet)
Set basedatos= wrJet.OpenDatabase("c:carpetaNuestroRegistrotabla.mdb", True, False, ";PWD=clave")
Set rcscliente = basedatos.OpenRecordset("tblClientesRegistro", dbOpenTable)
tengo una función para guradar los datos:
rcscliente.Index = "primarykey"
rcscliente.Seek "=", txtcif.Text
If rcscliente.NoMatch = False Then
With rcscliente
.addnew
campos a rellenar
.update
en la tabla están definidas los indices y todo eso
cuando la aplicación llega a:
rcscliente.Index = "primarykey"
me dice que el objeto no es valido o no tiene valor , error 3420 en tiempo de ejecución.
¿Por qué?, no lo entiendo y no sé que tengo que hacer,
¿Alguien me puede ayudar?
GRACIAS
Set wrJet = CreateWorkspace("", "admin", "", dbUseJet)
Set basedatos= wrJet.OpenDatabase("c:carpetaNuestroRegistrotabla.mdb", True, False, ";PWD=clave")
Set rcscliente = basedatos.OpenRecordset("tblClientesRegistro", dbOpenTable)
tengo una función para guradar los datos:
rcscliente.Index = "primarykey"
rcscliente.Seek "=", txtcif.Text
If rcscliente.NoMatch = False Then
With rcscliente
.addnew
campos a rellenar
.update
en la tabla están definidas los indices y todo eso
cuando la aplicación llega a:
rcscliente.Index = "primarykey"
me dice que el objeto no es valido o no tiene valor , error 3420 en tiempo de ejecución.
¿Por qué?, no lo entiendo y no sé que tengo que hacer,
¿Alguien me puede ayudar?
GRACIAS
