Autor Tema: ¿como Saber Si Una Bd Está Corrupta? (Leído 3318 veces)

Escalona · « **en:** Viernes 6 de Octubre de 2006, 14:28 »

Bueno mi problema es ese, tengo una aplicacion que usa una BD creada en Access, cada cierto tiempo voy creando Backups de esa Base de Datos, pero claro, antes de generar el Backup me gustaria saber si la BD está o no corrupta para evitar hacer Backups e una BD en mal estado.

Bueno a ver si se os ocurre alguna manera de hacerlo. Gracias!

lois_

Puedes usar el checksum del archivo, almacenandolo con cada registro y comparandolo antes de cada registro. La suma se puede obtener de muchas formas, yo te pasteo aquí una función:

Código: Text

 
Private Function ObtenerMD5(ByVal fichero As String) As String
        Dim cadenaMD5 As String = &#34;&#34;
        Dim cadenaFichero As FileStream
        Dim bytesFichero As [Byte]()
        Dim MD5Crypto As New MD5CryptoServiceProvider
        cadenaFichero = File.Open(fichero, FileMode.Open, FileAccess.Read)
        bytesFichero = MD5Crypto.ComputeHash(cadenaFichero)
        cadenaFichero.Close()
        For Each datos As Byte In bytesFichero
            If datos &#60; 16 Then
                cadenaMD5 &= &#34;0&#34; & datos.ToString(&#34;X&#34;)
            Else
                cadenaMD5 &= datos.ToString(&#34;X&#34;)
            End If
        Next
        Return cadenaMD5
End Function
 
 
 

Un saludo.

cpmario

Cuando la base de datos está corrupta al abrirla se generará un error, por ejemplo en DAO 35 el error se muestra así:

Citar

Imposible abrir la base de datos <name>. Es posible que su aplicación no reconozca este tipo de base de datos o bien que el archivo esté dañado. (Error 3049)

Lo que debes hacer es abrir la base de datos, si se genera un error no la copies, si no hay error, cierra la base de datos y entonces procede a copiarla.

lois_

Bastante más simple y útil que lo que se me había ocurrido a mi

Escalona

Sí, eso es lo que intente en un primer momento, el problema es que la BD es en ACCESS, y si algun otro proceso esta usando la BD en ese mismo instante, me da error al abrirla, de manera que interpretaría como una BD corrupta, a una que no lo está.

cpmario

Citar

Sí, eso es lo que intente en un primer momento, el problema es que la BD es en ACCESS, y si algun otro proceso esta usando la BD en ese mismo instante, me da error al abrirla, de manera que interpretaría como una BD corrupta, a una que no lo está.

Debes de colocar la llamada a la rutina que copia la base de datos antes de abrirla para efectuar otro tipo de procesos, por ejemplo en la parte más alta del Sub Form_Load de la primera forma que abres. De manera alternativa puedes hacer una rutina que cierre todas las bases de datos y los Forms abiertos y entonces hacer la copia de la base de datos.

SoloCodigo

Autor Tema: ¿como Saber Si Una Bd Está Corrupta? (Leído 3318 veces)

Escalona

¿como Saber Si Una Bd Está Corrupta?

lois_

Re: ¿como Saber Si Una Bd Está Corrupta?

cpmario

Re: ¿como Saber Si Una Bd Está Corrupta?

lois_

Re: ¿como Saber Si Una Bd Está Corrupta?

Escalona

Re: ¿como Saber Si Una Bd Está Corrupta?

cpmario

Re: ¿como Saber Si Una Bd Está Corrupta?