RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:9:30-18:00
你可能遇到了下面的问题
关闭右侧工具栏
(原创)备份数据库类 Access篇
  • 作者: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的“字段列表”,“查询条件”格式相同'/*            "字段列表"为空则是所有字段,“查询条件”为空则获取所有数据'/***************************************************************************