auxilio:como reindexar una tabla desde vb?, como hacer el pack desde vb?

Fredy
04 de Mayo del 2004
Pues ahora mi prblema es que nesecito reindexar la tabla porque al eliminarlos quedan marcados como eliminados pero no lo a hecho totalemente, alguna sugerencia?, alguna intruccion para reindexar desde vb?, alguna intruccion para hacer el pack que se hace desde visual Fox pro pero desde visual basic?

Nota yo desde visual fox lo hago en mla ventana de comandos la palbra pack, como lo hago desde vb?
gracias .
Desde Colombia Fredy

Roberto Uchoa
04 de Mayo del 2004
Public Function CompactaDB() As Boolean 'Compactação do banco de dados
Dim DBOrigem As String
Dim DBDestino As String
Dim Origem As String
Dim Destino As String
Dim JRO As JRO.JetEngine
Set JRO = New JRO.JetEngine
On Error GoTo Erro

DoEvents
DBOrigem = Diretorio & NomeBanco
DBDestino = Diretorio & "Temp.mdb"

Origem = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBOrigem
Destino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBDestino & " ;Jet OLEDB:Engine Type=5"

JRO.CompactDatabase Origem, Destino
CompactaDB = True
Exit Function

Erro:
CompactaDB = False
MsgBox Err.Description, vbExclamation
End Function