22/06/2004, 17:38
|
 | Colaborador | | Fecha de Ingreso: diciembre-2001
Mensajes: 2.799
Antigüedad: 22 años, 5 meses Puntos: 11 | |
un ejemplo de como compactar una base de datos teniendo contraseña
Código:
Dim sNameOrig as string
DIm sNameDest as string
Dim vEscenario as Variant
Dim nOpciones as integer
Dim vContra as Variant
sNameOrig = "C:\micarpeta\basedatos.mdb
sNameDest = "C:\micarpeta\basecompactada.mdb"
vEscenario = dbLangSpanish ' en el supuesto de BD en Español
nOpciones = DbVersion30 ' Opcional, Version (3.5) deseada en BD compactada
' ver otros valores en la ayuda de VB
vContra = ";pwd=contraseña" ' Atencion: no olvides el punto y coma
DBEngine.CompactDatabase sNameOrig, sNameDest, vEscenario, nOpciones, vContra
 |