Листинг 1

Выполнение восстановления из полной резервной копии

Dim resDB As Restore = New Restore()
resDB.DeviceType = DeviceType.File
resDB.Devices.Add(«c:SMO.bak»)
resDB.Action = RestoreActionType.Database
resDB.Database = «AW»
resDB.ReplaceDatabase = True
resDB.NoRecovery = False
resDB.RelocateFiles.Add(New RelocateFile(«AdventureWorks_Data», «c:aw.mdf»))
resDB.RelocateFiles.Add(New RelocateFile(«AdventureWorks_Log», «c:aw.ldf»))
resDB.SqlRestore(myServer)