Este código mostra como compactar o banco de dados de um arquivo Access (MDB) através de código ASP, a função retorna a string “OK” caso seja executada com sucesso.
Os parametros da função são respectivamente:
– O caminho de origem do arquivo mdb.
– O caminho de destino do arquivo mdb compactado.
<%
'-----------------------------------------------------
'Funcao: CompactaMDB(ByVal CaminhoOrigem, ByVal CaminhoDestino)
'Sinopse: Realiza a compactação de um arquivo MDB
'Parametro(s):
' CaminhoOrigem: Caminho origem do arquivo Access
' CaminhoDestino: Caminho destino do arquivo Access
'Retorno: String "OK" que for executada com sucesso
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function CompactaMDB(ByVal CaminhoOrigem, ByVal CaminhoDestino)
On Error Resume Next
'Declarando as Variaveis
Dim DBOrigem
Dim DBDestino
Dim JRO
'Objeto JET
Set JRO = Server.CreateObject("JRO.JetEngine")
'String de Conexao OLEDB
DB_origem = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoOrigem
DB_destino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoDestino & " ;Jet OLEDB:Engine Type=5"
'Metodo para Compactar
JRO.CompactDatabase DBOrigem, DBDestino
'Verificando erro
If Err.number <> 0 Then
CompactaMDB = Err.description
Else
'Retorno da Funcao
CompactaMDB = "OK"
End If
End Function
%>
