使用SMO备份SQLServer2005数据库

（非原创，资料来源于培训资料）

1、引用 Microsoft.SqlServer.ConnectionInfo和Microsoft.SqlServer.Smo；

2、连接SQLServer服务器

    Dim myServer As New Server()
    Dim conn As ServerConnection

    '##### Add connection code here #####
    conn = myServer.ConnectionContext
    conn.ServerInstance = "localhost"
    conn.Connect()

3、设置必要的属性，包括：备份动作、备份名称 、要备份的数据库和备份设备。然后开始备份.

        Dim MyBackup As New Backup

        MyBackup.Action = BackupActionType.Database
        MyBackup.BackupSetName = dbName & "Backup"
        MyBackup.Database = dbName '备份的数据库名称

        Dim deviceItem As BackupDeviceItem = New BackupDeviceItem("", DeviceType.File)
        deviceItem.Name = "C:\" & dbName & ".bak"

        MyBackup.Devices.Add(deviceItem)
        MyBackup.SqlBackup(myServer)