compactar e corrigir banco de dados access

[Nandotrin 0]

No Access 2000 existe a opção compactar e corrigir banco de dados, certo!

 

Gostaria de saber se alguem sabe o código em asp dessa função.

 

Achei esse código na internet:

'=====================================================

'COMPACT AND REPAIR DATABASE WITH PASSWORD PROTECTION IF PROVIDED

'=====================================================

' Call CompactRepairAccessDB(MyDatabasePathAndFile, MyPassword)

Public Sub CompactRepairAccessDB(ByVal sDBFILE As String, _

Optional sPASSWORD As String = "")

Dim sDBPATH As String, sDBNAME As String, sDB As String, sDBtmp As String

sDBNAME = sDBFILE 'extrapulate the file name

Do While InStr(1, sDBNAME, "\") <> 0

sDBNAME = Right(sDBNAME, Len(sDBNAME) - InStr(1, sDBNAME, "\"))

Loop

'get the path name only

sDBPATH = Left(sDBFILE, Len(sDBFILE) - Len(sDBNAME))

 

sDB = sDBPATH & sDBNAME

sDBtmp = sDBPATH & "tmp" & sDBNAME

 

'Call the statement to execute compact and repair...

If sPASSWORD <> "" Then

Call DBEngine.CompactDatabase(sDB, sDBtmp, dbLangGeneral, , ";pwd=" & sPASSWORD)

Else

Call DBEngine.CompactDatabase(sDB, sDBtmp)

End If

'wait for the app to finish

DoEvents

'remove the uncompressed original

Kill sDB

'rename the compressed file to the original to restore for other functions

Name sDBtmp As sDB

End Sub

 

 

Mas não sei como usa-lo onde coloco o nome do arquivo, tabela ou campos estou boiando.......

 

 

Agradeço a atenção e resposta.

[Nandotrin 0]

Por favor alguem me ajude,

 

quando tento rodar esse script fica dando erro no "As"