How To Take Backup of DataBase

1. Drag a Button Called(btnBackup).
2.Under btnBackup click you wrie this code.
3. TakeBackUp("DBName", "D:\Backup\NewBackupDBName.bak")
'DBName is DataBase name you want to take Backup.
4.you need to add this two reference.
Microsoft.SqlServer.BatchParser
Microsoft.SqlServer.Replication
5. imports below two packages.
Imports Microsoft.SqlServer.Server
Imports Microsoft.SqlServer.Management.Smo

4. Write a Method called TakeBackUp.
Below is code for TakeBackUp Method

Private Sub TakeBackUp(ByVal BackupDBName As String, ByVal FileNamePath As String)
Try
Dim sqlServerInstance As New Server(New Microsoft.SqlServer.Management.Common.ServerConnection _
(New System.Data.SqlClient.SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=;Data Source=SANTOSH\SQLEXPRESS"))) 'This is only for connection if u give Initial Catalog null it will work
Dim objBackup As New Backup
objBackup.Devices.AddDevice(FileNamePath, DeviceType.File)
objBackup.Database = BackupDBName
objBackup.Action = BackupActionType.Database
objBackup.SqlBackup(sqlServerInstance)
MessageBox.Show("The backup of database " & "'" & BackupDBName & "'" & " completed sccessfully", "Microsoft SQL Server Management Studio", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub