module5.bas

用户MODBUS规约通信编程,起参考作用.

Attribute VB_Name = "Module5"
Public Function zip()
'断开数据库的连接
On Error Resume Next
Set conn = Nothing

Dim JRO As JRO.JetEngine
'压缩数据库
Set JRO = New JRO.JetEngine
If Dir("jk3.mdb") <> "" Then
Kill ("jk3.mdb")
End If

JRO.CompactDatabase "provider=Microsoft.Jet.oledb.4.0;" & _
                   "data source=jk.mdb", "provider=Microsoft.Jet.oledb.4.0;" & _
                   "data source=jk3.mdb"
FileCopy "jk3.mdb", "jk.mdb"
Kill ("jk3.mdb")

End Function