微信扫一扫1191
社区成员
怎么用VB压缩数据库!马上给分!
...全文
当前发帖距今超过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
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
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编程实现Access数据库压缩功能 内容索引:VB源码,数据库应用,数据库压缩 VB编程实现Access数据库压缩功能，VB编程的朋友可以借鉴一下，压缩的效果还是很明显的，虽然不是很完美，但至少可以借鉴一下，为以后的编程思路提供参考。
VB开发的Access数据库压缩工具源码.rar VB开发的Access数据库压缩工具源码，对Access进行内容压缩，操作之后数据库体积明显变校本软件操作方法简单，只需选择需要压缩的Access数据库，然后点击“压缩数据库”即可。两个直方图清淅的描绘出了压缩前和压缩后...
VB 压缩Access数据库 '通过DBEngine压缩数据库文件 DBEngine.CompactDatabase Location, strTempFile '删除原来的数据库文件 Kill Location '拷贝刚刚压缩过临时数据库文件至原来位置 FileCopy strTempFile, ...
C#使用晚绑定来实现压缩Access数据库的方法 本文实例讲述了C#使用晚绑定来实现压缩Access数据库的方法，通常来说VB对Com后期绑定支持得很好,在C#中可以使用反射来实现。具体方法如下： 函数实现代码如下: public static void CompactAccessDB(string ...
Access 数据库压缩 vb code Access 数据库压缩工具 这个代码可以压缩Access 2000/XP版本的数据库,使用简单快速,仅仅几行代码搞定,支持压缩带有密码保护的数据库.压缩后以图形比率显示.
压缩和修复Access数据库 VB压缩数据库，修复Access数据库文件，是在一瞬间完成的修复功能，因此测试截图上并没什么功能，有兴趣的可准备两个Access数据库测试一下。 运行环境：VB6+Access
vb6压缩Access数据库使用JRO.JetEngine ' 压缩数据库 Public Function compactDatabase(ByVal DataBase As String) On Error GoTo err1 Dim str As String Dim Flag As Integer, FileName As String Dim FIXDB As New JRO.JetEngine Flag = InStrRev...
数据库技术VB编程小例子源码小合集打包下载.rar MSFlexGrid 中输入资料、在DBGrid中实现下拉列表和单元格计算、在MSFlexGrid控件的网格中加背景图片、压缩数据库文件、利用拼音简码进行数据查询、锁住和解锁数据库、数据库数据备份、某一时间段内数据汇总、修复...
vb.net ACCESS压缩数据库 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.
