Hacer Backup
Publicado por Miguel (281 intervenciones) el 31/03/2018 22:11:58
Tengo este código para hacer un Backup de una B.D. que tengo en MariaDB y parece ser que tengo mal el código por que siempre se sale por "El Backup no se ha realizado". Les pongo el código haber si alguna persona me puede ayudar.
Muchas gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Backup(sender As System.Object, e As System.EventArgs)
Dim correcto As Boolean
Try
Dim control As Boolean
Dim cmd As String = "C:\Archivos de programa\MariaDB 10.2\bin\mysqldump"
Dim bd As String = "etxepare.sql"
control = TruecogeFolder(control)
txtInicio.Text = pathname & bd
control = FalsecogeFolder(control)
txtDestino.Text = txtDestino.Text & "\" & bd
Dim comando As String
comando = cmd & " server=localhost -port=3306 -user=root -pwd=miguel -databases=etxepare.sql -r " & txtDestino.Text
Shell(comando)
Catch ex As ArgumentNullException
MessageBox.Show("Se ha pasado un argumento nulo.")
Catch ex As Exception
MsgBox("Error no controlado al realizar el Backup", MsgBoxStyle.Critical, "Informacion del Backup")
End Try
If correcto Then
MsgBox("El Backup ya se ha realizado", MsgBoxStyle.Information, "Proceso de Backup")
Else
MsgBox("El Backup no se ha realizado", MsgBoxStyle.Information, "Proceso de Backup")
End If
End Sub
Public Sub cogeFolder(ByVal control As Boolean)
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
If control = True ThentxtInicio.Text = FolderBrowserDialog1.SelectedPath
Else
txtDestino.Text = FolderBrowserDialog1.SelectedPath
End If
End If
End Sub
Muchas gracias
Valora esta pregunta
0