devxlogo

BackupDatabase – Backing-up a SQL Server database

BackupDatabase – Backing-up a SQL Server database

' Backup the specified database.' Note: requires Imports System.Data.SqlClient'' Example:'   Dim connString As String = "server=(local); user id=sa; password=; ' Database=master;"'   Try'      BackupDatabase(connString, "MyTestDB", "D:MyTestDbBackup.bak")'   Catch ex As Exception'      MessageBox.Show(ex.Message)'   End TrySub BackupDatabase(ByVal connString As String, ByVal dbName As String, _    ByVal backupFile As String)    Dim cn As New SqlConnection(connString)    Try        ' the command for backing up the DB        Dim cmdBackup As New SqlCommand("BACKUP DATABASE [" & dbName & _            "] TO DISK = '" & backupFile & "'", cn)        cn.Open()        cmdBackup.ExecuteNonQuery()    Finally        cn.Close()    End TryEnd Sub

devx-admin

Share the Post: