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