0

Tengo una conexión a una base de datos desde Visual Basic a SQL Server, pero no sé cómo puedo hacer para crear una copia de seguridad y restaurarla.

2
  • te recomiendo que hagas un stored procedure y que en sql hagas una copia de tu base de datos..
    – sioesi
    el 9 nov. 2016 a las 20:23
  • ojo con hacer una copia que los IDs se rompen, mejor usa las herramientas de la base de datos que pueden automatizarse para hacer la tarea desatendida. el 9 nov. 2016 a las 20:26

2 respuestas 2

2

Buen día, aquí te dejo un tutorial de Youtube de como realizar un respaldo desde visual basic, ahí encontrarás el código, paso a paso, con lo cual podrás lograr uno de los dos puntos que deseas realizar. Después aquí está el código para restaurar el respaldo de la base de datos.

En el caso del tutorial de youtube, por causas obvias no puedo agregarte el código, pero en el segundo caso sí, así que aquí está:

Option Strict On

Imports System
Imports Microsoft.VisualBasic
Imports System.Windows.Forms

Imports System.Data.SqlClient

Public Class Form1

    Private Sub btnRestore_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRestore.Click
        Me.btnRestore.Enabled = False
        Me.btnRestore.Text = "Restaurando..."
        Me.btnRestore.Refresh()

        Dim sBackup As String = "RESTORE DATABASE " & Me.txtBase.Text & _
                                " FROM DISK = '" & Me.txtBackup.Text & "'" & _
                                " WITH REPLACE"

        Dim csb As New SqlConnectionStringBuilder
        csb.DataSource = Me.txtServidor.Text
        ' Es mejor abrir la conexión con la base Master'


        csb.InitialCatalog = "master"
        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 restaurado la copia de la base de datos.", _
                                "Restaurar base de datos", _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)

                con.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message, _
                                "Error al restaurar la base de datos", _
                                MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End Using

        Me.btnRestore.Text = "Restaurar copia"
        Me.btnRestore.Enabled = True
        Me.btnRestore.Refresh()

    End Sub
End Class

Además agrego (aunque no es relacionado con la pregunta) la forma de hacer un job en SQL Server, para que se hagan respaldos de bases de datos automáticamente (Sin necesidad de que haya alguna intervención de código).

Espero y te sirva la información que te brindo

0
0

Yo ejecuto el siguiente procedimiento almacenado:

    ALTER PROCEDURE [dbo].[SISACLatin.BackupEjecutar] (@Ruta Varchar(MAX), @NombreBd Varchar(1000), @Extension Varchar(6))
    AS
    BEGIN
Declare @Fecha varchar(MAX)
Declare @Archivo varchar(MAX)
Declare @NombreBackup varchar(MAX)

Set @Fecha = CONVERT(Varchar(max), GETDATE(),23)+'%'+REPLACE(CONVERT(Varchar(max), GETDATE(),8),':','')
PRINT @Fecha

Set @Archivo = @Ruta+'\'+@NombreBd+@Fecha+@Extension
Set @NombreBackup = 'Backup completo '+@NombreBd

-- WITH NOFORMAT, MEDIANAME = 'D_SQLServerBackups', NAME = ;
BACKUP DATABASE @NombreBd TO DISK = @Archivo WITH NOFORMAT, INIT, NAME = @NombreBackup, SKIP, NOREWIND, NOUNLOAD, STATS = 10;

    END

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.