纯编码实现Access数据库的建立或压缩

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【纯编码实现Access数据库的建立或压缩】，下面是详细的分享！

纯编码实现Access数据库的建立或压缩

以下为引用的内容：
<%
'#######以下是一个类文件，下面的注解是调用类的方法################################################
'# 注意：如果系统不支持建立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.number<>0 Then
Response.Write ("无法建立，请检查错误信息<br>" & Err.number & "<br>" & 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
Set Ca=Nothing
CreateDBfile=True
End If
End function

Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
'压缩数据库文件
'0 为access 97
'1 为access 2000
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 ("对不起，该数据库已经存在!")
CompactDatabase=False
Else
Dim Cd
Set Cd=Server.CreateObject("JRO.JetEngine")
If Err.number<>0 Then
Response.Write ("无法压缩，请检查错误信息<br>" & Err.number & "<br>" & Err.Description)
Err.Clear
Exit function
End If
If DbVer=0 Then
call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data
Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
Else
call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
End If
'删除旧的数据库文件
call DeleteFile(SavePath & dbFileName)
'将压缩后的数据库文件还原
call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
Set Cd=False
CompactDatabase=True
End If
end function

Public function DbExists(byVal dbPath)
'查找数据库文件是否存在
On Error resume Next
Dim c
Set c=Server.CreateObject("ADODB.Connection")
c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
If Err.number<>0 Then
Err.Clear
DbExists=false
else
DbExists=True
End If
set c=nothing
End function

Public function AppPath()
'取当前真实路径
AppPath=Server.MapPath("./")
End function

Public function AppName()
'取当前程序名称
AppName=Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
End Function

Public function DeleteFile(filespec)
'删除一个文件
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If Err.number<>0 Then
Response.Write("删除文件发生错误!请查看错误信息<br>" & Err.number & "<br>" & Err.Description)
Err.Clear
DeleteFile=False
End If
call fso.DeleteFile(filespec)
Set fso=Nothing
DeleteFile=True
End function

Public function RenameFile(filespec1,filespec2)
'修改一个文件
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If Err.number<>0 Then
Response.Write("修改文件名时发生错误!请查看错误信息<br>" & Err.number & "<br>" & Err.Description)
Err.Clear
RenameFile=False
End If
call fso.CopyFile(filespec1,filespec2,True)
call fso.DeleteFile(filespec1)
Set fso=Nothing
RenameFile=True
End function

End Class
%>

以上所分享的是关于纯编码实现Access数据库的建立或压缩，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：怎么在mysql数据库中建一个编码为gbk的数据库

　　答：GBK: create database test2 DEFAULT CHARACTER SET gbk COLLATE gbk_chinese_ci; UTF8: CREATE DATABASE `test2` DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci >>详细

　　相关问题：下了别人的源代码压缩文件,但里面没有ACCESS数据库...

　　答：是什么程序啊？ 1，通常连接ACCESS数据库的回使用ADO引擎。你首先在源码中找到这个引擎的位置，如果是ASP的源码，根据编程人员的习惯会建立一个conn.asp为命名的数据连接引擎文件。哪么你就修改这个文件为你的Access数据库文件，这样就连接上了... >>详细

　　相关问题：mysql 数据库编码方式选择,在mysql中，创建一个数...

　　答：只要所有编码一致就不会出现乱码，一般建议都使用utf-8，如果不支持就用gb2312 这里所说的编码一致包括，数据库编码（库的编码，表的编码，字段的编码），脚本页面的编码 一般用header('Content-Type:text/html;charset=gb2312');需放在最前面，... >>详细