[سؤال] أحاول أخذ باك أب لقاعدة البيانات من نوع mySQL ولكن لا أستطيع مرفق الكود

كود :

Imports System.IO



Imports MySql.Data.MySqlClient



Public Class Backup

    Dim SqlConnection As MySqlConnection

    Dim dt As New DataTable

    Dim cmd As String

    Dim dtseCt As Integer

    Dim da As MySqlDataAdapter

كود :

 Public Sub koneksi()

        Try

            SqlConnection = New MySqlConnection("Server=" & TextBox1.Text & "; " _

                                                + "user id=" & TextBox2.Text & ";" _

                                                + "password=" & TextBox3.Text & ";Port=3306; SslMode=none; Character Set=utf8;")

            If SqlConnection.State = ConnectionState.Closed Then



                SqlConnection.Open() ' open our connections

            End If

        Catch ex As Exception

            MsgBox("Connection Filed !")

        End Try

    End Sub

كود :

هنا يتم ملي الكوكبو بوكس بكل قواعد البيانات في لوحة التحكم واختار منها الذي اريده واعكل منها باك اب

  Try

            koneksi() ' open our connection

            ' create query to show list of our database into combobox

            cmd = "SELECT DISTINCT TABLE_SCHEMA FROM information_schema.TABLES"

            da = New MySqlDataAdapter(cmd, SqlConnection)

            da.Fill(dt)

            dtseCt = 0



            ' enabling the list of database in the combobox

            ComboBox1.Enabled = True

            ComboBox1.Items.Clear()

            ComboBox1.Items.Add("== Select Database ==")



            While dtseCt < dt.Rows.Count



                ' add database list into combobox

                ComboBox1.Items.Add(dt.Rows(dtseCt)(0).ToString())

                dtseCt = dtseCt + 1

                ' lets try

                'sorry for it, just add the code like this



            End While

            ComboBox1.SelectedIndex = 0



            'close our connections

            SqlConnection.Clone()

            dt.Dispose()

            da.Dispose()



        Catch ex As Exception

            MsgBox("Connection Filed!")

        End Try

كود :

 ' we will backup a mysql database and save it into our local server

        Dim DbFile As String

        Try

            ' create svaFileDialog and OpenFileDialog Component to our project

            SaveFileDialog1.Filter = "SQL Dump File (*.sql)|*.sql|All files (*.*)|*.*"

            SaveFileDialog1.FileName = "Database Backup " + DateTime.Now.ToString("yyyy-MM-dd HH-mm-ss") + ".sql"

            If SaveFileDialog1.ShowDialog = DialogResult.OK Then



                koneksi() ' open our connections

                DbFile = SaveFileDialog1.FileName

                Dim BackupProccess As New Process

                BackupProccess.StartInfo.FileName = "cmd.exe"

                BackupProccess.StartInfo.UseShellExecute = False

                BackupProccess.StartInfo.WorkingDirectory = "G:\BACKUP"

                BackupProccess.StartInfo.RedirectStandardInput = True

                BackupProccess.StartInfo.RedirectStandardOutput = True

                BackupProccess.Start()



                Dim BackupStream As StreamWriter = BackupProccess.StandardInput

                Dim myStreamReader As StreamReader = BackupProccess.StandardOutput

                BackupStream.WriteLine("mysqldump --user=" & TextBox2.Text & " _

                + "" --password=" & TextBox3.Text & " -h " & TextBox1.Text & " " _

                + "" & ComboBox1.Text & " > """ + DbFile + """")



                BackupStream.Close()

                BackupProccess.WaitForExit()

                BackupProccess.Close()

                SqlConnection.Close()

                MsgBox("Backup your MySQL database Created Successfully!", MsgBoxStyle.Information, "Backup MySql Database")

            End If



        Catch ex As Exception

            MsgBox("Nothing to do!")

        End Try

كود :

' now we will create for restore our database, just copy the source for backup our database before

        Dim DbFile As String

        Try

            ' create svaFileDialog and OpenFileDialog Component to our project

            OpenFileDialog1.Filter = "SQL Dump File (*.sql)|*.sql|All files (*.*)|*.*"

            If OpenFileDialog1.ShowDialog = DialogResult.OK Then



                koneksi() ' open our connections

                DbFile = OpenFileDialog1.FileName

                Dim BackupProccess As New Process

                BackupProccess.StartInfo.FileName = "cmd.exe"

                BackupProccess.StartInfo.UseShellExecute = False

                BackupProccess.StartInfo.WorkingDirectory = "G:\BACKUP"

                BackupProccess.StartInfo.RedirectStandardInput = True

                BackupProccess.StartInfo.RedirectStandardOutput = True

                BackupProccess.Start()



                Dim BackupStream As StreamWriter = BackupProccess.StandardInput

                Dim myStreamReader As StreamReader = BackupProccess.StandardOutput

                BackupStream.WriteLine("mysql --user=" & TextBox2.Text & " --password=" & TextBox3.Text & " -h " & TextBox1.Text & " " & ComboBox1.Text & " < """ + DbFile + """")



                BackupStream.Close()

                BackupProccess.WaitForExit()

                BackupProccess.Close()

                SqlConnection.Close()

                MsgBox("Restore your MySQL database Successfully!", MsgBoxStyle.Information, "Restore MySql Database")

            End If



        Catch ex As Exception

            MsgBox("Nothing to do!")

        End Try