Crea un respaldo de una base de datos de SQL server, en la variable v_nombre_respaldo indico el nombre del backup agregando la fecha en que se esta creando para evitar duplicidad en los respaldos.
NOMBRE_BD es el nombre de la base de datos a respaldar.
v_nombre_respaldo = "BACKUP_" & Now.Day & "_" & Now.Month & "_" & Now.Year & ".bak"
Dim conexion As New SqlConnection("Data Source=NOMBRE_SERVIDOR;Initial Catalog=NOMBRE_BASE_DE_DATOS;Persist Security Info=True;User ID=sa;Password=contraseña")
Dim v_ruta_destino As String = C:\misrespaldos\"
Dim cmd As New SqlCommand("BACKUP DATABASE NOMBRE_BD TO DISK = '" & v_ruta_destino & v_nombre_respaldo & "'", conexion)
conexion.Open()
cmd.ExecuteNonQuery()
conexion.Close()
.jpg)
4 Comentarios
Todo muy bien pero eso es cuando la base de datos es local si eres usuario de red y la base de datos no es local la ruta que le das a la instrucción es del disco duro del servidor donde se encuentra la base
ResponderBorrarPuedes crear:
BorrarDim mi_ip as string = "10.10.10.10"
Dim v_ruta_destino As String = " + mi_ip + "\misrespaldos\"
para que se guarde el backup en el servidor.
Si deseas llamar la base de datos del servidor solo reemplaza los valores en la cadena:
Dim conexion As New SqlConnection("Data Source=SERVER\INSTANCIA;Initial Catalog=TABLA;User ID=USUARIO;Password=CONTRASEÑA")
v_nombre_respaldo
ResponderBorrarME MANDA ERROR :( Que hago?
Intenta con :
Borrarv_nombre_respaldo="mirespaldo.bak"