正文
VB CompactDatabase 压缩/修复数据库
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
Option ExplicitPrivate 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
