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 第一个参数是原始数据库，第二个是目标数据库
本文来自 280文秘网(https://www.it280.com)，转载请保留网址和出处
【VB压缩Access数据库代码】相关文章：
Vb中控件的自动排列05-09
07年4月北师大“中国古代文学史（一）”串讲（5）05-09
一年级数学奥数题及答案:猴子爬树05-09
【F1题库】acca F1第三十二章模拟练习题（6）05-09
唐代史馆研究论文05-09
初中数学教案：整式的加减 整式（３）05-09
2013年招商银行广东省深圳分行招聘应用系统参数规划与设计岗招聘启事05-09
法国实用及紧急电话号码05-09
数学开放题教育研究论文05-09
沈阳工程学院考研分数线_2021考研国家分数线什么时候出来05-09