How to take a backup of database of sql server 2005 in VB.net Using Code

I want to know how to take a backup of database using programatically in VB.net of SQL Server 2005. If you have an idea about it then please send me开发者_运维问答 the code for that.

---

SQL Server Database Backup Utility using VB.NET and SQL-DMO (New version)

---

You can achieve this by using Sql Management Object. SQL Server Management Objects (SMO) are objects designed for programmatic management of Microsoft SQL Server.

Refer How to: Back Up Databases and Transaction Logs in Visual Basic .NET

---

Imports System.IO
Imports System.Data.SqlClient

Public Class Form2
    Dim con As SqlConnection
    Dim cmd As SqlCommand
    Dim dread As SqlDataReader
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        server(".")
        server(".\sqlexpress")
    End Sub

    Sub server(ByVal str As String)
        con = New SqlConnection("Data Source=" & str & ";Database=Master;integrated security=SSPI;")
        con.Open()
        cmd = New SqlCommand("select *  from sysservers  where srvproduct='SQL Server'", con)
        dread = cmd.ExecuteReader
        While dread.Read
            ComboBox1.Items.Add(dread(2))
        End While
        dread.Close()
        con.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ComboBox1.Text = "" Then
            MsgBox("select the server name")
            ComboBox1.Focus()
            Exit Sub
        End If
        Try
            ComboBox2.Text = ""
            con = New SqlConnection("Data Source=" & Trim(ComboBox1.Text) & ";Database=Master;integrated security=SSPI;")
            con.Open()
            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                ComboBox2.Text = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
                cmd = New SqlCommand("drop database " & ComboBox2.Text & " ", con)
                cmd.ExecuteNonQuery()
                cmd = New SqlCommand("RESTORE DATABASE " & ComboBox2.Text & " FROM disk='" & OpenFileDialog1.FileName & "'", con)
                cmd.ExecuteNonQuery()
                MsgBox("Restore Successfully Completed")
                ComboBox1.Text = ""
                ComboBox2.Text = ""
            Else
                MsgBox("Restore Cancelled")
            End If
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "" Then
            MsgBox("select the server name")
            ComboBox1.Focus()
            Exit Sub
        ElseIf ComboBox2.Text = "" Then
            MsgBox("select the database name")
            ComboBox2.Focus()
            Exit Sub
        End If
        Try
            con = New SqlConnection("Data Source=" & Trim(ComboBox1.Text) & ";Database=Master;integrated security=SSPI;")
            con.Open()
            SaveFileDialog1.FileName = ComboBox2.Text + ".bak"
            If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim s As String
                s = SaveFileDialog1.FileName
                cmd = New SqlCommand("backup database " & ComboBox2.Text & " to disk='" & s & "'", con)
                cmd.ExecuteNonQuery()
                MsgBox("Back Up Successfully Created")
                ComboBox1.Text = ""
                ComboBox2.Text = ""
                con.Close()
            Else
                MsgBox("Back Up Cancelled")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        con = New SqlConnection("Data Source=" & Trim(ComboBox1.Text) & ";Database=Master;integrated security=SSPI;")
        con.Open()
        ComboBox2.Items.Clear()
        cmd = New SqlCommand("select * from sysdatabases", con)
        dread = cmd.ExecuteReader
        While dread.Read
            ComboBox2.Items.Add(dread(0))
        End While
        dread.Close()
        con.Close()
    End Sub
End Class