none
Como puedo sacar backup de una base de datos es mysql en vb.net RRS feed

  • Pregunta

  • saludos amigos del foro, les traigo una inquietud, antes sacaba backup de una base de datos en sql server express 2012 y ahora necesito sacar backup de una base de datos en mysql, aqui les dejo mi codigo de antes, por favor si me pueden ayudar,

    saludos,

    Rudolf Heiner

        Private Sub btnBackUp_Click(sender As Object, e As EventArgs) Handles btnBackUp.Click
            ProgressBar1.Value = 0
            If MsgBox("Esta Seguro de Realizar el BackUp", MsgBoxStyle.OkCancel, "BackUp") = 1 Then
                '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.  
                Dim v_nombre_respaldo As String = "sys_fact_2016_arte_y_cocina_1_" & Now.Day & "_" & Now.Month & "_" & Now.Year & "_" & Now.Hour & "_" & Now.Minute & "_" & Now.Second & ".bak"
                ProgressBar1.Value = 20
                Dim v_ruta_destino As String = (IO.Path.Combine(Application.StartupPath, "Backup", v_nombre_respaldo))
                ProgressBar1.Value = 40
                Using conexion As New SqlConnection("Data Source=localhost;Initial Catalog=sys_fact_2016_arte_y_cocina_1;Integrated Security=true")
                    Dim cmd As SqlCommand = conexion.CreateCommand()
                    cmd.CommandText = String.Format("BACKUP DATABASE sys_fact_2016_arte_y_cocina_1 TO DISK = '{0}'", v_ruta_destino)
                    conexion.Open()
                    cmd.ExecuteNonQuery()
                    ProgressBar1.Value = 80
                End Using
                ProgressBar1.Value = 100
                MsgBox("Se realizo el BackUp con exito", MsgBoxStyle.Information, "BackUp")
            End If
        End Sub

    martes, 7 de febrero de 2017 10:28

Respuestas

  • saludos, encontre este codigo, yo trabajo con xampp 3.2.2, como podria para que este codigo me funciones,

    gracias de antemano,

    rudolf heiner.

            Dim carpeta As New FolderBrowserDialog
            Dim respaldar As New SaveFileDialog
            respaldar.DefaultExt = "sql"
            Dim pathmysql As String
            Dim comando As String
            pathmysql = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MYSQL Server 5.5", "Location", 0)
            If pathmysql = Nothing Then
                MsgBox("No se encontro en tu equipo Mysql, escoge la carpeta donde esta ubicado")
                carpeta.ShowDialog()
                pathmysql = carpeta.SelectedPath
            End If
            respaldar.Filter = "File MYSQL (*.sql)|*.sql"
            If respaldar.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Try
                    comando = pathmysql & "\bin\mysqldump --user=root --password= --databases catalogos -r """ & respaldar.FileName & """"
                    Shell(comando, AppWinStyle.MinimizedFocus, True)
                Catch ex As Exception
                    MsgBox("Ocurrio un error al respaldar", MsgBoxStyle.Critical, "Informacion")
                End Try

            End If

     
    • Marcado como respuesta Rudolf Heiner martes, 7 de febrero de 2017 16:29
    • Desmarcado como respuesta Rudolf Heiner martes, 7 de febrero de 2017 16:37
    • Marcado como respuesta Rudolf Heiner miércoles, 8 de febrero de 2017 5:33
    martes, 7 de febrero de 2017 12:01

Todas las respuestas

  • saludos, encontre este codigo, yo trabajo con xampp 3.2.2, como podria para que este codigo me funciones,

    gracias de antemano,

    rudolf heiner.

            Dim carpeta As New FolderBrowserDialog
            Dim respaldar As New SaveFileDialog
            respaldar.DefaultExt = "sql"
            Dim pathmysql As String
            Dim comando As String
            pathmysql = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MYSQL Server 5.5", "Location", 0)
            If pathmysql = Nothing Then
                MsgBox("No se encontro en tu equipo Mysql, escoge la carpeta donde esta ubicado")
                carpeta.ShowDialog()
                pathmysql = carpeta.SelectedPath
            End If
            respaldar.Filter = "File MYSQL (*.sql)|*.sql"
            If respaldar.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Try
                    comando = pathmysql & "\bin\mysqldump --user=root --password= --databases catalogos -r """ & respaldar.FileName & """"
                    Shell(comando, AppWinStyle.MinimizedFocus, True)
                Catch ex As Exception
                    MsgBox("Ocurrio un error al respaldar", MsgBoxStyle.Critical, "Informacion")
                End Try

            End If

     
    • Marcado como respuesta Rudolf Heiner martes, 7 de febrero de 2017 16:29
    • Desmarcado como respuesta Rudolf Heiner martes, 7 de febrero de 2017 16:37
    • Marcado como respuesta Rudolf Heiner miércoles, 8 de febrero de 2017 5:33
    martes, 7 de febrero de 2017 12:01
  • saludos amigos logre hacer la copia pero solo me copia la estructura de las tablas y yo quiero tambien con la data, que podria hacer por favor si alguien me podria ayudar,

    saludos,

    rudolf heiner.

    Mi codigo es este:

    Dim pathmysql As String
    Dim comando As String
    pathmysql = "C:\xampp\mysql"
    Try
         comando = pathmysql & "\bin\mysqldump --user=root --password= --databases sys_fact_2016_arte_y_cocina_2 -r """ & "C:\Backup\sys_fact_2016_arte_y_cocina_2.sql" & """"
    Shell(comando, AppWinStyle.MinimizedFocus, True)
    Catch ex As Exception
         MsgBox("Ocurrio un error al respaldar", MsgBoxStyle.Critical, "Informacion")
    End Try

    • Marcado como respuesta Rudolf Heiner martes, 7 de febrero de 2017 17:09
    • Desmarcado como respuesta Joyce_ACModerator jueves, 9 de febrero de 2017 18:42
    martes, 7 de febrero de 2017 16:40