（原创）备份数据库类 Access篇

因为某此原因有时需要备份数据库,如SQL数据库的备份,但SQL数据库的备份有时有点麻烦,直接在页面不好弄,所以就这个原因,写了以下类.此类很简单,设置好备份文件地址和数据源后就直接Transfer。类使用方法在以下的注解有详细说明。此类还有一些好处是可以对每个不同的表可以保存到不同的文件，并且又不用重新定义类，方法就是在Transfer表之前换一个不同的目标文件，如：
ObjClass.TargetFile=tFile
sResult=ObjClass.Transfer("number","number","","")
ObjClass.TargetFile=Server.Mappath(".")&"/new.mdb"
sResult=ObjClass.Transfer("Test","Test","","")

<%
Class TransferDataBaseClass
'/***************************************************************************
'/* 转移数据类(备份数据库类）
'/*作者：死在水中的鱼(死鱼）
'/*日期：2004年8月3日
'/*Blog:http://blog.csdn.com/bpfish
'/*
'/*用法：
'/*方法一：（Access数据库文件 TO Access数据库文件）
'/*1、先设置源数据库文件SourceFile（可选）和目标数据库文件TargetFile（必选）
'/*2、再使用Transfer("源表名","目标表名","字段列表","转移条件")方法转移数据
'/*例子：
'/* Dim sFile,tFile,ObjClass,sResult
'/* sFile=Server.MapPath("data/data.mdb")
'/* tFile=Server.Mappath(".")&"/back.mdb"
'/* Set ObjClass=New TransferDataBaseClass
'/* ObjClass.SourceFile=sFile
'/* ObjClass.TargetFile=tFile
'/* sResult=ObjClass.Transfer("table1","newtable","","")
'/* If sResult Then
'/* Response.Write "转移数据成功！"
'/* Else
'/* Response.Write "转移数据失败！"
'/* End If
'/* Set ObjClass=Nothing
'/*
'/*方法二：（其它数据库文件 To Access数据库文件)
'/*1、设置目标数据库文件TargetFile
'/*2、设置Adodb.Connection对象
'/*3、再使用Transfer("源表名","目标表名","字段列表","转移条件")方法转移数据
'/*例子：(在此使用Access的数据源做例子，你可以使用其它数据源）
'/* Dim Conn,ConnStr,tFile,ObjClass,sResult
'/* tFile=Server.Mappath(".")&"/back.mdb"
'/* Set Conn=Server.CreateObject("ADODB.Connection")
'/* ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")
'/* Conn.Open ConnStr
'/* Set ObjClass=New TransferDataBaseClass
'/* Set ObjClass.Conn=Conn '此处关键
'/* ObjClass.TargetFile=tFile
'/* sResult=ObjClass.Transfer("table1","newtable","","")
'/* If sResult Then
'/* Response.Write "转移数据成功！"
'/* Else
'/* Response.Write "转移数据失败！"
'/* End If
'/* Set ObjClass=Nothing
'/* Conn.Close
'/* Set Conn=Nothing
'/*
'/*说明：TargetFile属性一定要设置！（备份文件地址，绝对地址！）
'/* 如果不设置SourceFile则一定要设置Conn，这两个属性必选之一，但优先权是Conn
'/* 方法：Transfer("源数据表名","目标数据表名","字段列表","转移条件")
'/* “源数据表”一定要在数据源存在，“目标数据表”则不可存在于目标文件
'/* “字段列表；转移条件”格式与SQL的“字段列表”,“查询条件”格式相同
'/* "字段列表"为空则是所有字段，“查询条件”为空则获取所有数据
'/***************************************************************************
Private s_Conn,Adox
'/***************************************************************************
'/* 全局变量
'/*外部直接使用：[Obj].SourceFile=源文件名 [Obj].TargetFile=目标文件名
'/***************************************************************************
Public SourceFile,TargetFile

Private Sub Class_Initialize
s_Conn=Null
End Sub
Private Sub Class_Terminate
If IsObject(s_Conn) And Not IsNull(s_Conn) Then
s_Conn.Close
Set s_Conn=Nothing
End If
If IsObject(Adox) Then
Set Adox=Nothing
End If
End Sub

'/***************************************************************************
'/* 设置/返回Conn对象
'/*说明：添加这个是为了其它数据库(如：MSSQL）到ACCESS数据库的数据转移而设置的
'/***************************************************************************
Public Property Set Conn(sNewValue)
If Not IsObject(sNewValue) Then
s_Conn=Null
Else
Set s_Conn=sNewValue
End If
End Property
Public Property Get Conn
If IsObject(s_Conn) Then
Set Conn=s_Conn
Else
s_Conn=Null
End If
End Property

'/***************************************************************************
'/* 数据转移
'/*函数功能：转移源数据到TargetFile数据库文件
'/*函数说明：利用SQL语句的Select Into In方法转移
'/*函数返回：返回一些状态代码True = 转移数据成功 False = 转移数据失败
'/*函数参数：sTableName = 源数据库的表名 tTableName = 目标数据库的表名（自动创建,如果存在则出错）
'/* sCol = 要转移数据的字段列表，格式则同Select 的字段列表格式相同
'/* sSql = 转移数据时的条件 同SQL语句的Where 后面语句格式一样
'/***************************************************************************
Public Function Transfer(sTableName,tTableName,sCol,sSql)
On Error Resume Next
Dim SQL
If Not InitConn Then '如果不能初始化Conn对象则转移数据出错
Transfer=False
Exit Function
End If
If Not CreateMdbFile Then '建立备份Access数据库文件出错则转移数据出错
Transfer=False
Exit Function
End If
If sSql<>"" Then '条件查询
sSql=" Where "&sSql
End If
If sCol="" Then '字段列表,以","分隔
sCol="*"
End If
SQL="SELECT "&sCol&" INTO ["&tTableName&"] IN '" & TargetFile & "'" & " FROM ["&sTableName&"]"&sSql
s_Conn.Execute SQL
If Err.Number<>0 Then '出错则转移数据错误，否则转移数据成功
Err.Clear
Transfer=False
Else
Transfer=True
End If
End Function

'/***************************************************************************
'/* 建立Access数据库文件
'/*函数功能：根据TargetFile的值建立该文件
'/*函数说明：利用Adox组件的Create方法建立数据库文件
'/*函数返回：返回一些状态代码
'/***************************************************************************
Private Function CreateMdbFile()
On Error Resume Next
If TargetFile="" Then
CreateMdbFile=False '出错
Exit Function
End If
If Not InitAdox Then '初始化Adox对象，建立MDB文件
CreateMdbFile=False '初始化Adox时出错
Exit Function
End If
Adox.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TargetFile
If Err.Number<>0 Then '建立MDB文件出错
If Err.Number=-2147217897 Then
CreateMdbFile=True '文件已存在，所以建立成功
Else
CreateMdbFile=False '其它原因出错
End If
Err.Clear
Exit Function
End If
CreateMdbFile=True '建立MDB文件成功
End Function

'/***************************************************************************
'/* 初始化Adox.Catalog组件对象
'/*
'/***************************************************************************
Private Function InitAdox()
On Error Resume Next
If Not IsObject(Adox) Or IsNull(Adox) Then
Set Adox=Server.CreateObject("ADOX.Catalog")
if Err.Number<>0 Then
InitAdox=False
Err.Clear
Adox=Null
Exit Function
End If
End If
InitAdox=True
End Function

'/***************************************************************************
'/* 初始化Adodb.Connection组件对象
'/*
'/***************************************************************************
Private Function InitConn()
On Error Resume Next
Dim ConnStr
If Not IsObject(s_Conn) Or IsNull(s_Conn) Then
If SourceFile="" Then
InitConn=False
Exit Function
Else
Set s_Conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceFile
s_Conn.Open ConnStr
If Err.Number<>0 Then
InitConn=False
Err.Clear
s_Conn=Null
Exit Function
End If
End If
End If
InitConn=True
End Function
End Class
%>