一个备份数据库的问题，谢谢大家帮忙！！

Question

'''我想做一个备份数据库的程序（sql7。0），具体数据库名叫xh，但是报错，请高手指点一下，顺便帮我写下注释，谢谢！！！
Private Sub Command1_Click()
Dim oBackup As New SQLDMO.Backup
Dim db As New SQLServer
db.HostName = "192.168.0.33"
db.Connect "database", "sa", ""
oBackup.Action = SQLDMOBackup_Database
oBackup.Database = "xh"
oBackup.Devices = "[NorthDev1],[NorthDev2]"  ''''应该是这里错了，但是不知道怎么写
oBackup.BackupSetName = "xh_bak"
oBackup.BackupSetDescription = "Full backup of xh_bak sample."
oBackup.SQLBackup db
db.CloseEnd Sub

Answer 1

cn.CommandTimeout = 0
cn.execute "BACKUP DATABASE 数据库名称 TO DISK = '\\" & 机器名 & "\文件夹\备份文件名称'"

Answer 2

我一般做一个备份的存储过程，然后在前台调用BACKUP DATABASE 数据库名称 TO DISK = 'c:\JOYON_UN' + convert(varchar（10）,getdate(),120) + ".bak"关于远程备份到FileServer上必须建立足够的信任关系或者足够的权限。

Answer 3

哦，你们都是用sql语句实现的哈，谢谢你们了！！！