VB.NET如何转狐表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'Imports System

'Imports System.Collections.Generic

'Imports System.ComponentModel

'Imports System.Data

'Imports System.Drawing

'Imports System.Linq

'Imports System.Text

'Imports System.Windows.Forms

'Imports System.Diagnostics

Namespace lxw_mysql_helper

Public Partial Class frmMain

Inherits Form

报错未定义Form

Public Sub New()

InitializeComponent()

End Sub

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

System.Text.txtName.Enabled = False

' txtPwd.Enabled = False

报错不是System.Text.txtName.、 txtPwd不是Text成员

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

Dim p As Process = New Process()

报错模块中不能Shared

Dim command As String = sbcommand.ToString()

ShowLog("命令:" & command)

RunCMD(appDirecroty, command)

ShowLog("路径:" & directory)

报错RunCMD(appDirecroty, command)，RunCMD保护不能访问

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

Dim path As FolderBrowserDialog = New FolderBrowserDialog()

If Not String.IsNullOrEmpty(txtMysqlPath.Text) Then

path.SelectedPath = txtMysqlPath.Text

End If

报错txtMysqlPath保护不能访问

Private Sub ShowLog(ByVal log As String)

rtxtShow.AppendText(log & vbCrLf)

End Sub

报错rtxtShow保护不能访问

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

If btnEdit.Text = "修改" Then

txtName.Enabled = True

报错btnEdit.保护不能访问

转换后的完整代码发上来

上传不了。老报服务器500

'Imports System.ComponentModel

'Imports System.Data

'Imports System.Drawing

'Imports System.Linq

'Imports System.Text

'Imports System.Windows.Forms

'Imports System.Diagnostics

Namespace lxw_mysql_helper

Public Partial Class frmMain

Inherits Form

Public Sub New()

InitializeComponent()

End Sub

Public bakpath As String = "D:\db_ba\"

Public backupTime As String = "00:30"

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

System.Text.txtName.Enabled = False

' txtPwd.Enabled = False

' txtport.Enabled = False

End Sub

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

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