| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 564 人关注过本帖
标题:请教高手:用什么方法可以实现自动备份数据库???!
只看楼主 加入收藏
happyhu
Rank: 1
等 级:新手上路
帖 子:292
专家分:0
注 册:2005-7-12
收藏
 问题点数:0 回复次数:6 
请教高手:用什么方法可以实现自动备份数据库???!
请教高手:用什么方法可以实现自动备份数据库(access数据库)?
有没有类似的例子,给出来看一下?
谢谢!!!
搜索更多相关主题的帖子: 数据库 自动 
2005-09-26 22:30
happyhu
Rank: 1
等 级:新手上路
帖 子:292
专家分:0
注 册:2005-7-12
收藏
得分:0 
没人知道吗?大家帮忙啊!!谢谢!!!

2005-09-27 13:25
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
[转贴] 参考一下吧 还有你打算怎么个自动法
<%@ Language=VBScript %> <HTML> <HEAD> <META name=VI60_defaultClientScript content=VBScript> <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0"> <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript> <!-- Sub btnbak_onclick if frmbak.txtsvr.value="" then window.alert("'Server Name' is empty!") frmbak.txtsvr.focus exit sub end if if frmbak.txtuid.value="" then window.alert("'Administrators' is empty!") frmbak.txtuid.focus exit sub end if if frmbak.txtdb.value="" then window.alert("'Database' is empty!") frmbak.txtdb.focus exit sub end if if frmbak.txtto.value="" then window.alert("'Backup To' is empty!") frmbak.txtto.focus exit sub end if frmbak.submit End Sub --> </SCRIPT> <link rel="stylesheet" href="../../sheets/B2BStyle.css"> </HEAD> <form action="backupdbsave.asp" method="post" id=frmbak name=frmbak> <body class="bg_frame_up"> <p class=heading> Database --> Backup</p> <P align=center> <div align="center"> <center> <table width="60%" cellpadding=1 cellspacing=1 border=0 align=center> <tr> <td class=TD_Mand_FN align="center" height="35" width="40%">Server Name:</td> <td class=TD_Mand_F height="35" width="59%"> <INPUT id=txtsvr name=txtsvr size="20" style="font-family: Arial; font-size: 9pt"></td> </tr> <tr> <td class=TD_Mand_FN align="center" height="35" width="40%">Administrators:</td> <td class=TD_Mand_F height="35" width="59%"> <INPUT id=txtuid name=txtuid size="20" style="font-family: Arial; font-size: 9pt"></td> </tr> <tr> <td class=TD_Mand_FN align="center" height="35" width="40%">Password:</td> <td class=TD_Mand_F height="35" width="59%"> <INPUT id=txtpwd name=txtpwd type=password style="font-family: Arial; font-size: 9pt"></td> </tr> <tr> <td class=TD_Mand_FN align="center" height="35" width="40%">Database:</td> <td class=TD_Mand_F height="35" width="59%"> <p align="left"> <INPUT id=txtdb name=txtdb size="20" style="font-family: Arial; font-size: 9pt"></p> </td> </tr> <td class=TD_Mand_FN align="center" height="35" width="40%">Backup T<br> <u>(Server Path)</u></td> <td class=TD_Mand_F height="35" width="59%"> <input id=txtto name=txtto style="font-family: Arial; font-size: 9pt"></td> </tr> </table> </center> </div> <p align=center><input id=btnbak name=btnbak type=button value="Start Backup" style="font-family: Arial; font-size: 9pt"></p> </body> </form> </HTML>
文件2:BackupDBSave.asp
<%@ Language=VBScript %> <% dim msvr,muid,mpwd,mdb,mto msvr=Request.Form("txtsvr") muid=Request.Form("txtuid") mpwd=Request.Form("txtpwd") mdb=Request.Form("txtdb") mto=Request.Form("txtto") if mpwd="" then mpwd="''" on error resume next set dmosvr=server.CreateObject("SQLDMO.SQLServer") dmosvr.connect msvr,muid,mpwd if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number) mdevname="Backup_"&muid&"_"&mdb set dmodev=server.CreateObject("SQLDMO.BackupDevice") dmodev.name=mdevname dmodev.type=2 dmodev.PhysicalLocation=mto dmosvr.BackupDevices.Add dmodev if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number) set dmobak=server.CreateObject("SQLDMO.Backup") dmobak.database=mdb dmobak.devices=mdevname %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <body background="../../Images/dot.gif"> <p><strong>Backuping, wait please...</strong></p> <% dmobak.sqlbackup dmosvr if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number) dmosvr.backupdevices(mdevname).remove set dmobak=nothing set dmodev=nothing dmosvr.disconnect set dmosvr=nothing %> <p><strong>Database '<%=mdb%>' backup successed!</strong></p> </BODY> </HTML>
文件3:BackupErr.asp
<%@ Language=VBScript %> <% dim errno,errstr errno=Request.QueryString("err") errstr="" select case cstr(errno) case "18456" errstr="administrators or password error!" case "20482" errstr="server name error or server cannot connect!" case "911" errstr="database not found!" case "15026" errstr="server path not found!" case "3201" errstr="server path not found!" case "3254" errstr="restore from file lawlessness!" case else errstr="unknown error! retry later please!" end select %> <HTML> <HEAD> <META name=VI60_defaultClientScript content=VBScript> <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0"> <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript> <!-- Sub btnret_onclick history.back End Sub --> </SCRIPT> <title></title> </HEAD> <body class="bg_frame_up"> <p align=center><font color=#006666><%=errstr%></font></p> <p align=center><input id=btnret name=btnret type=button value=Return style="font-family: Arial; font-size: 9pt"></p> </BODY> </HTML>
2005-09-27 14:15
happyhu
Rank: 1
等 级:新手上路
帖 子:292
专家分:0
注 册:2005-7-12
收藏
得分:0 
就是每天定时备份啊,把数据库备份到一个文件夹里,一时间命名。
有没有可以拿来直接用的程序?谢谢!

2005-09-27 21:49
happyhu
Rank: 1
等 级:新手上路
帖 子:292
专家分:0
注 册:2005-7-12
收藏
得分:0 
请大家帮忙啊!谢谢!!!

2005-09-28 22:52
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
用 FileSystemObject 的 CopyFile 方法可以吧

2005-09-29 08:32
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
&lt;%
set fso=server.CreateObject("scripting.filesystemobject")
path=server.MapPath("./")    '得到当前目录的绝对路径
fso.createFolder path&amp;"\backup"        '在当前目录新建文件夹“backup”
fso.copyfile  path&amp;"\data.mdb" , path&amp;"\backup\data.mdb"      '复制data.mdb到backup里面。
'这里假设data.mdb在当前目录
%&gt;

2005-09-29 08:48
快速回复:请教高手:用什么方法可以实现自动备份数据库???!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021693 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved