• 合肥市安庆路第三小学介绍护学岗工作的优秀经验 2019-11-11
  • 雷政富狱中发声:否认漏罪举报 不服原判正申诉 2019-11-11
  • 端午节期间济南增开20.5对热门方向列车 2019-11-10
  • 候选企业:东方证券股份有限公司 2019-11-04
  • “鹊桥”天梯的“四宗最” 2019-10-21
  • 北京法院诉讼档案实现互联网查阅 2019-10-21
  • 讲政德如何落到实处(专家观点) 2019-10-18
  • 解读习近平八一讲话:铭记辉煌历史 推进强军事业 2019-10-14
  • 吉祥法师:什么才是“相由心生”?了解一下 2019-10-14
  • 乌兰察布--内蒙古频道--人民网 2019-10-12
  • 游客被指捡石子砸老虎 北京野生动物园:正在核实 2019-10-12
  • 回复@老老保老张工:三大件为什么会让人自豪?因为你有钱都买不到,必须找关系批条子!所以结婚能有三大件,不仅表示有钱,还表示有关系。 2019-10-05
  • 致父亲——习近平与父亲的家国情 2019-10-04
  • 高清:葡萄牙明晨对阵西班牙 C罗领衔球队认真备战 2019-10-04
  • 明年起全国将全面供应“国六”汽柴油 2019-10-02
  • 15选5走势图
    电话:13843226952
     
    工作时间:周一至周六:8:30-5:00  周日可联系客服QQ
       
      建站咨询㈠ 建站咨询㈡ 售后服务 售前咨询  
    关于阳光,吉林市网站建设,吉林市网站制作,网络公司
     当前位置:15选5走势图 >>> 技术中心

    新疆风釆35选7开奖号:怎么在VB中压缩ACCESS数据库

    日期:2012/3/1    来自:15选5走势图   作者:Admin   去百度查找  去Google查找

    15选5走势图 www.kdth.net      如果您在Access数据库、Access项目中删除数据或对象,可能会产生碎片并导致磁盘空间使用效率的降低。同时,数据库文件的大小并未减小,而是不断的增大,直至您的硬盘没有空间。有没有好的处理方法呢?其实,在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能,这样的压缩处理的实质是复制该文件,并重新组织文件在磁盘上的存储方式。但是,在Access项目中进行这样的压缩不会影响到数据库对象(例如表或视图),因为它们是存储在Microsoft SQL Server数据库中而不是在Access项目本身中。同样,这样的压缩也不会影响到Access项目中的自动编号。在Access数据库中,如果已经从表的末尾删除了记录,压缩该数据库是就会重新设置自动编号值。添加的下一个记录的自动编号值将会比表中没有删除的最后记录的自动编号值大一。

    下面介绍如何在VB中用一个CompactJetDatabase过程实现对Access数据库文件的压缩处理,在这个过程中有一个可选参数,就是在压缩前你是否需要把原有的数据库文件备份到临时目录(True或False)。我用此办法使21.6MB的数据库压缩到仅仅300KB。

    ‘这些代码可放在??橹?,在其他窗体也使用

    Public Declare Function GetTempPath Lib "kernel32" Alias _

    "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As 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

    Else

    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

    以后您在使用Access数据库时可以尝试进行这样的压缩,您应该会发现我说的没有错。

     
    上一篇:用css hack兼容ie6,7,8,9,ff,chrome,opera,saf
    下一篇:网站关键词怎么选择会更好
      阳光新闻 更多>>>
    吉林网站建设_吉林网页制作-阳光新闻
    移动建站的优势在哪?
    如何规划网站的主题
    网站优化注意事项
    网站建设的趋势
    网站建设对企业发展有哪些助力
    小程序未来的市场前景
      招贤纳士 更多>>>
    诚聘销售精英合作伙伴
    诚招吉林市网站建设商务经理
    招聘吉林市网站建设技术员
    公司招收吉林市网站开发学员
    因业务发展需要特诚聘商务代表
      网站建设专题 更多>>>
    阳光科技为您提供网站改版服务
    为什么网页设计要简练?
    如何在百度提交收录,怎样让自己的网站排名
    什么样的网站最受访客喜欢?
    吉林市网站建设形式与内容应统一
    网站管理与团队经营的秘诀
    优质的单页网站如何创建
     
    Copyright © 2008-2019 15选5走势图, All Rights Reserved    
    电话:13843226952  联系人:王经理
    ICP备案号:吉ICP备10003760号   技术支持:15选5走势图
    打造好的15选5走势图!我们为您提供有品质的15选5走势图、15选5走势图、15选5走势图、15选5走势图、15选5走势图、15选5走势图服务!
  • 合肥市安庆路第三小学介绍护学岗工作的优秀经验 2019-11-11
  • 雷政富狱中发声:否认漏罪举报 不服原判正申诉 2019-11-11
  • 端午节期间济南增开20.5对热门方向列车 2019-11-10
  • 候选企业:东方证券股份有限公司 2019-11-04
  • “鹊桥”天梯的“四宗最” 2019-10-21
  • 北京法院诉讼档案实现互联网查阅 2019-10-21
  • 讲政德如何落到实处(专家观点) 2019-10-18
  • 解读习近平八一讲话:铭记辉煌历史 推进强军事业 2019-10-14
  • 吉祥法师:什么才是“相由心生”?了解一下 2019-10-14
  • 乌兰察布--内蒙古频道--人民网 2019-10-12
  • 游客被指捡石子砸老虎 北京野生动物园:正在核实 2019-10-12
  • 回复@老老保老张工:三大件为什么会让人自豪?因为你有钱都买不到,必须找关系批条子!所以结婚能有三大件,不仅表示有钱,还表示有关系。 2019-10-05
  • 致父亲——习近平与父亲的家国情 2019-10-04
  • 高清:葡萄牙明晨对阵西班牙 C罗领衔球队认真备战 2019-10-04
  • 明年起全国将全面供应“国六”汽柴油 2019-10-02
  • 2019手机彩票软件排名 湖北ll选5开奖结果 女足世界杯实况 福利彩票中福在线连环夺宝 姚记彩票 ag平台哪里有ag平台的正规网站 扑克牌有什么玩法 棋牌捕鱼开户送彩金 扑克牌代理能做吗 大神棋牌二维码下载 北京11选5开奖视频 欧洲博彩网秒速时时彩 德甲积分榜和射手榜 广东快乐10分网上投注 十一选五选号计算公式