首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 英语文章 > 正文

    Access数据库在线压缩的方法:oracle数据库基本语句

    时间：2020-05-27来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

    Access数据库在线压缩的方法

    如果在 Access 数据库中删除数据或对象，或者在 Access 项目中删除对象，Access 数据库或 Access 项目可能会产生碎片并会降低磁盘空间的使用效率。压缩 Access 数据库或Access项目实际上是复制该文件，并重新组织文件在磁盘上的存储方式。压缩同时优化了 Access 数据库和 Access 项目的性能。

    所以我们在对日益增大的数据库导致的ASP程序慢得无法忍受的时候，就想到了要压缩他。但常规的做法把他下载到本地然后用MSaccess来完成压缩操作，然后再上传！

    需要注意的是：本程序其实是通过FSO权限和JET引擎连接，因此在使用之前请确认你的服务器支持FSO（filesystemobject)权限并安装的ACCESS最新驱动！从安全出发，请在压缩之前备份原始数据库！已经测试通过的运行环境：

    WIN98SE+PWS、WIN2000+IIS5.0

    下面是我整理后的源代码，复制另存为compact.asp并上传到数据库所在目录即可正常使用。

    <html>
    <head>
    <title>ACCESS数据库压缩程序</title>
    </head>
    <body bgcolor="e0f8ef">
    <div>
    <div align="center"><font color="#3300FF">
    <b><font size="5">通用ACCESS数据库在线压缩程序</font></b></font><br>
    </div>
    <div><br>
    本程序其实是通过FSO权限和JET引擎连接，

    因此在使用之前请确认你的服务器支持FSO

    （filesystemobject)权限并安装的ACCESS最新驱动！

    从安全出发，请在压缩之前备份原始数据库！

    </div><br>
    <div align="center">运行环境：在WIN98SE+PWS、WIN2000+IIS5.0 <br>
    <%
    Const JET_3X = 4
    Function CompactDB(dbPath, boolIs97)
    Dim fso, Engine, strDBPath
    strDBPath = left(dbPath,instrrev(DBPath,""))
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(dbPath) Then
    Set Engine = CreateObject("JRO.JetEngine")
    If boolIs97 = "True" Then
    pactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
    & "Jet OLEDB:Engine Type=" & JET_3X
    Else
    pactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
    End If
    fso.CopyFile strDBPath & "temp.mdb",dbpath
    fso.DeleteFile(strDBPath & "temp.mdb")
    Set fso = nothing
    Set Engine = nothing
    CompactDB = "你的数据库, " & dbpath & ", 已经被压缩" & vbCrLf
    Else
    CompactDB = "你输入的数据库路径或名称未找到，请重试" & vbCrLf
    End If
    End Function
    %>
    </div>
    </div>
    <form name="compact" method="post" action="compact.asp">
    <div align="center">
    <font size="2"><b><font color="#FF0000">
    压缩选项，请仔细填写！</font></b><br>
    <br>

    输入数据库全称：

    <input type="text" name="dbpath">
    （包括扩展名，如MDB、ASA、ASP等）<br>
    <br>
    <input type="checkbox" name="boolIs97" value="True">
    检查是否为ACCESS97数据库<br>
    (默认为ACCESS2000的数据库)<br>
    <br>
    <input type="submit" name="submit" value="确认压缩">
    </font></div>
    </form>
    <div align="center"><font size="2">
    <%
    Dim dbpath,boolIs97
    dbpath = request("dbpath")
    boolIs97 = request("boolIs97")
    If dbparesponse.write(CompactDB(dbpath,boolIs97))
    End If
    %>
    <br>
    </font></div></body></html>th <> "" Then
    dbpath = server.mappath(dbpath)

    • Access数据库在线压缩的方法:oracle数据库基本语句 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文Access数据库在线压缩的方法:oracle数据库基本语句由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.