纯编码如何实现Access数据库的建立或压缩(1)

php中文网
发布: 2016-06-07 15:02:49
原创
1295人浏览过

% #######以下是一个类文件,下面的注解是调用类的方法################################################ # 注意:如果系统不支持 建立 Scripting.FileSystemObject对象,那么 数据库 压缩 功能将无法使用 # Access 数据库 类 # CreateDbFile 建立 一个Acce

  ’#######以下是一个类文件,下面的注解是调用类的方法################################################

  ’# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用

  ’# Access 数据库

  ’# CreateDbFile 建立一个Access 数据库文件

  ’# CompactDatabase 压缩一个Access 数据库文件

  ’# 建立对象方法:

  ’# Set a = New DatabaseTools

  ’# by (萧寒雪) s.f.

  ’#########################################################################################

  Class DatabaseTools

  Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)

  ’建立数据库文件

  ’If DbVer is 0 Then Create Access97 dbFile

  ’If DbVer is 1 Then Create Access2000 dbFile

  On error resume Next

  If Right(SavePath,1)"" Or Right(SavePath,1)"/" Then SavePath = Trim(SavePath) & ""

  If Left(dbFileName,1)="" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))

  If DbExists(SavePath & dbFileName) Then

  Response.Write ("对不起,该数据库已经存在!")

  CreateDBfile = False

  Else

  Dim Ca

  Set Ca = Server.CreateObject("ADOX.Catalog")

  If Err.number0 Then

  Response.Write ("无法建立,请检查错误信息
" & Err.number & "
" & Err.Description)

  Err.Clear

  Exit function

  End If

  If DbVer=0 Then

  call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)

  Else

  call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)

  End If

相关标签:
最佳 Windows 性能的顶级免费优化软件
最佳 Windows 性能的顶级免费优化软件

每个人都需要一台速度更快、更稳定的 PC。随着时间的推移,垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是,许多工具可以让 Windows 保持平稳运行。

下载
来源:php中文网
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
最新问题
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责申明 举报中心 意见反馈 讲师合作 广告合作 最新更新
php中文网:公益在线php培训,帮助PHP学习者快速成长!
关注服务号 技术交流群
PHP中文网订阅号
每天精选资源文章推送

Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号