Contraseña para base de datos compactada

lilith
18 de Enero del 2005
Hola, necesito que me ayuden a colocarle un password a una base de datos compactada, y que pueda manejarla desde una aplicacion de visual basic. la sentencia que estoy usando es la siguiente:

If Dir(App.Path & "compactando.mdb") <> "" Then Kill App.Path & "Compactando.mdb"
DBEngine.CompactDatabase App.Path & "Estacionamiento", App.Path & "Compactando.mdb"
If Dir(App.Path & "Estacionamiento.mdb") <> "" Then Kill App.Path & "Estacionamiento.mdb"
Name App.Path & "Compactando.Mdb" As App.Path & "Estacionamiento.mdb"

sin embargo no se en que linea de programacion debo colocar el ;"pwd=xxxx, o la sentencia adecuada
Gracias de antemano

Javi
18 de Enero del 2005
Debes indicarlo en el parámetro «SrcLocale» del método CompactDatabase del DBEngine:

DBEngine.CompactDatabase App.Path & "Estacionamiento", App.Path & "Compactando.mdb", , , ";pwd=«password»"

o bien

DBEngine.CompactDatabase App.Path & "Estacionamiento", App.Path & "Compactando.mdb", SrcLocale := ";pwd=«password»"

Espero que esto te sirva, un saludo.

programador666
18 de Enero del 2005
En la pagina del Guille en el tema de bases de datos con DAO encontraras la respuesta.

gerardo
18 de Enero del 2005
donde quedo la pagina del guille?

no la encuentro ya por ningun lado