VB CompactDatabase 压缩/修复数据库

weixin_30897079

于 2019-01-15 13:46:00 发布

阅读量567

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/wgscd/p/10271440.html

版权

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

转载于:https://www.cnblogs.com/wgscd/p/10271440.html