打印本文   关闭窗口

VB压缩Access数据库代码

作者：佚名  文章来源：不详  点击数  更新时间：2008/10/22 21:37:29  文章录入：杜斌  责任编辑：杜斌

’工程-引入 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 第一个参数是原始数据库，第二个是目标数据库

打印本文   关闭窗口