Compactar e reparar BD ACCESS

[Davide Ricardo 0]

Boas pessoal...

 

Gostaria de saber como faço para compactar e reparar uma base dados access, por código asp..

 

vi alguns, mas nao consigo por a funcionar...Se souberem de alguma a funkar agradecia que postassem aki

 

<% Set Engine = CreateObject("DAO.DBEngine.35")Engine.CompactDatabaseServer.MapPath("banco.mdb"),Server.MapPath("baco_Compactado.mdb")response.write "<script>alert('O DB Access 97 " & Server.MapPath("banco.mdb") & " no arq."& Server.MapPath("banco_Compactado.mdb") & " o acesso ainda é para o banco não compactado, é preciso renomear para ativar o compactado');</script>"response.redirect("pagina.asp")%>

‘====================================================='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 StringsDBNAME = sDBFILE 'extrapulate the file nameDo While InStr(1, sDBNAME, "\") <> 0sDBNAME = Right(sDBNAME, Len(sDBNAME) - InStr(1, sDBNAME, "\"))Loop'get the path name onlysDBPATH = Left(sDBFILE, Len(sDBFILE) - Len(sDBNAME))sDB = sDBPATH & sDBNAMEsDBtmp = sDBPATH & "tmp" & sDBNAME'Call the statement to execute compact and repair...If sPASSWORD <> "" ThenCall DBEngine.CompactDatabase(sDB, sDBtmp, dbLangGeneral, , ";pwd=" & sPASSWORD)ElseCall DBEngine.CompactDatabase(sDB, sDBtmp)End If'wait for the app to finishDoEvents'remove the uncompressed originalKill sDB'rename the compressed file to the original to restore for other functionsName sDBtmp As sDBEnd Sub

[arr 0]

Procura no sourceforge.net um projeto chamado MYAccess. É um gerenciador online por access que tem a rotina para compactar e reparar o MDB.Esse funciona que eu já testei :-)))

[Davide Ricardo 0]

Boas ARR...

 

Procurei no sourceforge.net akilo que me disse, mas nao encontrei..o que encontrei foi este link http://sourceforge.net/search/?type_of_sea...;words=MYAccess

 

será que pode postar ai o link correcto?..

 

agradecido

[arr 0]

É esse aí que aparece em cima!

O site do projeto é:

 

http://iissitelib.sourceforge.net/myaccess/

 

Abraço