Reparar BD

[kikevar]

Hola como estan espero que bien aqui de nuevo con dos dudas:

1.- Si se daña la bd de acces hay alguna manera de poder reparala desde visual basic 6 y como se hace?

2.- Se que para borrar un registro del record set se utiliza el rs.delete, pero como hago para borrar todos los registros?

Muchas gracias de antemano

Que tengan una tarde excelente

[culd]

Iniciado por kikevar

1.- Si se daña la bd de acces hay alguna manera de poder reparala desde visual basic 6 y como se hace?

Por que se "daño" a que te referis

Iniciado por kikevar

2.- Se que para borrar un registro del record set se utiliza el rs.delete, pero como hago para borrar todos los registros?

Usa la sentencia DELETE de SQL

Código:

DELETE FROM tabla;

Tambien podes crear una condicion para borrar todas las que cumplan esa condicion

[kikevar]

Hola Culd gracias, me refiero a que si se corrompe un registro y por consiguiente ya no puedo accesar a la bd, como lo puedo reparar, o no se se como llamarlo si reparar o re indecsar o no se, el chiste es que como corrijo ese problema?

Gracias de antemano

[Avellaneda]

Iniciado por kikevar

Hola Culd gracias, me refiero a que si se corrompe un registro y por consiguiente ya no puedo accesar a la bd, como lo puedo reparar, o no se se como llamarlo si reparar o re indecsar o no se, el chiste es que como corrijo ese problema?

Gracias de antemano

Hola, mira prueba este ejemplo para compactar/reparar una BD Access:

Código:

Dim sDBTmp As String, NombreMdb As String
        Dim oAccess As New Access.Application

        Screen.MousePointer = vbHourglass
        NombreMdb = App.Path & "\bd1.mdb"
        sDBTmp = "DBTmp.mdb"
        ' si ya existe el archivo temporal, lo borramos
        If Len(Dir$(sDBTmp)) Then Kill sDBTmp
        sDBTmp = App.Path & "\" & sDBTmp
        ' si está abierta la conexión, la cerramos para poder compactar
        If cn.State = 1 Then cn.Close
        oAccess.CompactRepair NombreMdb, sDBTmp
        ' Eliminamos la DB original
        Kill NombreMdb
        ' y renombramos la compactada/reparada
        Name sDBTmp As NombreMdb
        Screen.MousePointer = vbDefault

Para que funcione, tienes que marcar la referencia a "Microsoft Access xx.x Object Library"