Visual Basic - Contraseña

Life is soft - evento anual de software empresarial
   
Vista:

Contraseña

Publicado por luis (3 intervenciones) el 09/08/2011 17:35:45
esto funciona bien pero si le pongo contraseña a la base de datos agenda sale error si alguin lo puede agregar lo que le falta por favor

Dim DBS As Database

Set DBS = OpenDatabase("D:\temporal.mdb")
' selecciona todos los registros de la tabla Nuevos
' Clientes y los agrega a la tabla Clientes.
DBS.Execute " INSERT INTO DSOBRES IN '..\superagenda\agenda.mdb' " _
& "SELECT * " _
& "FROM temporal "

DBS.Close
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Contraseña

Publicado por apacheco (63 intervenciones) el 12/08/2011 12:18:43
Mira en el manual para incorporar el usuario y la contaseña en la instruccion para abrir la base de datos (creo que es así)

Set DBS = OpenDatabase("D:\temporal.mdb", , , "MS Access;PWD= tuclavede la base de datos)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Contraseña

Publicado por apacheco (63 intervenciones) el 12/08/2011 12:25:51
Buceando por la Web he encontrado una parecida

Set DBS = OpenDatabase("D:\temporal.mdb",,, "pwd=TuContraseña")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Contraseña

Publicado por luis (3 intervenciones) el 12/08/2011 21:04:18
ya encontre la solucion es esta
lo comparto

Dim DBS As Database

Set DBS = OpenDatabase("D:\temporal.mdb")

DBS.Execute "INSERT INTO [..\superagenda\agenda.mdb;pwd=pelotin251981].DSOBRES SELECT * FROM temporal"

DBS.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar