VB压缩/修复Access数据库操作源代码

原创 2007年09月27日 18:36:00

在Access数据库操作时经常数据库经常会由于操作频繁而出现各种问题.以及数据库无限的增大.为了不影响使用我们需要对数据库进行压缩/修复.以下代码就是用VB压缩并且修复Access数据库德 代码.大家可以直接使用.

Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As StringAs Long

 
Public Const MAX_PATH = 260

 
Public Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True)

     
On Error GoTo CompactErr

     
Dim strBackupFile As String

     
Dim strTempFile As String

     
'检查数据库文件是否存在

     
If Len(Dir(Location)) Then

        
' 如果需要备份就执行备份

        
If BackupOriginal = True Then

            strBackupFile 
= GetTemporaryPath & "backup.mdb"

            

            
If Len(Dir(strBackupFile)) Then Kill strBackupFile

            

            FileCopy Location, strBackupFile

        
End If

        
' 创建临时文件名

        strTempFile 
= GetTemporaryPath & "temp.mdb"

        

        
If Len(Dir(strTempFile)) Then Kill strTempFile

        

        
'通过DBEngine 压缩数据库文件

        DBEngine.CompactDatabase Location, strTempFile

        
' 删除原来的数据库文件

        Kill Location

        
' 拷贝刚刚压缩过临时数据库文件至原来位置

        FileCopy strTempFile, Location

        
' 删除临时文件

        Kill strTempFile

    
End If

        

    

    

CompactErr:

    

             
Exit Sub

 
End Sub

 
Public Function GetTemporaryPath()

    
Dim strFolder As String

    
Dim lngResult As Long

    strFolder 
= String(MAX_PATH, 0)

    lngResult 
= GetTempPath(MAX_PATH, strFolder)

    
If lngResult <> 0 Then

        GetTemporaryPath 
= Left(strFolder, InStr(strFolder, Chr(0)) - 1)

    
Else

        GetTemporaryPath 
= ""

    
End If

 
End Function
 
版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

VB操作access数据库

第一次用VB来连接数据库,由于不了解VB语法,费了

C#操作ACCESS数据库(创建,压缩,备份,恢复)

介绍 下面这段C# 代码可以用来压缩和修复Access数据库,不管它是一个简单的".mdb"ACCESS数据库还是一个".mdw"网络共享数据库,这个过程和你在用MS Access应用程序中使用的...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

C#操作ACCESS数据库(创建,压缩,备份,恢复)

摘自http://www.ad0.cn/netfetch/read.php/338.htm 用C#压缩和修复Access数据库(这部分是劳动人民翻译的) 介绍     下面这段C# 代码可以用来...

C#操作ACCESS数据库(创建,压缩,备份,恢复)

下面这段C# 代码可以用来压缩和修复Access数据库,不管它是一个简单的".mdb"ACCESS数据库还是一个".mdw"网络共享数据库,这个过程和你在用 MS Access应用程序中使...

VB使用ADOX压缩修复ACCESS数据库文件的类模块

Option Explicit '//*********************************************************************** '//类模...
  • leek
  • leek
  • 2012-02-24 09:11
  • 355

VB通过代码对Access数据库的操作

转csdn帖子中faysky2、lihonggen0的答案,不过自己还未测试,先记录下来 用ADOX:  '菜单“工程”--> "引用 "--> Microsoft ADO ...

C#操作Access数据库

以下为原文链接:http://www.shouyu.com/ucenter/user_note/n/1648 C#对Access数据库的一些操作方法 |2014/3/11小易| 课程:...

C#操作Access数据库

using System; using System.Collections.Generic; using System.Linq; using System.Text; using Syst...

JDBC操作Mysql数据库源代码

import java.sql.Connection; import java.sql.DriverManager; //打开并连接数据库 public class TestCon { public ...

C# Access 数据库 操作

using System; using System.IO; using System.Collections.Generic; using System.Linq; using System...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)