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

visualbasic999 2001-08-11 09:23:23

...全文

132 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

Private Const MAX_PATH = 260 Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Sub CompactJetDatabase(

如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在Access项目中进行这样的压

Private Sub Form_Load() Text1.Text = App.Path & "/db1.mdb"End SubPrivate Sub Command1_Click() On Error Resume Next Dim sNewName As String Dim sBakFile As String sNewName = Text1.Text sDatabase =

在VB中压缩ACCESS数据库如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在...

CSDN论坛vb版中有一个讨论内存压缩JPEG的帖子，在此我贴出解决代码。代码原理原本就简单，所以注释也很简单。希望能帮助到苦苦思索的朋友们。(魏滔序原创，转帖请注明出处。) 首先要下载一个IStream库，用该库可以减少代码量，如果直接全部用API也未尝不可。IStream下载地址：IStream.zip 下面是代码，可以贴在一个模块中：Option Explic

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

1,217

社区成员

55,950

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章