为什么不能命名“类”,我该怎么做,如何不修改执行代码下的def和dict。
Private Sub btnRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestore.Click
Dim file As String
opd.Filter = "SQL Dump File (*.sql)|*.sql|All files (*.*)|*.*"
If opd.ShowDialog = DialogResult.OK Then
file = opd.FileName
Dim myProcess As New Process()
myProcess.StartInfo.FileName = "cmd.exe"
myProcess.StartInfo.UseShellExecute = False
myProcess.StartInfo.WorkingDirectory = "C:/wamp/bin/mysql/mysql5.6.17/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("mysql -u root -h localhost ""ceams"" > """ + file + """ ")
myStreamWriter.Close()
myProcess.WaitForExit()
myProcess.Close()
MsgBox("Database Restoration Successfully!", MsgBoxStyle.Information, "Restore")
End If