• 青海边麻沟村村支书李培东:让每个村民都能过上幸福的生活 2019-07-18
  • 美方公布对华贸易措施 商务部:中方不得不强力回击 2019-07-18
  • 人民日报评论员:大就要有大的样子 2019-07-17
  • 纷纷“结缘”世界杯 家电企业图什么 2019-07-15
  • 更正:将“只有存在……”改为“只要存在……”。 2019-07-14
  • 环境部专项整治长江经济带固体废物倾倒 督查中不需地方环保部门陪同 2019-07-14
  • 光明日报:深入真实生活的综艺节目更好看 2019-07-08
  • 网售私房粽游走法律边缘 打养生旗号难以说清依据 2019-07-07
  • 大米-热门标签-华商生活 2019-07-02
  • 紫光阁中共中央国家机关工作委员会 2019-07-02
  • 韩正出席企业职工基本养老保险基金中央调剂制度贯彻实施工作会议 2019-06-30
  • 不要拿《爱情公寓》当你的青春回忆,它不配 2019-06-30
  • 点击天山网 掌握全新疆 2019-06-24
  • 市场监管总局部分网红饮品存隐患 2019-06-22
  • 京研究小客车指标市场化配置方案 雾霾天限行分区域分时段 2019-06-22
  • 15选5走势图
    电话:13843226952
     
    工作时间:周一至周六:8:30-5:00  周日可联系客服QQ
       
      建站咨询㈠ 建站咨询㈡ 售后服务 售前咨询  
    关于阳光,吉林市网站建设,吉林市网站制作,网络公司
     当前位置:15选5走势图 >>> 技术中心

    新疆彩票中奖结果:怎么在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
    下一篇:网站关键词怎么选择会更好
      阳光新闻 更多>>>
    吉林网站建设_吉林网页制作-阳光新闻
    2018年五一放假通知
    2018年清明节放假通知
    祝福到!给您送祝福啦!
    2018年春节放假通知!
    2017年国庆中秋放假安排
    2017年春节放假通知
      招贤纳士 更多>>>
    诚招吉林市网站建设商务经理
    招聘吉林市网站建设技术员
    公司招收吉林市网站开发学员
    因业务发展需要特诚聘商务代表
      网站建设专题 更多>>>
    阳光科技为您提供网站改版服务
    为什么网页设计要简练?
    如何在百度提交收录,怎样让自己的网站排名
    什么样的网站最受访客喜欢?
    吉林市网站建设形式与内容应统一
    网站管理与团队经营的秘诀
    优质的单页网站如何创建
     
    Copyright © 2008-2018 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-07-18
  • 美方公布对华贸易措施 商务部:中方不得不强力回击 2019-07-18
  • 人民日报评论员:大就要有大的样子 2019-07-17
  • 纷纷“结缘”世界杯 家电企业图什么 2019-07-15
  • 更正:将“只有存在……”改为“只要存在……”。 2019-07-14
  • 环境部专项整治长江经济带固体废物倾倒 督查中不需地方环保部门陪同 2019-07-14
  • 光明日报:深入真实生活的综艺节目更好看 2019-07-08
  • 网售私房粽游走法律边缘 打养生旗号难以说清依据 2019-07-07
  • 大米-热门标签-华商生活 2019-07-02
  • 紫光阁中共中央国家机关工作委员会 2019-07-02
  • 韩正出席企业职工基本养老保险基金中央调剂制度贯彻实施工作会议 2019-06-30
  • 不要拿《爱情公寓》当你的青春回忆,它不配 2019-06-30
  • 点击天山网 掌握全新疆 2019-06-24
  • 市场监管总局部分网红饮品存隐患 2019-06-22
  • 京研究小客车指标市场化配置方案 雾霾天限行分区域分时段 2019-06-22
  • 刮刮乐哪个中奖率高 香港六合彩63期开奖结果 我最近体育彩票投注站 竞彩混合过关最多几场 福建快三开奖公告 7m即时篮球比分直播 在水库用地笼捕鱼技巧 有没有陕西十一选五软件预测 大乐透63复式多少注 江苏11选5历史号码 香港六合彩官方 山西新11选5遗漏 王中王平特一肖免费资料一 18选7 中国体彩网35选7