1 Sao lưu phục hồi dữ liệu 2010-12-28, 00:57
MrSku
Administrator
Add reference to COM component: Microsoft DAO Object Library to your project.
- Code:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sDBFile As String = "E:\myDB.mdb"
Dim sBackUpFile As String = "E:\myDB_BackUp.mdb"
' Backup *.mdb database
If File.Exists(sDBFile) Then
Dim db As New DAO.DBEngine
'CompactDatabase has two parameters, creates a copy of compact DB at the Destination path
db.CompactDatabase(sDBFile, sBackUpFile)
End If
'Restore the original file from the compacted file
If File.Exists(sBackUpFile) Then
File.Copy(sBackUpFile, sDBFile, True)
End If
End Sub
End Class