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

visualbasic999 2001-08-11 09:23:23

...全文

80 3 打赏收藏举报

写回复

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压缩数据库的例子

VB压缩数据库，修复Access数据库文件，是在一瞬间完成的修复功能，因此测试截图上并没什么功能，有兴趣的可准备两个Access数据库测试一下。运行环境：VB6+Access

内容索引:VB源码,数据库应用,数据库压缩　VB编程实现Access数据库压缩功能，VB编程的朋友可以借鉴一下，压缩的效果还是很明显的，虽然不是很完美，但至少可以借鉴一下，为以后的编程思路提供参考。

read_con.Close() '压缩数据库 引用Microsoft Jet and Replication Objects 2.6 Library If System.IO.File.Exists(“D:” & “temp.mdb”) Then System.IO.File.Delete(“d:\temp.mdb”) End If Dim jro.

VB开发的Access数据库压缩工具源码，对Access进行内容压缩，操作之后数据库体积明显变校本软件操作方法简单，只需选择需要压缩的Access数据库，然后点击“压缩数据库”即可。两个直方图清淅的描绘出了压缩前和压缩后...

发帖

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

1200

社区成员

5.5w+

社区内容

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

社区管理员

加入社区

帖子事件

创建了帖子

2001-08-11 09:23

社区公告

暂无公告