Comando 'compactar e corrigir' p/ MDB

[Nork 0]

E ai pessoal??? beleza??

 

Seguinte..... reparei que o ACCES nunca diminui o tamanho automaticamente, ou seja, mesmo que deleto o conteudo

o arquivo permanece do mesmo tamanho !!

 

Resolvi então perguntar no topico ACCES, e o cara me explicou que ele não diminui mesmo, e que é preciso

mandar 'compactar e corrigir'.

 

O cara "mexe" com VBA e disse que la tem um comandinho sim, porem o colega não sabe nada de ASP.

 

 

Então resolvi postar aqui !!

 

 

Duvida..... COMO POSSO MANDAR 'compactar e corrigir' O ARQUIVO MDB EM ASP ?????

:blink:

 

 

Desde ja agradeco !!

 

 

Fico no aguardo !

[PedBolo 0]

1. <%  
   2. '----------------------------------------------------- 
   3. 'Funcao: CompactaMDB(ByVal CaminhoOrigem, ByVal CaminhoDestino)  
   4. 'Sinopse: Realiza a compactação de um arquivo MDB 
   5. 'Parametro(s):  
   6. '   CaminhoOrigem: Caminho origem do arquivo Access
   7. '   CaminhoDestino: Caminho destino do arquivo Access
   8. 'Retorno: String "OK" que for executada com sucesso 
   9. 'Autor: Gabriel Fróes - www.codigofonte.com.br  
  10. '----------------------------------------------------- 
  11. Function CompactaMDB(ByVal CaminhoOrigem, ByVal CaminhoDestino) 
  12.	 On Error Resume Next 
  13.	 'Declarando as Variaveis  
  14.	 Dim DBOrigem   
  15.	 Dim DBDestino  
  16.	 Dim JRO  
  17.   
  18.	 'Objeto JET 
  19.	 Set JRO = Server.CreateObject("JRO.JetEngine") 
  20.  
  21.	 'String de Conexao OLEDB  
  22.	 DB_origem = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoOrigem   
  23.	 DB_destino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoDestino & ";Jet OLEDB:Engine Type=5"   
  24.   
  25.	 'Metodo para <b style="color:black;background-color:#a0ffff">Compactar</b> 
  26.	 JRO.CompactDatabase DBOrigem, DBDestino  
  27.  
  28.	 'Verificando erro  
  29.	 If Err.number <> 0 Then  
  30.		 CompactaMDB = Err.description  
  31.	 Else  
  32.		 'Retorno da Funcao  
  33.		 CompactaMDB = "OK"  
  34.	 End If  
  35. End Function   
  36. %>

Autor: Gabriel Fróes - www.codigofonte.com.br

 

 

*Faz backup do mda antes de testar seu código.

[Ted k' 126]

belo script

 

Só não pode esquecer de ter o Componente JRO JetEngine instalado no servidor!

[Nork 0]

Ae galera, assim q abrir um tempo aqui no trampo eu testo, e... dando certo eu posto aqui !!

 

Abracao !!

 

 

Desde ja VALEUUUUUUUUU !!!!

[Mário Monteiro 179]

Muito bom mesmo o script