Aplicación para Crear copia de seguridad y Restaurar la base de Datos
Desarrollado en estudio visual 2017 en net framework 2.4
1.- Diseño de Formulario:
Fuente Código
"Importamos las librerias Que usaremos para la siguiente aplicacion
Las importaciones System.Text
Las importaciones System.Data.SqlClient
Las importaciones System.Data.Sql
Public Class Form1
BACKUP FUNCION CREAR
Privado Función crear_backup () Como booleana
"Desarrollado por: Cristian Patricio Izquierdo
'CONSULTA Y SUGERENCIAS A ..
'Www.facebook.com/cristian.patricioIzquierdo'
Dim conecsb Como Nueva SqlConnectionStringBuilder
conecsb.DataSource = Me .cmbServidor.Text
conecsb.InitialCatalog = "maestro"
conecsb.IntegratedSecurity = Verdadero
Si txtDirPathBackup.Text.Length & lt; & gt; 3 A continuación,
txtDirPathBackup.Text = txtDirPathBackup.Text + "\" + + txtNom_Backup.Text ".bak"
Más
txtDirPathBackup.Text = txtDirPathBackup.Text + + txtNom_Backup.Text ".bak"
terminar si
El uso de aire Como New SqlConnection (conecsb.ConnectionString)
Tratar
con.Open ()
Dim scmd Como Nueva StringBuilder
sCmd.Append ( "BACKUP DATABASE [" + + cboBaseDatos.Text "] AL DISCO = N '" + txtDirPathBackup.Text + "'" )
sCmd.Append ( "CON LA DESCRIPCIÓN = N '" + txtDescrip_Backup.Text + "', noformat, NOINIT" )
sCmd.Append ( "name = N '" + txtNom_Backup.Text + "', SKIP, NOREWIND, NOUNLOAD, STATS = 10" )
Dim cmd Como Nueva SqlCommand (sCmd.ToString, en contra)
cmd.ExecuteNonQuery ()
crear_backup = Verdadero
Catch ex medida de excepción
crear_backup = False
MessageBox .Show (ex.Message)
Finalmente
con.Close ()
End Try
terminar Uso
fin de funciones
CODIGO PARA EL BOTÓN examinar ·
Private Sub btnExaminar_Click ( ByVal remitente Como sistema. Object , ByVal e Como sistema. EventArgs )
Dim Directorio Como Nueva FolderBrowserDialog
Si Directorio.ShowDialog = Windows.Forms. DialogResult .OK Entonces
Me .txtDirPathBackup.Text = Directorio.SelectedPath
terminar si
End Sub
FORMULARIO PRINCIPAL CARGA DATOS AL FORMULARIO
Private Sub Form1_Load (remitente Como objeto , e Como EventArgs ) Maneja MyBase .load
Tratar
Dim Servidores Como SqlDataSourceEnumerator
Dim dtservidores As DataTable
Servidores = SqlDataSourceEnumerator .Instance
dtservidores = New DataTable ()
dtservidores = servidores.GetDataSources ()
Dim rowservidor Como DataRow
Para cada rowservidor En dtservidores.Rows
Si Cadena .IsNullOrEmpty (rowservidor ( "InstanceName" ) .ToString) A continuación,
cmbServidor.Items.Add (rowservidor ( "ServerName" ) .ToString)
ComboBox1.Items.Add (rowservidor ( "ServerName" ) .ToString)
Más
cmbServidor.Items.Add (rowservidor ( "ServerName" ) & amp; "\" & amp; rowservidor ( "InstanceName" ))
ComboBox1.Items.Add (rowservidor ( "ServerName" ) & amp; "\" & amp; rowservidor ( "InstanceName" ))
terminar si
Siguiente
Catch ex medida de excepción
MsgBox (ex.Message)
End Try
End Sub
Private Sub cargar_listadb ( ByVal CMB Como ComboBox , ByVal cmb_server Como ComboBox )
Tratar
Dim cn Como Cadena
Dim SQLDeSeleccion Como Cadena
cn = "data source =" & amp; cmbServidor.Text & amp; "; la seguridad integrada = true; catálogo inicial = maestro"
El uso de aire Como New SqlConnection (CN)
con.Open ()
SQLDeSeleccion = "seleccione el nombre del sys.databases;"
Dim com Como SqlCommand = New SqlCommand (SQLDeSeleccion, en contra)
Dim dr Como SqlDataReader = com.ExecuteReader
Mientras que (dr.Read ())
cmb.Items.Add (dr (0) .ToString)
fin Mientras
terminar Uso
Catch ex medida de excepción
MsgBox (ex.Message)
End Try
End Sub
CODIGO SERVIDOR COMBOBOX
Private Sub cmbServidor_SelectedIndexChanged_1 (remitente Como objeto , e Como EventArgs ) Maneja cmbServidor.SelectedIndexChanged
cargar_listadb (cboBaseDatos, emisor)
End Sub
Private Sub ComboBox1_SelectedIndexChanged (remitente Como objeto , e Como EventArgs ) Maneja ComboBox1.SelectedIndexChanged
cargar_listadb (ComboBox2, emisor)
End Sub
CODIGO examinar · ARCHIVO PARA RESTAURAR
Private Sub Button1_Click (remitente Como objeto , e Como EventArgs ) Maneja Button1.Click
Dim openFD Como Nueva OpenFileDialog ()
con openFD
.title = "Seleccionar Archivos de copia de seguridad"
.Filter = "Todos los Archivos (* .bak) | * .bak"
.Multiselect = False
Si .ShowDialog = Windows.Forms. DialogResult .OK Entonces
Me .TextBox1.Text = .FileName
terminar si
terminar con
End Sub
CODIGO FUNCION RESTAURAR
Privada de función restaurar_basededatos () As Boolean
Dim SBackup Como Cadena = "Restaurar base de datos" & amp; Me .ComboBox2.Text & amp; "desde el disco = '" & Amp; Me .TextBox1.Text & amp; "'" & amp; "Con SUSTITUIR"
Dim conecsb Como Nueva SqlConnectionStringBuilder
conecsb.DataSource = Me .ComboBox1.Text
conecsb.InitialCatalog = "maestro"
conecsb.IntegratedSecurity = Verdadero
El uso de aire Como New SqlConnection (conecsb.ConnectionString)
Tratar
con.Open ()
Dim cmdRestore Como New SqlCommand (SBackup, en contra)
cmdRestore.ExecuteNonQuery ()
restaurar_basededatos = Verdadero
Catch ex medida de excepción
restaurar_basededatos = False
MessageBox .Show (ex.Message)
Finalmente
con.Close ()
End Try
terminar Uso
fin de funciones
CODIGO PARA RESTAURAR EL BOTÓN
Private Sub btnRestore_Click (remitente Como objeto , e Como EventArgs ) Maneja btnRestore.Click
Si ComboBox1.Text Y lt; & gt; "" Entonces
Si me .ComboBox2.Text & lt; & gt; "" Entonces
Si TextBox1.Text & lt; & gt; "" Entonces
Si restaurar_basededatos () = Verdadero Entonces
MessageBox .Show ( "Base de Datos Restaurada satisfactoriamnete" , "OK" , MessageBoxButtons .OK, MessageBoxIcon .Información)
Más
MessageBox .Show ( "Error al Restaurar la Base de Datos" , "Error" , MessageBoxButtons .OK, MessageBoxIcon .Error)
terminar si
Más
MessageBox .Show ( "Seleccione la Ruta Donde se creara el respaldo" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
Más
MessageBox .Show ( "Seleccione la Base de Datos" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
Más
MessageBox .Show ( "Ingrese el Nombre del Servidor de Datos SQL" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
End Sub
SALIR DEL BOTÓN
Private Sub Button2_Click (remitente Como objeto , e Como EventArgs ) Maneja Button2.Click
Me .Close ()
End Sub
CODIGO PARA EL BOTÓN DE DESTINO examinar · BACKUP
Private Sub btnExaminar_Click_1 (remitente Como objeto , e Como EventArgs ) Maneja btnExaminar.Click
Dim Directorio Como Nueva FolderBrowserDialog
Si Directorio.ShowDialog = Windows.Forms. DialogResult .OK Entonces
Me .txtDirPathBackup.Text = Directorio.SelectedPath
terminar si
End Sub
CODIGO PARA CREAR EL BOTÓN DE RESERVA
Private Sub btnBackup_Click_1 (remitente Como objeto , e Como EventArgs ) Maneja btnBackup.Click
Si cmbServidor.Text & lt; & gt; "" Entonces
Si me .cboBaseDatos.Text & lt; & gt; "" Entonces
Si txtDirPathBackup.Text & lt; & gt; "" Entonces
Si txtNom_Backup.Text & lt; & gt; "" Entonces
Si txtDescrip_Backup.Text Y lt; & gt; "" Entonces
Si crear_backup () = Verdadero Entonces
MessageBox .Show ( "Copia de seguridad satisfactoriamnete CREADO" , "OK" , MessageBoxButtons .OK, MessageBoxIcon .Información)
Más
MessageBox .Show ( "Error al Crear el respaldo" , "Error" , MessageBoxButtons .OK, MessageBoxIcon .Error)
terminar si
Más
MessageBox .Show ( "Ingrese Una descripcion del respaldo" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
Más
MessageBox .Show ( "Ingrese el nombre del respaldo" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
Más
MessageBox .Show ( "Seleccione la Ruta Donde se creara el respaldo" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
Más
MessageBox .Show ( "Seleccione la Base de Datos" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
Más
MessageBox .Show ( "Ingrese el Nombre del Servidor de Datos SQL" , "Aviso" , MessageBoxButtons .OK, MessageBoxIcon .Exclamation)
terminar si
End Sub
End Class
0 comentarios:
Publicar un comentario
Dudas y sugerencias aqui