VB6.0解决access2007压缩及修复方法.docVIP

VB6.0解决access2007压缩及修复方法 有四种方法： 1.引用DAO3.6压缩 Private Sub Command1_Click() On Error GoTo Err_Handle Dim dbE As New DAO.DBEngine dbE.CompactDatabase C:\要压缩的.mdb, B:\压缩后的.mdb Exit Sub Err_Handle: MsgBox Err.Description Exit Sub End Sub 2.用jet引擎压缩数据库 工程-引入 Microsoft Jet and Replication Objects Library Private Sub Command1_Click() Dim FIXDB As New JRO.JetEngine FIXDB.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aa.mdb, _ Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aac.mdb End Sub ’CompactDatabase 第一个参数是原始数据库，第二个是目标数据库 3.引用ACCESS压缩数据库 設定引用項目 Microsoft Access X.X Object Library Dim objAcc As New Access.Application 或 Dim objAcc As Object Set objAcc = CreateObject(Access.Application) 之後 Call objAcc.CompactRepair(c:\要压缩的.accdb, C:\压缩后的.accdb, False) 如果有密码的话会弹出密码对话框。不合适。 4. 解决Access2007压缩问题 问题已经解决你在窗体中调模块 CompactJetDatabase (你的数据库路径+你的数据库) 还有不要忘记引用Microsoft ActiveX Data Objects 2.5 Library 或者引用高版本的 Set DBEngine = CreateObject(DAO.DBEngine.35) For Access 97 以前的 MDB Set DBEngine = CreateObject(DAO.DBEngine.36) For Access 2K 以后的 MDB 一下代码添加在模块中方便调用 Set DBEngine = CreateObject(DAO.DBEngine.36)在这里定义一下就可以了 DBEngine.CompactDatabase Location, strTempFile, , , ;pwd= PsdDb 通过DBEngine 压缩数据库文件 方法 1: 使用 DAO 物件 ( Data Access Object ) 設定引用項目 Microsoft DAO x.x Object Library 目前 DAO 物件有 3.51 版的 Microsoft DAO 3.5 Object Library ( For Access 97 以前的 MDB ) 及 3.6 版 Microsoft DAO 3.6 Object Library ( For Access 2K 以後的 MDB ) 不設定引用 ( Early Binding ) 也可使用 Late Binding 方式來建立 DAO 3.5 或 3.6 版本的 DBEngine Set dbe = CreateObject(DAO.DBEngine.35) 或 Set dbe = CreateObject(DAO.DBEngine.36) Compact 壓縮 ( Defragmentation ) 資料庫 動作如下 : 語法 : DBEngine.CompactDatabase OldDb, NewDb, Locale, Options, Password OldDb : 欲處理之來源 MDB NewDb : 為處理後之目的 MDB Locale 參數 : dbLangGeneral : English, German, French, Portuguese, Italian, and Modern Spanish dbLangChineseSimplified : Simplified Chinese ( 繁體中文 ) dbLa