摘要：
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,'... 阅读全文
posted @ 2019-01-15 13:46
wgscd
阅读(1038)
评论(1)
推荐(0)
浙公网安备 33010602011771号