请问如何用vb程序控制SQL server进行备份数据库？

Question

Dim Rs As Recordset
    Dim SQL As String
    
    SQL = "backup database mydatabase to disk='" & BackUpFile & "'"
    Set Rs = CnnAll.Execute(SQL)

Answer 1

AdoCon.Execute "BACKUP DATABASE [" & 数据库名称 & "] TO  DISK = N'" &　保存全路径文件名 & "' WITH  NOINIT ,  NOUNLOAD ,  NAME = N'" & 数据库名称 & " backup',  NOSKIP ,  STATS = 10,  NOFORMAT "

Answer 2

还有，如果是restore database应该怎样写

Answer 3

将master数据库备份到 c:\111.bak 文件
  AdoCon.Execute "BACKUP DATABASE [" & "master" & "] TO  DISK = N'" &　"c:\111.bak" & "' WITH  NOINIT ,  NOUNLOAD ,  NAME = N'" & "master" & " backup',  NOSKIP ,  STATS = 10,  NOFORMAT "