vb.net，恢復mysql數據庫不能在Windows XP中工作

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 

端功能