by Gehan Fernando (47 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Tue 27th March 2007
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
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
No comments have been posted about Get SQL Database Backup Using SQLDMO Object Library In VB.Net + WITH Command. 100% Accurate.. Why not be the first to post a comment about Get SQL Database Backup Using SQLDMO Object Library In VB.Net + WITH Command. 100% Accurate..
