• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Get SQL Database Backup Using SQLDMO Object Library In VB.Net + WITH Command. 100% Accurate.

Get SQL Database Backup Using SQLDMO Object Library In VB.Net + WITH Command. 100% Accurate.

Get SQL Database Backup Using SQLDMO Object Library In VB.Net + WITH Command. 100% Accurate.

API Declarations



Imports SQLDMO

#Region "About"
REM Author :- Get SQLDatabase Backup Using VB.Net"
#End Region



Rate Get SQL Database Backup Using SQLDMO Object Library In VB.Net + WITH Command. 100% Accurate.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private Dbs As SQLDMO.Database
    Private DName As String = ""

    Private Sub FrmDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Cursor = Cursors.WaitCursor

        Svr = New SQLDMO.SQLServer()
        Svr.Connect("MYPC", "Sa", "123")
        Dbs = New SQLDMO.Database()

        For Each Dbs In Svr.Databases
            If Dbs.SystemObject = False Then
                ListBox1.Items.Add(Dbs.Name.ToString())
            End If
        Next

        If ListBox1.Items.Count > 0 Then
            ListBox1.SelectedIndex = 0
            DName = ListBox1.Items(ListBox1.SelectedIndex)
        End If

        Me.Cursor = Cursors.Default

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Cursor = Cursors.WaitCursor

        If DName = "" Then
            MessageBox.Show("Select Datase, Before Taking Backup", "SQL Server", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If

        Svr.Databases.Item(DName).Shrink(0, SQLDMO_SHRINK_TYPE.SQLDMOShrink_Default)

        Dim SqlScript As String = ""
        SqlScript = "BACKUP DATABASE " & DName & " " & _
                    "TO DISK = 'C:\" & DName & Date.Today.ToString("dd-MMM-yyyy") & ".Bak' " & _
                    "WITH FORMAT,NAME = 'Full Backup of " & DName & "'"

        Svr.ExecuteImmediate(SqlScript, SQLDMO_EXEC_TYPE.SQLDMOExec_ContinueOnError Or SQLDMO_EXEC_TYPE.SQLDMOExec_Default)

        MessageBox.Show("Backup Completed")

        Me.Cursor = Cursors.Default

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        DName = ListBox1.Items(ListBox1.SelectedIndex)

    End Sub