BACKUP BANCO MYSQL

ACCIOLLY 03/06/2015 09:31:36
#447342 Resposta escolhida
Cara eu tenho uma forma muito mais simples que consegui achar no site da microsoft
1º vc deve baixar uma DLL de backup
Vá no menú TOOLS >> Library Package maneger >> Package maneger Console
Digite: Install-Package MySqlBackup.NET
Feito isso essa dll já estará nas referencias do seu projeto

Vamos supor que vc tenha em seu projeto a classe de conexão e dentro dela vc guarde o caminho do banco, é só passar essa string nos parametros dos métodos q vou passar abaixo. Eu criei uma classe separadamente pra facilitar minha vida, mas vc também pode fazer isso na classe do seu Form.

Imports MySql.Data.MySqlClient

Public Class backuprestore

    Public Sub Backup()
        Dim conn As New Conexao [ô]esta é uma instancia da classe de conexão caso tenha uma

        Dim dialog As New SaveFileDialog
        dialog.Filter = [Ô]sql files (*.sql)|*.sql[Ô]
        dialog.Title = [Ô]Realizar Backup[Ô]
        dialog.FileName = [Ô]BKP[Ô] & DateTime.Now.ToString([Ô]dd-MM-yyyy[Ô])
        dialog.ShowDialog()

        Dim arquivo As String = dialog.FileName

        Using conectar As New MySqlConnection(conn.caminhoBanco) [ô]aqui é colocado o caminho do banco, que no meu caso está no atributo caminhoBanco da minha classe de Conexao. Caso não tenha essa classe ou atributo, é necessário uma String de Conexao
            Using comando As New MySqlCommand()
                Using backup As New MySqlBackup(comando)
                    comando.Connection = conectar
                    conectar.Open()

                    Try
                        backup.ExportToFile(arquivo) [ô]esta linha de comando que irá gerar o arquivo Sql
                    Catch ex As Exception
                        MessageBox.Show([Ô]Erro ao realizar Backup: [Ô] & ex.Message)
                    End Try

                    conectar.Close()

                End Using
            End Using
        End Using
    End Sub

    Public Sub Restore()
        Dim conn As New Conexao

        Dim dialog As New OpenFileDialog
        dialog.Filter = [Ô]sql files (*.sql)|*.sql[Ô]
        dialog.Title = [Ô]Restaurar Backup[Ô]
        dialog.ShowDialog()
        Dim arquivo As String = dialog.FileName

        Using conectar As New MySqlConnection(conn.caminhoBanco) [ô]também utilizo a string de conexão da classe de conexao
            Using comando As New MySqlCommand()
                Using restore As New MySqlBackup(comando)
                    comando.Connection = conectar
                    conectar.Open()

                    Try
                        restore.ImportFromFile(arquivo) [ô]esta linha vai importar o arquivo sql
                    Catch ex As Exception
                        MessageBox.Show([Ô]Erro ao Restaurar Backup: [Ô] & ex.Message)
                    End Try

                    conectar.Close()

                End Using
            End Using
        End Using
   End Sub

End Class
W8.LISBOA 03/06/2015 18:31:31
#447365
ACCIOLLY, funcionou perfeitamente,

Valeu pela ajuda aee, fecharei o tópico mais tarde.
Página 2 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar