怎么用VB压缩数据库!马上给分!

visualbasic999 2001-08-11 09:23:23

...全文

111 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

一川烟草123 2001-08-11

打赏
举报

回复

每月月初月中壓縮

一川烟草123 2001-08-11

打赏
举报

回复

If Day(Date) = 15 Or Day(Date) = 1 Then
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
FileCopy App.Path & "\thetemp.mdb", App.Path & "\pos_sys.mdb"
Kill App.Path & "\thetemp.mdb"
Set jro = Nothing
End If

一川烟草123 2001-08-11

打赏
举报

回复

If Day(Date) = 15 Or Day(Date) = 1 Then
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
FileCopy App.Path & "\thetemp.mdb", App.Path & "\pos_sys.mdb"
Kill App.Path & "\thetemp.mdb"
Set jro = Nothing
End If

VB ADO 数据库 压缩，VB编写的用ADO压缩数据库的例子

使用vb6.0压缩和修复数据库,有一定借鉴价值。希望对大家有用。

vb 压缩和修复access数据库

vb 实现压缩access数据库功能，很好使用

利用vb开发的access压缩功能 数据库的压缩

数据库(包含打印，安装，报表)

1,217

社区成员

55,952

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章