- 作者:zhaozj
- 发表时间:2020-12-23 10:58
- 来源:未知
因为某此原因有时需要备份数据库,如SQL数据库的备份,但SQL数据库的备份有时有点麻烦,直接在页面不好弄,所以就这个原因,写了以下类.此类很简单,设置好备份文件地址和数据源后就直接Transfer。类使用方法在以下的注解有详细说明。此类还有一些好处是可以对每个不同的表可以保存到不同的文件,并且又不用重新定义类,方法就是在Transfer表之前换一个不同的目标文件,如:ObjClass.TargetFile=tFilesResult=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的“字段列表”,“查询条件”格式相同'/* "字段列表"为空则是所有字段,“查询条件”为空则获取所有数据'/***************************************************************************