网站首页
网站导航
Ctrl+D收藏
首 页
代码段
源码包
文档库
工具箱
代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
ASP
】
ACCESS数据库压缩
作者:
Dezai.CN
/ 发布于
2011-8-22
/
1157
<div>'/*========================================================================= ' * Intro 直接把要压缩的ACCESS数据库拖到这个文件上,按操作来便可以了 ' * FileName ACCESS数据库压缩.vbs ' * Author yongfa365 ' * Version v1.0 ' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a> ' * Email yongfa365[at]qq.com ' * FirstWrite <a href="http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html">http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html</a> ' * LastModify 2007-12-11 13:27:17 ' *==========================================================================*/</div> <div>'====================压缩数据库 ========================= Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1</div> <div> dbpath = objArgs(I) boolIs97 = msgbox("97版数据库?",vbYesNo+vbDefaultButton2)</div> <div> If dbpath <> "" Then CompactDB dbpath,boolIs97 End If</div> <div>Next '=====================压缩参数========================= Function CompactDB(dbPath, boolIs97) Dim fso, Engine, strDBPath,JET_3X strDBPath = left(dbPath,instrrev(DBPath,"\")) Set fso = CreateObject("Scripting.FileSystemObject")</div> <div>If fso.FileExists(dbPath) Then fso.CopyFile dbpath,strDBPath & "temp.mdb" Set Engine = CreateObject("JRO.JetEngine")</div> <div> If boolIs97 = "True" Then Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb;" _ & "Jet OLEDB:Engine Type=" & JET_3X Else Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb" End If</div> <div>fso.CopyFile strDBPath & "temp1.mdb",dbpath fso.DeleteFile(strDBPath & "temp.mdb") fso.DeleteFile(strDBPath & "temp1.mdb") Set fso = nothing Set Engine = nothing CompactDB = "成功压缩! " & vbCrLf Else CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf End If Msgbox CompactDB End Function</div> <div></div> <div>调用这个函数就可以了:Function CompactDB(dbPath, boolIs97)</div> <div></div>
评论列表
本站所提供的代码,版权归原作者所有,若有侵犯作者版权,请与我们联系,我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
数据库压缩
同语言下
.
二进制输出
.
查找text文本中指定字符或词所在句子
.
阻止浏览器冒泡事件,兼容firefox和ie
.
xmlhttp 读取文件
.
定时跳转页面
.
除asp中所有超链接
.
获取Session
.
打包时自定义应用程序的快捷方式与卸载
.
获取局域网中可用SQL Server服务器
.
判断汉字字数
可能有用的
.
python 抓取搜狗指定公众号
.
屏幕中间的弹框列表
.
json下钻函数,解决多层嵌套问题
.
pandas读取指定列
.
队列的顺序存储实现和栈的链式实现
.
多线程(Runtime类、Timer计时器)
.
任意字符串前后互换、100以内素数
.
实现队列的操作
.
数组去重,记录数组元素角标
.
input框强制输入整百的数
Dezai.CN
贡献的其它代码
(
4037
)
.
多线程Socket服务器模块
.
生成随机密码
.
清除浮动样式
.
弹出窗口居中
.
抓取url的函数
.
使用base HTTP验证
.
div模拟iframe嵌入效果
.
通过header转向的方法
.
Session操作类
.
执行sqlite输入插入操作后获得自动编号的ID
地图
本站
我们
服务
版权
联系
回馈
博客