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

% #######以下是一个类文件，下面的注解是调用类的方法################################################ # 注意：如果系统不支持 建立 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.number<>0 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