VB CompactDatabase 压缩/修复数据库
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
fffffffffffffffff
test red font.