如何用VB代码实现SQL Server数据库的备份与恢复！？

Question

执行SQL命令"BACKUP DATABASE [数据库名] TO DISK='带路径文件名'"      即可备份"RESTORE DATABASE [数据库名] FROM DISK ='带路径文件名'"  可恢复数据

Answer 1

先看看有没有办法此用SQLSERVER中相关"对象"，MS很多东东都是基于COM的。
就像在VB里可以此用WORD一样。另外可以试试将一个个打开SQLSERVER某数据库里的表，然后新建一个MDB文件，
然后把表都COPY到MDB文件里，用ADO应该很容易做到。恢复时也一样。
试试吧：）

Answer 2

使用SQL-DMO(分布式管理对象),一组COM对象,企业管理器就是使用这个东东做的

Answer 3

sql server 7种的备份方法
If cn.State = adStateOpen Then cn.Close
    cn.ConnectionTimeout = 10
    connstr = "Driver={SQL Server};Server=" & LocalServer & ";UID=" & LocalUser & ";PWD=" & LocalPw & ";DATABASE=" & LocalDb
    cn.Open connstr
Nowtime = Format(Now, "hh-mm-ss")
dd = Str(Date)
riqi = dd + "-" + NowtimeSQL = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
cn.Execute (SQL)

Answer 4

备份是可以，但当恢复的时候我运行以下语句
RESTORE DATABASE MydataBase
FROM MyDataBak提示我：因为数据库正在使用，所以未能获得对数据库的排它访问权。
服务器: 消息 3013，级别 16，状态 1，行 7
RESTORE DATABASE 操作异常终止。是不是得先停掉数据库啊，可怎么停呢？？
然后再启动

Answer 5

你先将连接的数据库改为master，恢复完成后再重新连回来，用Cn.DefaultDatabase

Answer 6

of courseif the DB is running ,how can you change it?

Answer 7

If cn.State = adStateOpen Then cn.Close
这句很主要的呀！！

Answer 8

引用SQL-DMO类型库dim objsvr as new sqldmo.sqlserver
dim objbak as new sqldmo.backupobjsvr.connect %server%,%login%,%pwd"
with objbak
    .database=%databasename%
    .files=%filesname%
    .sqlbackup
end withset objdatabase=nothing
set objsvr=nothing

Answer 9

TO: llpei(小闹)
   If cn.State = adStateOpen Then cn.CloseCN 是什么呢.