vb.net，還原無法在Windows XP中使用的mysql數據庫

Question

我有一個使用vb.net恢復mysql數據庫的代碼。 它在Windows 7中完美運行，但是當我在Windows XP中嘗試時卻無法正常運行。 希望大家都能幫助我。 這是我的代碼。

   Function RestoreDb()
    With dlg_openfile 'Executes a series of statements making repeated reference to a single object or structure.
        .Title = "Please Select a Image" 'title
        .InitialDirectory = "C:\" 'browse start directory
        .Filter = "All files (*.*)|*.*|All files (*.*)|*.*" 'only possible to select this extensions
        .FilterIndex = 0 'index number filter
        .FileName = "" 'empty
        Dim answ = .ShowDialog
        If answ = DialogResult.OK Then 'if answer not cancel, etc..
            Dim myProcess As New Process()
            myProcess.StartInfo.FileName = "cmd.exe"
            myProcess.StartInfo.UseShellExecute = False
            myProcess.StartInfo.WorkingDirectory = "C:\wamp\bin\mysql\mysql5.5.24\bin\"
            myProcess.StartInfo.RedirectStandardInput = True
            myProcess.StartInfo.RedirectStandardOutput = True
            myProcess.Start()
            Dim myStreamWriter As StreamWriter = myProcess.StandardInput
            Dim mystreamreader As StreamReader = myProcess.StandardOutput
            myStreamWriter.WriteLine(String.Format("mysql -u IS_DB -p2240624 db_innovaserver < {0}", .FileName))
            myStreamWriter.Close()
            myProcess.WaitForExit()
            myProcess.Close()
        End If
    End With

End Function

Answer 1

嘗試這個

 Function RestoreDb()
With dlg_openfile 'Executes a series of statements making repeated reference to a single object or structure.
    .Title = "Please Select a Image" 'title
    .InitialDirectory = "C:\" 'browse start directory
    .Filter = "All files (*.*)|*.*|All files (*.*)|*.*" 'only possible to select this extensions
    .FilterIndex = 0 'index number filter
    .FileName = "" 'empty
    Dim answ = .ShowDialog
    If answ = DialogResult.OK Then 'if answer not cancel, etc..
        Dim myProcess As New Process()
        myProcess.StartInfo.FileName = "cmd.exe"
        myProcess.StartInfo.UseShellExecute = False

        myProcess.StartInfo.RedirectStandardInput = True
        myProcess.StartInfo.RedirectStandardOutput = True
        myProcess.Start()
        Dim myStreamWriter As StreamWriter = myProcess.StandardInput
        Dim mystreamreader As StreamReader = myProcess.StandardOutput
        myStreamWriter.WriteLine(String.Format("C:\wamp\bin\mysql\mysql5.5.24\bin\mysql.exe -u IS_DB -p2240624 db_innovaserver < {0}", "dbFile.sql"))
        myStreamWriter.Close()
        myProcess.WaitForExit()
        myProcess.Close()
    End If
End With

結束功能