none
Backup de MariaDB

    Pregunta

  • ¿ Donde tengo el error en este código?

        Private Sub Backup(sender As System.Object, e As System.EventArgs)
            Try
                Dim cmd As String
                Dim carpeta As New FolderBrowserDialog
                Dim miFecha As String = Format(Now.Today, "dd/MM/yyyy")
                MessageBox.Show("Ahora tiene que buscar la ubicación donde depositara el Backup")
                carpeta.ShowDialog()
                txtDestino.Text = carpeta.SelectedPath & "\" & "Fincas" & "_" & miFecha & ".sql"
                If MessageBox.Show("¿Es correcto el destino del Backup?", "Backup BD", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
                    Open()
                    cmd = "C:\Archivos de Programa\Mariadb 10.1\Bin\mysqldump -user=root -password= -host=localhost  -database=fincas > """ & txtDestino.Text & """"
                    Shell(cmd, AppWinStyle.MaximizedFocus, True)
                    If objReg.ExisteFile(txtDestino.Text) = True Then
                        MsgBox("El Backup se ejecuto correctamente", MsgBoxStyle.Information, "Proceso finalizado")
                    Else
                        MsgBox("Ocurrio un error inesperado en la creación del Backup", MsgBoxStyle.Critical, "Informacion")
                    End If
                    Close()
                Else
                    txtDestino.Text = ""
                    cmd = Nothing
                    MsgBox("Intente de nuevo la creación del Backup", MsgBoxStyle.Critical, "Informacion")
                End If
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical)
            End Try
        End Sub

    jueves, 17 de mayo de 2018 18:43