如何用VB代码实现对mssql数据库的备份和恢复？

Question

请高手指点

Answer 1

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 2

restore DATABASE .........恢复