Compactar BBDD con ADO
Publicado por Jose (1 intervención) el 29/06/2001 12:41:23
se supone que el siguiente codigo, compacta una bbdd. Funciona bien, pero despues cuando p.j. es una BBDD Access, haciendo doble clic no se puede abrir pork no detecta el formato. Como se puede resolver esto?
Gracias
Dim Compact As New JRO.JetEngine
Dim Base1 As String, Base2 As String
sApp = App.Path
' ** Ruta de la base sin compactar **
Base1 = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & sBbdd
' ** Ruta de la base compactada **
Base2 = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & sBbddC
' ** Se Compacta la base de datos **
Compact.CompactDatabase Base1, Base2
'Base1 = Mid(Base1, 46)
'Base2 = Mid(Base2, 46)
' ** Se elimina la base de datos vieja **
Kill sBbdd
' ** Se cambia la extencion del archivo a .MDB **
Name sBbddC As sBbdd
Gracias
Dim Compact As New JRO.JetEngine
Dim Base1 As String, Base2 As String
sApp = App.Path
' ** Ruta de la base sin compactar **
Base1 = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & sBbdd
' ** Ruta de la base compactada **
Base2 = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & sBbddC
' ** Se Compacta la base de datos **
Compact.CompactDatabase Base1, Base2
'Base1 = Mid(Base1, 46)
'Base2 = Mid(Base2, 46)
' ** Se elimina la base de datos vieja **
Kill sBbdd
' ** Se cambia la extencion del archivo a .MDB **
Name sBbddC As sBbdd
Valora esta pregunta
0