|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Compatação de BD Access em ADO (Access 2000)
|
 |
|
|
|
Postada em 11/3/2003 por Ricardo
Public Function CompactaBD(ByVal pathOrigem As String, ByVal pathDestino As String, senhabd as string) As Boolean
' Função que realiza a compactação do banco de dados
Dim dbOrigem As String, dbDestino As String
Dim JRO As JRO.JetEngine
Set JRO = New JRO.JetEngine
DoEvents
dbOrigem = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathOrigem & "; Jet OLEDB:Database Password = " & senha
dbDestino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathDestino & " ;Jet OLEDB:Engine Type=5; Database Password = " & senhabd
JRO.CompactDatabase dbOrigem, dbDestino
CompactaBD = True
Exit Function
End Function
|
|
|
|
|
