7493
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Rozre 2003-05-09
up
wu_xiaoya 2003-05-09
我这样做的时候他会提示我以独占方式打开
On Error GoTo Compact_Error
Dim MDB_Name As String
Dim MDB_NewName As String
MDB_NewName = App.Path & "\product1.mdb"
MDB_Name = App.Path & "\product.mdb"
CompactDatabase MDB_Name, MDB_NewName
FileCopy MDB_NewName, MDB_Name
Kill MDB_Name
Exit Sub
Compact_Error:
MsgBox Err.Description
为什么啊？大家帮帮我啊
On Error GoTo Compact_Error
Dim MDB_Name As String
Dim MDB_NewName As String
MDB_NewName = App.Path & "\product1.mdb"
MDB_Name = App.Path & "\product.mdb"
CompactDatabase MDB_Name, MDB_NewName
FileCopy MDB_NewName, MDB_Name
Kill MDB_Name
Exit Sub
Compact_Error:
MsgBox Err.Description
为什么啊？大家帮帮我啊
wu_xiaoya 2003-05-09
不是这种，这种要源文件和目的文件的，我要的是那种直接可以调用的
这样的话我还要改名，比较麻烦，并且这种会出错
这样的话我还要改名，比较麻烦，并且这种会出错
lihonggen0 2003-05-09
如何使用 ADO 來压缩或修复 Microsoft Access 文件？
版本：VB6
以前使用 DAO 時，Microsoft 有提供 CompactDatabase Method 來压缩 Microsoft Access 文件，RepairDatabase Method 來修复损坏的 Microsoft Access 文件，。可是自从 ADO 出來之后，好像忘了提供相对的压缩及修复 Microsoft Access 文件的功能。
現在 Microsoft 发现了这个问题了，也提供了解決方法，不过有版本上的限制！限制說明如下：
ActiveX Data Objects (ADO), version 2.1
Microsoft OLE DB Provider for Jet, version 4.0
這是 Microsoft 提出的 ADO 的延伸功能：Microsoft Jet OLE DB Provider and Replication Objects (JRO)
这个功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第一次被提出！
這些必要的 DLL 文件在您安裝了 MDAC 2.1 之后就有了，您可以在以下的网页中下载 MDAC 的最新版本！
Universal Data Access Web Site
在下载之前先到 VB6 中檢查一下，【控件】【設定引用項目】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本，您就可以不用下载了！
在您安裝了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 來压缩或修复 Microsoft Access 文件，下面的步骤告訴您如何使用 CompactDatabase Method 來压缩 Microsoft Access 文件：
1、新建一個新表单，选择功能表中的【控件】【設定引用項目】。
2、加入 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。
3、在适当的地方加入以下的程序代码，記得要修改 data source 的內容及目地文件的路径：
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb", _ '來源文件
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet OLEDB:Engine Type=4" '目的文件
在 DAO 3.60 之后，RepairDatabase Method 已经无法使用了，以上的程序代码显示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 時的 RepairDatabase method！
版本：VB6
以前使用 DAO 時，Microsoft 有提供 CompactDatabase Method 來压缩 Microsoft Access 文件，RepairDatabase Method 來修复损坏的 Microsoft Access 文件，。可是自从 ADO 出來之后，好像忘了提供相对的压缩及修复 Microsoft Access 文件的功能。
現在 Microsoft 发现了这个问题了，也提供了解決方法，不过有版本上的限制！限制說明如下：
ActiveX Data Objects (ADO), version 2.1
Microsoft OLE DB Provider for Jet, version 4.0
這是 Microsoft 提出的 ADO 的延伸功能：Microsoft Jet OLE DB Provider and Replication Objects (JRO)
这个功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第一次被提出！
這些必要的 DLL 文件在您安裝了 MDAC 2.1 之后就有了，您可以在以下的网页中下载 MDAC 的最新版本！
Universal Data Access Web Site
在下载之前先到 VB6 中檢查一下，【控件】【設定引用項目】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本，您就可以不用下载了！
在您安裝了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 來压缩或修复 Microsoft Access 文件，下面的步骤告訴您如何使用 CompactDatabase Method 來压缩 Microsoft Access 文件：
1、新建一個新表单，选择功能表中的【控件】【設定引用項目】。
2、加入 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。
3、在适当的地方加入以下的程序代码，記得要修改 data source 的內容及目地文件的路径：
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb", _ '來源文件
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet OLEDB:Engine Type=4" '目的文件
在 DAO 3.60 之后，RepairDatabase Method 已经无法使用了，以上的程序代码显示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 時的 RepairDatabase method！
wu_xiaoya 2003-05-09
没有人知道么，大家快帮帮忙，急用，不然自己写了，呼呼
压缩和修复Access数据库 VB压缩数据库，修复Access数据库文件，是在一瞬间完成的修复功能，因此测试截图上并没什么功能，有兴趣的可准备两个Access数据库测试一下。 运行环境：VB6+Access
Access数据库压缩失败后修复经历 Access数据库压缩与修复 前段时间,因一时大意,直接在移盘硬盘上压缩一个800M的Access2003版数据库,在压缩时,移动硬盘读写出错,导致压缩失败.移动硬盘重新插拔后可读取,再用Access打开数据库文件出错，没法打开．但...
VB压缩/修复Access数据库操作源代码 在Access数据库操作时经常数据库经常会...以下代码就是用VB压缩并且修复Access数据库德 代码.大家可以直接使用.Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLen
ACCESS带密码压缩 VB. access2003 winXP 测试通过 很简单的语句 不过我找了很久才实现 希望对大家有帮助 注意：压缩式时只能以独占方式打开，所以在你打开了要压缩数据库的情况下 是无法运行压缩的。
VB.NET压缩ACCESS数据库 '创建数据库 Private Sub Create(ByVal mdbPath As String) If File.Exists(mdbPath) Then Throw New Exception("目标数据库已经存在，无法创建") End If mdbPath = "Provider=Microsoft.Je
有关Access的压缩和修复数据库功能 用过Access数据库的朋友一定知道有个“压缩和修复数据库”的功能。 为什么要 “压缩和修复数据库”首先是当然是压缩，减少文件大小。因为Access是一种文件型数据库，它所有的数据其实都是存储在一个扩展名为mdb的...
VB使用ADOX压缩修复ACCESS数据库文件的类模块 ' 功能说明：压缩数据库，去除数据库操作产生的冗于 ' 注意：必须应用DAO的对象 '' ========================================================== On Error GoTo CompactErr Dim strBackupFile As String...
压缩/修复 Access数据库操作 (VB/ASP) 在Access数据库操作时经常数据库经常会由于操作...以下代码就是用VB压缩并且修复Access数据库德 代码.大家可以直接使用.Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLengt
数据库技术VB编程小例子源码小合集打包下载.rar 数据库技术VB编程小例子源码小合集，共47个打包下载，包括：系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种数据格式、...
VB1.rar_数据库编程_Visual_Basic_源码 VB压缩数据库，修复Access数据库文件，是在一瞬间完成的修复功能，因此测试截图上并没什么功能，有兴趣的可准备两个Access数据库测试一下。
C#压缩ACCESS数据库的类源码 C#压缩ACCESS数据库的类源代码 此代码有参考网上的思路，看过的网上的参考基本上都没有涉及到带密码数据库的处理，经过漫长的试错过程，终于搞定了。（我在测试的时候，用的是access... /// 压缩修复数据库工具 /// 注
Access数据库压缩修复函数备份一举三得 引用Microsoft jet and Replication Object 2.6 LibraryAccess数据库压缩修复函数备份一举三得:代码归vbman2003所有Sub BackupMdb(sFile As String,dFile as string) sFile源文件,dFile目标文件 Dim miJRO As jro....
