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