Reparar Bd de Acces - VB-MUNDO

ss_jesus · #1 (**permalink**) 21-11-2005, 15:10:32

Hola compañeros, Alguien sabría explicarme, si es posible por medio de un ejemplo, de cómo reparar la base de datos de mi aplicación desde visual Basic

Alella · #2 (**permalink**) 21-11-2005, 15:23:20

Hola, que tal.

Para compactar bases de datos pon lo siguiente:

Código:

Option Explicit
 
Public Function compactDB(ByVal SOUR_path As String, _
   ByVal DEST_path As String) As Boolean
 
  On Error GoTo Err_compact
  Private JRO As New JRO.JetEngine

  Private DB_sour As String, DB_dest As String 

  DoEvents
  DB_sour = `Provider=Microsoft.Jet.OLEDB.4.0;Data Source=` _
      & SOUR_path
  DB_dest = `Provider=Microsoft.Jet.OLEDB.4.0;Data Source=` _
      & DEST_path & ` ;Jet OLEDB:Engine Type=5`
  
     JRO.CompactDatabase DB_sour, DB_dest
  
  compactDB = True
  Exit Function
  
Err_compact:
  compactDB = False
  MsgBox Err.Description, vbExclamation
End Function

Espero que te sirva.

Memin · #3 (**permalink**) 22-11-2005, 02:44:15

Que tal SS_Jesus, aparte de la instruccion que te manda Alella creo que tambien esta la instruccin REPAIRDATABASE; me parece que ya o es muy usada porque contiene algunas incompatibilidades pero si usas el buscador encontraras mas de 1 tema sobre esto ya que en otras ocasiones ya se ha hablado de esto...

Hasta Luego.....

ss_jesus · #4 (**permalink**) 22-11-2005, 12:32:56

Hola a todos, bueno al grano, ya conocía la forma de compactar la base de datos de todas maneras te agradezco la respuesta, y por supuesto antes de hacer la pregunta estuve en el buscador del foro en busca de respuestas a mis dudas, no encontré información de cómo hacerlo, lo que si he encontré son unas respuestas sueltas pero algo inconcretas, hablando desde mi punto de vista. Bueno para aclarar un poco más las cosas lo que pretendo es recuperar una base de datos que por alguna razón queda corrupta, lo que yo vengo haciendo en forma de prevención es hacer copias de seguridad de la base de datos diarias pero aun así se perderían bastantes datos a la hora de volver a una copia anterior de la base de datos.

Muchas gracias a tod2 por las respuestas, cualquier ayuda es bienvenida

Alella · #5 (**permalink**) 22-11-2005, 13:18:47

Hola, que tal.

En la ayuda pone lo siguiente,no sé si es esto lo que buscas:

Código:

Ejemplo del método RepairDatabase

Este ejemplo intenta reparar la base de datos llamada Neptuno.mdb. No puede ejecutar este procedimiento desde un módulo de Neptuno.mdb.

Sub RepairDatabaseX()

   Dim errBucle As Error

   If MsgBox("¿Desea reparar la base de datos Neptuno?", _
         vbYesNo) = vbYes Then
      On Error GoTo Err_Reparar
      DBEngine.RepairDatabase "Neptuno.mdb"
      On Error GoTo 0
      MsgBox "¡Fin del procedimiento reparar!"
   End If

   Exit Sub

Err_Reparar:

   For Each errBucle In DBEngine.Errors
      MsgBox "¡Falló Repair!" & vbCr & _
         "Número de error: " & errBucle.Number & _
         vbCr & errBucle.Description
   Next errBucle

End Sub

Ya nos contarás.

ss_jesus · #6 (**permalink**) 24-11-2005, 11:10:25

Gracias alella comentarte que el ejemplo, parece funcionar a la perfección (con esto quiero decir) que aun no he tenido la ocasión de utilizarlo con una base de datos corrupta que seria la verificación perfecta de que todo funciona como se espera, de todas maneras y hasta que pueda comprobarlo, lo he aplicado en una base de datos en buen estado y el código corre a las mil maravillas, comentar que este ejemplo usa la librería de Microsoft Dao 3.51 objet library

Nota: en cuanto lo compruebe en una base de datos corrupta, colgare en este post si todo fue bien o no

Atentamente un saludo