主题：VB.NET如何转狐表？

 Public Shared Sub RunCMD(ByVal workingDirectory As String, ByVal command As String)

            Dim p As Process = New Process()

            p.StartInfo.FileName = "cmd.exe"

            p.StartInfo.WorkingDirectory = workingDirectory

            p.StartInfo.UseShellExecute = False

            p.StartInfo.RedirectStandardInput = True

            p.StartInfo.RedirectStandardOutput = True

            p.StartInfo.RedirectStandardError = True

            p.StartInfo.CreateNoWindow = True

            p.Start()

            p.StandardInput.WriteLine(command)

            p.StandardInput.WriteLine("exit")

        End Sub

       

 Public Sub bakup_db(ByVal Optional manual As String = "")

            Try

                Dim sbcommand As StringBuilder = New StringBuilder()

                Dim sbfileName As StringBuilder = New StringBuilder()

          

                Dim fileName As String = sbfileName.ToString()

                If False = System.IO.Directory.Exists(bakpath) Then

                    System.IO.Directory.CreateDirectory(bakpath)

                End If

                Dim directory As String = bakpath & fileName & ".bak"

                If System.IO.File.Exists(directory) = True Then

                    Return

                End If

                sbcommand.AppendFormat("uname, upass, dbname, directory, port)

                Dim command As String = sbcommand.ToString()

                ShowLog("命令:" & command)

                RunCMD(appDirecroty, command)

                ShowLog("路径:" & directory)

            Catch ex As Exception

                ShowErrorLog("失败:" & ex.Message)

            End Try

        End Sub

    Private Sub btnBackUp_Click(ByVal sender As Object, ByVal e As EventArgs)

            bakup_db("manual")

        End Sub

        Private Sub btnSelec-tMysqlPath_Click(ByVal sender As Object, ByVal e As EventArgs)

            Dim path As FolderBrowserDialog = New FolderBrowserDialog()

            If Not String.IsNullOrEmpty(txtMysqlPath.Text) Then

                path.Selec-tedPath = txtMysqlPath.Text

            End If

            path.ShowDialog()

            txtMysqlPath.Text = path.Selec-tedPath

        End Sub

       

 Private Sub ShowLog(ByVal log As String)

            rtxtShow.AppendText(log & vbCrLf)

        End Sub

        Private Sub ShowErrorLog(ByVal log As String)

            rtxtShow.Selec-tionStart = rtxtShow.Text.Length

            rtxtShow.Selec-tionLength = log.Length

            rtxtShow.Selec-tionColor = Color.FromName("Red")

            rtxtShow.AppendText(log & vbCrLf)

        End Sub

 Private Sub btnEdit_Click(ByVal sender As Object, ByVal e As EventArgs)

            If btnEdit.Text = "修改" Then

                txtName.Enabled = True

                txtPwd.Enabled = True

             

                btnEdit.Text = "确定"

            ElseIf btnEdit.Text = "确定" Then

                uname = txtName.Text

                upass = txtPwd.Text

        End Sub