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
 

相关文章推荐

microsoft access 数据库操作类

  • 2014年05月30日 11:35
  • 4KB
  • 下载

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

Option Explicit '//*********************************************************************** '//类模...
  • leek
  • leek
  • 2012年02月24日 09:11
  • 389

C# ACCESS 数据库操作类

  • 2011年09月13日 15:50
  • 2KB
  • 下载

ACCESS数据库操作

本文主要提供ACCESS数据库操作方法,包括连接、读取、插入、更新、删除等操作,以及基本指令格式;仅供学习!...
  • jyxyscf
  • jyxyscf
  • 2017年07月13日 08:53
  • 187

Access数据库操作

  • 2010年01月01日 09:49
  • 63KB
  • 下载

ACCESS数据库操作类

  • 2009年11月16日 19:06
  • 9KB
  • 下载

c#下各种数据库操作的封装!(支持ACCESS,SQLSERVER,DB2,ORACLE,MYSQL)

首先定义数据库操作的标准接口IDBAccess,定义接口的基本功能; 通过基本的接口设置,完成数据访问的统一抽象。 public interface IDBAccess     ...{       ...
  • cuoban
  • cuoban
  • 2015年01月17日 22:29
  • 486
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB压缩/修复Access数据库操作源代码
举报原因:
原因补充:

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