Outro dia no Forum que participo, um amigo perguntava sobre como fazer um backup de um banco de dados do SQL Server direto do Visual Basic. Abaixo segue uma função desenvolvida para fazer isso:
Public Sub FazerBackup()
Dim conexao As New SqlConnection("String de Conexao")
Dim comando As New SqlCommand()
comando.Connection = conexao
Try
comando.CommandText = "BACKUP DATABASE NOMEDOBANCODEDADOS to Disk = " & caminhobackup + "\NOMEDOBANCODEDADOS.bak" & ""
conexao.Open()
comando.ExecuteNonQuery()
conexao.Close()
MsgBox("Backup Realizado com Sucesso.", MsgBoxStyle.Information, strNomeSistema)
Catch ex As Exception
MsgBox("Erro ao fazer cópia de segurança.Tente novamente, se o erro persistir reinicie o sistema.", MsgBoxStyle.Information, "Erro")
End Try
End Sub
