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

VB 压缩Access数据库代码

工程-引入 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

好帖子 需要支持
页: [1]
查看完整版本: VB 压缩Access数据库代码