BACKUP BANCO MYSQL

W8.LISBOA 31/05/2015 20:24:20
#447231
Ola pessoal,

Tenho uma aplicação desktop em VB.NET com servidor web da Kinghost, e gostaria de transferir a responsabilidade do backup do BD para o cliente, dai surgiu a necessidade de implementar algo do tipo, alguém tem alguma sugestão de como posso fazer via código?
W8.LISBOA 31/05/2015 20:35:39
#447233
Citação:

:
Boa noite W8-LISBOA,

Simples assim....


https://mysqlbackupnet.codeplex.com/




Boa noite WEVERSON,

Inclusive já baixei esta solução, mas como trata de um projeto complexo é pelo que me parece eles usam uma criptografia no arquivo compactado, fiquei receoso de usar, é confiável ?
W8.LISBOA 01/06/2015 16:41:54
#447260
Citação:

:
Boa noite W8-LISBOA,

Eu pessoalmente já usei e comigo não achei nenhum problema ,
mais vc pode testar com uma maquina virtual com banco de
dados (MySql) instalado para simular um servidor...



Então, quando ao uso fiz alguns testes, tudo normal, mas acontece que não manjo nada C#, e meu projeto é em VB.NET, achei um pouco complexo (para minha capacidade) fazer as alterações necessárias para o uso.

Existe alguma forma mais simples de fazer o backup? o mysqldump não pode ser usado nesta situação?
KURTGU 01/06/2015 18:18:11
#447265
eu tenho um exemplo que uso em casa, quando chegar mais tarde se nao tiver arrumado ainda eu envio ele gera o backup do banco completo em formato .sql....
W8.LISBOA 01/06/2015 18:34:22
#447267
Citação:

:
eu tenho um exemplo que uso em casa, quando chegar mais tarde se nao tiver arrumado ainda eu envio ele gera o backup do banco completo em formato .sql....



KURTGU,

Combinado...fico no aguardo!
KURTGU 01/06/2015 20:41:32
#447270
Segue exemplo em anexo...
W8.LISBOA 02/06/2015 16:36:42
#447322
KURTGU,

Baixei a sua solução, percebi que você usa o xampp como servidor, no meu caso o banco esta em um servidor web, qual seria a alteração no código para que este funcione via servidor web? no caso a Kinghost.


   Private Sub RealizaBackup
        Dim caminho1 As String
        Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = [Ô]Ficheiros sql (*.sql)|*.sql[Ô]

        If saveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            caminho1 = saveFileDialog1.FileName

            Dim shellcomand As String
            Try
                shellcomand = [Ô]C:\xampp\mysql\bin\mysqldump --opt --password=*** --user=root --database banco -r [Ô] & caminho1 & [Ô] [Ô]
                Shell(shellcomand)
                MsgBox([Ô]Backup Realizado com Sucesso.[Ô], MsgBoxStyle.Information)

            Catch ex As Exception

                MsgBox([Ô]Erro ao fazer cópia de segurança.Tente novamente.[Ô], MsgBoxStyle.Critical, [Ô]Erro[Ô])

            End Try
        Else
            MsgBox([Ô]Backup cancelado.[Ô], MsgBoxStyle.Information)
        End If
    End Sub 


      Private Sub RestauraBanco
        Dim caminho2 As String
        Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.Filter = [Ô]Ficheiros sql (*.sql)|*.sql[Ô]

        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            caminho2 = openFileDialog1.FileName

            Dim shellcomand As String
            Try
                shellcomand = [Ô]C:\xampp\mysql\bin\mysql --user=root --password=*** --database banco < [Ô] & caminho2 & [Ô] [Ô]
                Shell(shellcomand)
                MsgBox([Ô]Restauro Realizado com Sucesso.[Ô], MsgBoxStyle.Information)

            Catch ex As Exception

                MsgBox([Ô]Erro ao restaurar a base de dados.[Ô], MsgBoxStyle.Critical, [Ô]Erro[Ô])

            End Try
        Else
            MsgBox([Ô]Restauro cancelado.[Ô], MsgBoxStyle.Information)
        End If
    End Sub
KURTGU 02/06/2015 16:48:46
#447323
Acho que voce teria que direcionar o ip so nao sei aonde kkkkk vou ver se acho algo aqui..
W8.LISBOA 02/06/2015 17:15:42
#447326
Ou mesmo o caminho do servidor... quem sabe né rsrsr
W8.LISBOA 02/06/2015 18:41:41
#447329
Alguma sugestão galera??
W8.LISBOA 02/06/2015 20:05:50
#447332
Fiz alguns testes aqui... e estou com a seguinte situação: 

      Private Sub RealizaBackup
        Dim caminho1 As String
        Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = [Ô]Ficheiros sql (*.sql)|*.sql[Ô]

        If saveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            caminho1 = saveFileDialog1.FileName

            Dim shellcomand As String
            Try
                shellcomand = [Ô]C:\Program Files\MySQL\MySQL Server 5.6\bin\mysqldump -h xxxx.kinghost.net -p senha -u usuario -d banco -r [Ô] & caminho1 & [Ô] [Ô]
                Shell(shellcomand)

                MsgBox([Ô]Backup Realizado com Sucesso.[Ô], MsgBoxStyle.Information)

            Catch ex As Exception

                MsgBox([Ô]Erro ao fazer cópia de segurança.Tente novamente.[Ô], MsgBoxStyle.Critical, [Ô]Erro[Ô] & ex.Message)

            End Try
        Else
            MsgBox([Ô]Backup cancelado.[Ô], MsgBoxStyle.Information)
        End If


Ao executar o código cria o aquivo .sql na pasta selecionada, porem sem nenhum dado, e ao mesmo tempo abre o prompt de comando pedindo a senha do banco, mas ao digitar a senha nada é alterado no sql. estou no caminho ???
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar