如何用asp、ado实现客户端sql server数据库备份以及恢复！

alex_fan 2002-02-07 03:48:40

怎么用asp和ado实现sql server数据库的备份与恢复！
首先我们考虑不用com组件来完成这个功能！
这里要解决的是：
1、ado联sqlserver怎么实现数据倒出，导入！（命令是什么那？）
2、倒出的文件放在客户端还是放在服务器端，同样的导入的时候从那里提取！
如果这种实现不了再考虑使用组件！

...全文

83 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

powar 2002-02-08

打赏
举报

liziqiangg(求教)的程序是对的，只是要在程序里判断backup文件夹是否存在，存在则不会出错，不存在则先创建backup文件夹。
添加一下代码则可
dim BkpEst
set BkpEst=server.CreateObject("scripting.filesystemobject")
if BkpEst.FolderExists("d:\backup")=false then
BkpEst.CreateFolder "d:\backup"
end if

alex_fan 2002-02-07

打赏
举报

我查了error log 那里是这么描述的：
BackupDiskFile::CreateMedia: Backup device 'd:\backup\car.bak' failed to create. Operating system error = 3(系统找不到指定的路径。).

alex_fan 2002-02-07

打赏
举报

刚刚试了一下您的方法，这个肯定可以！
但是还有一个小问题！
我执行代码后给了我这样的错误提示：
Microsoft SQL-DMO (ODBC SQLState: 42000) 错误 '800a0c81'

[Microsoft][ODBC SQL Server Driver][SQL Server]Cannot open backup device 'd:\backup\car.bak'. Device error or device off-line. See the SQL Server error log for more details. [Microsoft][ODBC SQL Server Driver][SQL Server]Backup or restore operation terminating abnormally.

/bak.asp，行14
这里要问一下，car.bak是否要给出先那？

好久没上 2002-02-07

打赏
举报

1. 数据库备分
-----------------------------------------
<%@ Language=VBScript %>
<%
Dim objSQLServer
Set objSQLServer = Server.CreateObject("SQLDMO.SQLServer")
objSQLServer.Connect "Localhost","sa",""
Dim objBackup
Set objBackup = Server.CreateObject("SQLDMO.Backup")
objBackup.BackupSetName ="carback" '备份集名称
objBackup.Database= "car" '数据库
objBackup.Action =0 '差异否
objBackup.Initialize=true
'objBackup.BackupSetDescription = "back of car" '备份文件描述
objBackup.Files= "d:\backup\car.bak" '备份文件名称
objBackup.SQLBackup(objSQLServer)
set objbackup=nothing
set objSQLServer=nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<br>
<div align="center"><b>备份成功!备份数据在服务器的目录(d:\backup)</b></div>
</BODY>
</HTML>

2.数据库恢复
-----------------------------
<%@ Language=VBScript %>
<%
Dim objSQLServer
Set objSQLServer = Server.CreateObject("SQLDMO.SQLServer")
objSQLServer.Connect "Localhost","sa",""
Dim objRestore
Set objRestore = Server.CreateObject("SQLDMO.Restore")
objRestore.Action=0 'full db restore
objRestore.Database="car"
objRestore.Files="d:\backup\car.bak"
objRestore.ReplaceDatabase=true
objRestore.SQLRestore objSQLServer
objSQLServer.DisConnect
Set objSqlServer = Nothing
Set objRestore = Nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<br>
<div align="center"><b>已经成功的恢复了数据库的数据</b></div>

</BODY>
</HTML>