在VB下如何实现对SQLServer2000的数据库备份?

Question

使用adoconn.execute "backup database {databasename} to backup_file" 详查sql帮助使用SQLDMO   Dim Svr As New SQLDMO.SQLServer 
    Dim DB As SQLDMO.Database 
    Dim BK As New SQLDMO.Backup 
    Dim DV As New SQLDMO.BackupDevice 
    Svr.Connect "(local)", "sa" 
    DV.Type = SQLDMODevice_DiskDump 
    DV.Name = "pubsbak" 
    DV.PhysicalLocation = "c:\mssql7\bakup\pubs.bak" 
    On Error Resume Next 
    Svr.BackupDevices.Add DV 
    On Error GoTo 0 
    BK.Database = "pubs" 
    BK.Devices = "pubsbak" 
    BK.Initialize = True 
    BK.SQLBackup Svr 
    Svr.BackupDevices.Remove "pubsbak"

Answer 1

当然可以了，SQL企业管理器就是使用SQLDMO做的，ok了？

Answer 2

恢复数据库时最好先断开所有连接，再连接到Master数据库,再做自己的数据库的恢复操作