SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FER_LUCAS33 en Viernes 16 de Mayo de 2003, 20:42
-
HOLA A TODOS
alguien sabe como se puedo ejecutar desde visual basic la opción de "Compactar y Reparar Base de Datos" de Access.
Gracias
:question:
-
Antes de compactar una base de datos, debe cerrarla. Además, nunca debe asignar los mismos nombres de origen y de destino para la base de datos que se está compactando, ya que la base de datos se eliminará si el método CompactDatabase no se completa. La compactación no se puede efectuar dentro de una transacción.
La sintaxis del método CompactDatabase es la siguiente:
DBEngine.CompactDatabase nombre_origen, nombre_destino [, configuración_regional [, opciones]]
Argumento Descripción
nombre_origen El argumento nombre_origen es la ruta completa y el nombre del archivo de base de datos que desea compactar.
nombre_destino El argumento nombre_destino es la ruta completa y el nombre del archivo de base de datos recién compactado. No especifique el mismo nombre para ambos, los archivos de origen y de destino.
configuración_regional El argumento configuración_regional es el mismo que el de CreateDatabase.
opciones El argumento opciones es el mismo que el de CreateDatabase.
Por ejemplo, el código siguiente compacta una base de datos llamada Anterior.mdb y crea una nueva base de datos con una configuración regional española y un nombre de destino Nueva.mdb:
DBEngine.CompactDatabase "C:Anterior.mdb", "C:VBNueva.mdb", dbLangSpanish
:)
-
gracias por tu ayuda
:yes:
-
crea un moduolo y haz un call a compactar.
Public Function Compactar()
On Error GoTo Compactar_Err
SendKeys "%", False
SendKeys "h", False
SendKeys "u", False
SendKeys "o", False
Compactar_Exit:
Exit Function
Compactar_Err:
MsgBox error$
Resume Compactar_Exit
End Function