Пример восстановления базы резервного копирования
Dim myServer As New Server myServer.Connect(«(local)») Dim databaseName As String Dim filePath As String databaseName = «Adventure Works Sample» filePath = «c:AdventureWorksSample.abf» myServer.Restore(filePath, databaseName, True)