VB CompactDatabase 压缩/修复数据库

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Private Sub Command1_Click() On Error GoTo err Dim DbEngine, dbFile As String dbFile = "D:\my.mdb" Set DbEngine = CreateObject("DAO.DBEngine.36") 'CompactDatabase(filename,tempfile,'',0,";pwd=123"); DbEngine.CompactDatabase dbFile, "d:\OKtemp.mdb", "", 0, ";pwd=123" Kill dbFile Name "d:\OKtemp.mdb" As dbFile Exit Sub err: MsgBox err.Description End Sub