• Lunes 23 de Diciembre de 2024, 00:56

Autor Tema:  Re: COMPACTAR BASE DE DATOS  (Leído 1832 veces)

FER_LUCAS33

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Re: COMPACTAR BASE DE DATOS
« en: Viernes 16 de Mayo de 2003, 20:42 »
0
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:

margompe

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: COMPACTAR BASE DE DATOS
« Respuesta #1 en: Sábado 17 de Mayo de 2003, 22:07 »
0
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
:)

FER_LUCAS33

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Re: COMPACTAR BASE DE DATOS
« Respuesta #2 en: Martes 20 de Mayo de 2003, 23:51 »
0
gracias por tu ayuda
:yes:

FRIJU

  • Miembro MUY activo
  • ***
  • Mensajes: 158
    • Ver Perfil
COMPACTAR BASE DE DATOS
« Respuesta #3 en: Jueves 22 de Mayo de 2003, 08:19 »
0
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