vb.net备份数据库

Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common

Module Module1
    Sub Main()
        Dim serverName As String = "YourServerName"
        Dim databaseName As String = "YourDatabaseName"
        Dim backupPath As String = "C:\Backup\YourDatabaseName.bak"

        Dim server As Server = New Server(serverName)
        Dim database As Database = server.Databases(databaseName)

        If database IsNot Nothing Then
            Dim backup As Backup = New Backup()
            backup.Action = BackupActionType.Database
            backup.Database = databaseName
            backup.Devices.AddDevice(backupPath, DeviceType.File)
            backup.SqlBackup(server)
            Console.WriteLine("Database backup completed successfully.")
        Else
            Console.WriteLine("Database not found.")
        End If
    End Sub
End Module

backup.SqlBackup(server, BackupOptions.NoRecovery, 3600) ' 增加超时时间为3600秒