Dim sBackup As String = "BACKUP DATABASE " & Me.txtBase.Text & _
" TO DISK = N'" & Me.txtBackup.Text & _
"' WITH NOFORMAT, NOINIT, NAME =N'" & Me.txtBase.Text & _
"-Full Database Backup',SKIP, STATS = 10"
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = Me.txtServidor.Text
csb.InitialCatalog = Me.txtBase.Text
csb.IntegratedSecurity = True
Using con As New SqlConnection(csb.ConnectionString)
Try
con.Open()
Dim cmdBackUp As New SqlCommand(sBackup, con)
cmdBackUp.ExecuteNonQuery()
MessageBox.Show("Se ha creado un BackUp de La base de datos satisfactoria
"Copia de seguridad de base de datos", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, _
"Error al copiar la base de datos", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Using