Reparar access desde vb6

[Hector]

Hola amigos del foro.

Talvez alguien pueda indicarme donde encontrar o facilitar
una rutina que permita reparar una base de datos en Access.
Solicito esto pues debo adicionarlo a un aplicativo al que
estoy dando mantenimiento.

Agradezco de antemano la ayuda que puedan brindarme.

muchos saludos desde el PERU...

Hector

[Don Quijote de Nicaragua]

Don Quijote de Nicaragua.
La función de Compactar y Reparar hace lo mismo.

Public Sub CompactAccessDB(ByVal Path As String, ByVal Filename As
String)
Dim jet As JRO.JetEngine
Dim sFullFileName As String
Dim sTempFileName As String
Dim sFullTempFileName As String

sFullFileName = Path & Filename
sTempFileName = "qvzxrts.mdb"
sFullTempFileName = Path & sTempFileName

Set jet = New JRO.JetEngine

' Borrar Base de Datos Temporal
If Dir(sFullTempFileName) <> "" Then
Kill sFullTempFileName
End If

' Compactar Base de Datos
jet.CompactDatabase "Data Source=" & sFullFileName & ";", "Data
Source=" & sFullTempFileName & ";"

Set jet = Nothing

' Renombrar archivo temporal por el original
Kill sFullFileName
Name sFullTempFileName As sFullFileName
End Sub

Post by Hector
Hola amigos del foro.
Talvez alguien pueda indicarme donde encontrar o facilitar
una rutina que permita reparar una base de datos en Access.
Solicito esto pues debo adicionarlo a un aplicativo al que
estoy dando mantenimiento.
Agradezco de antemano la ayuda que puedan brindarme.
muchos saludos desde el PERU...
Hector

[Hector]

Muchas Gracias por la pronta respuesta a mi consulta.

Te comento que luego de colocar la consulta en el foro,
estuve revisando infinidad de paginas y encontre un
utilitario de Microsoft llamado JETCOMP.EXE que realiza
esta funcion, y la ventaja segun indican es que no
necesita abrir la base de datos a reparar y/o compactar.

Talvez te sirva este dato...

Saludos

Hector

-----Mensaje original-----
Don Quijote de Nicaragua.
La función de Compactar y Reparar hace lo mismo.
Public Sub CompactAccessDB(ByVal Path As String, ByVal

Filename As

String)
Dim jet As JRO.JetEngine
Dim sFullFileName As String
Dim sTempFileName As String
Dim sFullTempFileName As String
sFullFileName = Path & Filename
sTempFileName = "qvzxrts.mdb"
sFullTempFileName = Path & sTempFileName
Set jet = New JRO.JetEngine
' Borrar Base de Datos Temporal
If Dir(sFullTempFileName) <> "" Then
Kill sFullTempFileName
End If
' Compactar Base de Datos
jet.CompactDatabase "Data Source=" & sFullFileName

& ";", "Data

Source=" & sFullTempFileName & ";"
Set jet = Nothing
' Renombrar archivo temporal por el original
Kill sFullFileName
Name sFullTempFileName As sFullFileName
End Sub

Post by Hector
Hola amigos del foro.
Talvez alguien pueda indicarme donde encontrar o

facilitar

Post by Hector
una rutina que permita reparar una base de datos en

Access.

Post by Hector
Solicito esto pues debo adicionarlo a un aplicativo al

que

Post by Hector
estoy dando mantenimiento.
Agradezco de antemano la ayuda que puedan brindarme.
muchos saludos desde el PERU...
Hector

.