VB.Net中的mysql数据库的数据库备份

时间:2008-10-10 05:15:15

标签: mysql vb.net

如何在VB.Net中创建mysql数据库的数据库备份?

7 个答案:

答案 0 :(得分:7)

您可以使用 MySqlBackup.NET ,它是mysqldump的替代品。

官方网站&文档> https://github.com/MySqlBackupNET/MySqlBackup.Net

示例:

备份MySql数据库

Dim conn As MySqlConnection = New MySqlConnection(constr)
Dim cmd As MySqlCommand = New MySqlCommand
cmd.Connection = conn
conn.Open
Dim mb As MySqlBackup = New MySqlBackup(cmd)
mb.ExportToFile("C:\backup.sql")
conn.Close

恢复MySql数据库

Dim conn As MySqlConnection = New MySqlConnection(constr)
Dim cmd As MySqlCommand = New MySqlCommand
cmd.Connection = conn
conn.Open
Dim mb As MySqlBackup = New MySqlBackup(cmd)
mb.ImportFromFile("C:\backup.sql")
conn.Close

我是这个项目的作者之一。

答案 1 :(得分:1)

你可以调用mysqldump,但你可能需要在Mysql服务器上运行你的VB.NET。

答案 2 :(得分:1)

我发现最简单的方法是使用mysqldump.exe这是一个独立的应用程序。

mysqldump --host=[HOSTNAME] --user=[USER] --password=[PASSWORD] -R [DATABASE NAME] > [PATH TO BACKUP FILE]

我们遇到的问题是备份没有保存数据库功能,但是-R开关对它进行了排序,因此如果你在数据库中使用存储过程或函数,id建议使用它。

恢复创建的文件使用mysql命令。

mysql --host=[HOSTNAME] --user=[USER] --password=[PASSWORD] [DATABASE NAME] < [PATH TO BACKUP FILE]

答案 3 :(得分:1)

使用此代码。 它对我有用。

我遇到了这样的问题然后找到了这篇文章

&#34; http://www.experts-exchange.com/Programming/Languages/.NET/Q_27155602.html&#34;

示例是在C#中。我手动将其转换为vb.net并将转换添加到&#39; utf8&#39;。

Imports System.Text
Public Class Form1
    Dim OutputStream As System.IO.StreamWriter
    Sub OnDataReceived1(ByVal Sender As Object, ByVal e As    System.Diagnostics.DataReceivedEventArgs)
        If e.Data IsNot Nothing Then
            Dim text As String = e.Data
            Dim bytes As Byte() = Encoding.Default.GetBytes(text)
            text = Encoding.UTF8.GetString(bytes)
            OutputStream.WriteLine(text)
           End If
    End Sub

   Sub CreateBackup()
        Dim mysqldumpPath As String = "d:\mysqldump.exe"
        Dim host As String = "localhost"
        Dim user As String = "root"
        Dim pswd As String = "Yourpwd"
        Dim dbnm As String = "BaseName"
        Dim cmd As String = String.Format("-h{0} -u{1} -p{2} {3}", host, user, pswd, dbnm)
        Dim filePath As String = "d:\backup\fieName.sql"
        OutputStream = New System.IO.StreamWriter(filePath, False, System.Text.Encoding.UTF8)

        Dim startInfo As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
        startInfo.FileName = mysqldumpPath
        startInfo.Arguments = cmd

        startInfo.RedirectStandardError = True
        startInfo.RedirectStandardInput = False
        startInfo.RedirectStandardOutput = True 
        startInfo.UseShellExecute = False
        startInfo.CreateNoWindow = True
        startInfo.ErrorDialog = False

        Dim proc As System.Diagnostics.Process = New    System.Diagnostics.Process()
        proc.StartInfo = startInfo
        AddHandler proc.OutputDataReceived, AddressOf OnDataReceived1
        proc.Start()
        proc.BeginOutputReadLine()
        proc.WaitForExit()

       OutputStream.Flush()
       OutputStream.Close()
        proc.Close()
    End Sub

     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As      System.EventArgs) Handles MyBase.Load

        CreateBackup()

     End Sub
   End Class

答案 4 :(得分:0)

您可以读取每个表的数据并将其写入新数据库。

答案 5 :(得分:0)

我会编写一个存储过程,因为MySQL 5支持它们,它们处理所有数据“繁重”工作。然后创建每隔“夜晚”调用该过程的计划任务。对于后一个组件,我强烈推荐Powershell ....它很棒。

答案 6 :(得分:0)

这是我用来备份mysql数据的方法。我制作了mysqldump.exe和mysql.exe的副本并将其存储在我的LIB_PATH上,然后以下代码将备份您的数据。您可以指定mysqldump.exe目录并将其分配给LIB_PATH,在Arguments下提供您的登录详细信息,然后指定您的输出目录,我的设置为BACKUP_DIR,并使用预先格式化的Now()作为我的文件名。代码很简单。古德勒克

    Using myProcess As New Process()
        Dim newfiledb As String = BACKUPDIR_PATH & Format(Now(), "MMM_dd_yyyy@h~mm_tt").ToString & "_local.sql"
        Try
            myProcess.StartInfo.FileName = "mysqldump.exe"
            myProcess.StartInfo.WorkingDirectory = LIB_PATH
            myProcess.StartInfo.Arguments = "--host=localhost --user=username --password=yourpassword yourdatabase -r " & newfiledb
            myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            myProcess.Start()
            myProcess.WaitForExit()
            MsgBox("Backup Created ... " & vbNewLine & newfiledb)
        Catch ex As Exception
            MsgBox(ex.Message, vbCritical + vbOKOnly, ex.Message)
        Finally
            myProcess.Close()
        End Try
    End Using
相关问题