VB 压缩Access数据库代码

阿杰 · 发表于 2011-7-25 23:24:59

工程-引入 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 第一个参数是原始数据库，第二个是目标数据
来源:http://school.cnd8.com/vb/jiaocheng/59886.htm

upring · 发表于 2015-7-25 13:01:42

好帖子需要支持

账号		自动登录	找回密码
密码			加入我们

[数据库类] VB 压缩Access数据库代码

贡献奖

关注奖

人气王

精英奖

乐于助人勋章