|
VB压缩Access数据库代码 |
|
|
|
www.nanhushi.com 佚名 不详 |
|
’工程-引入 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 第一个参数是原始数据库，第二个是目标数据库
|
|
|
|
| 文章录入：杜斌 责任编辑：杜斌 |
|
上一篇文章： VB6.0中类聚集关系的实现
下一篇文章： 全局变量的定义和使用 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
| |
|
