用Dmo
Dim oBackup As New SQLDMO.Backup
Dim oSQLserver As New SQLDMO.SQLServer
oSQLserver.Connect myServer, curUser, curPass
oBackup.Action = SQLDMOBackup_Database
oBackup.Database = myDatabase
oBackup.Devices = "[jlbackup]"
oBackup.BackupSetName = "backup1" & Now
oBackup.BackupSetDescription = "数据备份" & Now
oBackup.SQLBackup oSQLserver
Set oBackup = Nothing
oSQLserver.Close
'删除表也可以,甚至是数据库删除
Dim oBackup As New SQLDMO.Backup
Dim oSQLserver As New SQLDMO.SQLServer
oSQLserver.Connect myServer, curUser, curPass
oBackup.Action = SQLDMOBackup_Database
oBackup.Database = myDatabase
oBackup.Devices = "[jlbackup]"
oBackup.BackupSetName = "backup1" & Now
oBackup.BackupSetDescription = "数据备份" & Now
oBackup.SQLBackup oSQLserver
Set oBackup = Nothing
oSQLserver.Close
'删除表也可以,甚至是数据库删除
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货