Visual Basic - Compactar BD Access

Life is soft - evento anual de software empresarial
 
Vista:

Compactar BD Access

Publicado por ivan (31 intervenciones) el 30/06/2003 19:15:37
¿Se puede Compactar Base de Datos de Access desde VB 6? ¿Cómo sería? Lo que desde Access se hace desde: Herramientas -> Utilidades de la Base de Datos -> Compactar base de datos.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Compactar BD Access

Publicado por Cecilia Colalongo (3117 intervenciones) el 30/06/2003 21:29:20
Fijate con el método CompactDatabase de DAO, en la MSDN está este ejemplo:

Sub CompactDatabaseX()

Dim dbsNorthwind As Database

Set dbsNorthwind = OpenDatabase("Northwind.mdb")

With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print " CollatingOrder = " & .CollatingOrder
.Close
End With

If Dir("NwindKorean.mdb") <> "" Then _
Kill "NwindKorean.mdb"

DBEngine.CompactDatabase "Northwind.mdb", _
"NwindKorean.mdb", dbLangKorean

Set dbsNorthwind = OpenDatabase("NwindKorean.mdb")

With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print " CollatingOrder = " & .CollatingOrder
.Close
End With

End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Compactar BD Access

Publicado por ivan (31 intervenciones) el 03/07/2003 12:54:02
Al querer hacerlo me muestra un error en el DBEngine.CompactDatabase, ¿por qué será? (Este es el error: Error 91 en tiempo de ejecución. Variable de tipo Object o la variable de bloque With no está establecida.)
¿Hay que declarar a DBEngine como qué?
Yo tengo una referencia a Microsoft DAO 3.51 Objetc Library. ¿Está bien esto?
Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar