Quote:
Originally Posted by GGSoft
This Example in detail explains how to do it?
If Not System.IO.Directory.Exists("C:\backup") Then System.IO.Directory.CreateDirectory("c:\backup")
Dim backupFileName As String = "c:\Backup\BackupOfSameurneo_" + Today.ToShortDateString.Replace("/", ".") + ".bak"
Dim Texts(2) As String
Texts(0) = "use master; if exists (select 1 from sysdevices where name = 'BackupOfSameurneo') exec sp_dropdevice 'BackupOfSameurneo';"
Texts(1) = "exec sp_addumpdevice 'disk', 'BackupOfSameurneo', '" + backupFileName + "';"
Texts(2) = "Backup database sameurneo to backupofsameurneo;"
Dim command As New SqlClient.SqlCommand
Using conn As New SqlConnection(ConnectionStringGlobal)
command.Connection = conn
conn.Open()
Dim i As Int16
For i = 0 To 2
command.CommandText = Texts(i)
command.ExecuteNonQuery()
Next
End Using
What i did was....
[CODEvb]Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
'Dim sqlComAddumpDevice As SqlCommand = New SqlCommand("use master exec sp_addumpdevice 'disk','" & strCompanyName & "','" & TextBox2.Text & "'", sqlcon)
Dim sqlComBackupDatabase As SqlCommand = New SqlCommand("Backup database " & strCompanyName & " to disk = '" & TextBox2.Text & "'", sqlcon)
Try
sqlcon.Open()
'sqlComAddumpDevice.ExecuteNonQuery()
'MsgBox("Company Backup Device Created", MsgBoxStyle.Information)
sqlComBackupDatabase.ExecuteNonQuery()
MsgBox("Company Backup Complete", MsgBoxStyle.Information)
sqlcon.Close()
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub[/code]