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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → VB.NET如何转狐表？

共有3229人关注过本帖树形打印复制链接主题：VB.NET如何转狐表？

lin98

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

VB.NET如何转狐表？ 发帖心情

Post By：2024/3/6 12:25:00 [显示全部帖子]

'Imports System.Diagnostics

'Public Class Form1

Private Sub Button_Backup_Click(sender As Object, e As EventArgs) Handles Button_Backup.Click

Dim processInfo As New ProcessStartInfo()

processInfo.FileName = "mysqldump"'

processInfo.Arguments += "-u yourUsername"

processInfo.Arguments += "-p"

processInfo.Arguments += "--host=yourHostname"

processInfo.Arguments += "--port=yourPortNumber"

processInfo.Arguments += "--databases databaseName"

processInfo.Arguments += "> backupFilePath"

Using process As New Process() With {.StartInfo = processInfo }

process.Start()

process.WaitForExit()

End Using

MessageBox.Show("完成！")

End Sub

'End Class

红代码，报错不能在主体内。VB.NET如何转狐表？

lin98

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/6 19:31:00 [显示全部帖子]

问题一：VB.NET代码转狐表，都要全局代码？

问题二：二楼代码放到全局代码，如何实现窗口上按键来调用？

processInfo.Arguments += "-u yourUsername"

processInfo.Arguments += "-p"

processInfo.Arguments += "--host=yourHostname"

processInfo.Arguments += "--port=yourPortNumber"

processInfo.Arguments += "--databases databaseName"

processInfo.Arguments += "> backupFilePath"

红代码，是不是可用窗口的文本框的值？

窗口1-文本框1 ="-u yourUsername"

窗口1-文本框2 ="-p"

、、、、、、

按键单击执行？

lin98

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/7 13:45:00 [显示全部帖子]

'''Imports System.IO

'''Imports MySql.Data.MySqlClient

'''Imports System.Security.Cryptography

''Public Class Form1

' Private WithEvents timer As New Timer() '

' Public Sub New()

' InitializeComponent()

' timer.Interval = TimeSpan.FromMinutes(30).TotalMilliseconds '

' timer.Enabled = True '

' End Sub

' Private Sub BackupAndEncryptDatabase()

' Dim connectionString As String = "server=localhost;user id=root;password=your_password;database=your_database"

' Dim backupPath As String = Path.Combine("", DateTime.Now.ToString("yyyyMMddHHmmss") & ".sql")

' Using conn As New MySqlConnection(connectionString)

' conn.Open()

' Dim cmd As New MySqlCommand($"mysqldump --opt -u root -p your_password {conn.Database} > '{backupPath}'", conn)

' cmd.ExecuteNonQuery()

' ' 关闭连接

' conn.Close()

' End Using

' End Sub

' Private Sub EncryptFile(filePath As String)

' Using aesAlg As Aes = Aes.Create(),

' encryptor As ICryptoTransform = aesAlg.CreateEncryptor(key, iv)

' Using csEncrypt As CryptoStream = New CryptoStream(fsOutput, encryptor, CryptoStreamMode.Write)

' fsInput.CopyTo(csEncrypt)

' End Using

' End Sub

''End Class

----------------------------------------------

问题一：上面代码VB.NET如何转狐表？放在全局代码或窗口上的按键单击事件都不行，红代码报错缺少关键词，局部变量出错

问题二：VB.NET都导入一些包，类，这些如何在狐表引用？

''Imports System.IO

'''Imports MySql.Data.MySqlClient

'''Imports System.Security.Cryptography

问题三：VB.NET的这些Public、private、protected的空间，类，事件如何转狐表？是否有固定语法或格式？

问题四：狐表说是VB.NET开发，VB.NET的代码不能直接用，还转，让小白很难受，能否改进一下？

官方能否出个视频讲解一下，狐表如何套用VB.NET的代码？狐表特殊在网上是找不到此类教程，只能官方

来教，狐表也要编码，很多用户在狐表不找方法，会在网上VB.NET的代码参用。很多用户都会有需要，

希望官方教程。

lin98

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/7 14:58:00 [显示全部帖子]

'Imports System.IO

'Imports MySql.Data.MySqlClient

'Imports System.Security.Cryptography

'Public Class Form1

问题一

5楼代码去除红代码后，全局代码，报错Public Sub New()，提示共享Sub New()，不能声明Public，改Private也一样报错

Public Sub New()

问题二

'''Imports System.IO

'''Imports MySql.Data.MySqlClient

'''Imports System.Security.Cryptography

''Public Class Form1

' Private WithEvents timer As New Timer() '

' Public Sub New()

' InitializeComponent()

' timer.Interval = TimeSpan.FromMinutes(30).TotalMilliseconds '

' timer.Enabled = True '

' End Sub

问题二

5楼代码去除红代码后，全局代码，报错下面代码，提示Path未声明，或因保护级别问题

Dim backupPath As String = Path.Combine("", DateTime.Now.ToString("yyyyMMddHHmmss") & ".sql")

问题三：5楼代码，下面代码，报错未定义类型FileStream

Using fsInput As FileStream = New FileStream(filePath, FileMode.Open),

[此贴子已经被作者于2024/3/7 15:10:57编辑过]

lin98

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/9 13:26:00 [显示全部帖子]

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

using System.Diagnostics;

namespace lxw_mysql_helper

{

public partial class frmMain : Form

{

public frmMain()

{

InitializeComponent();

}

public String bakpath = @"D:\db_bak\";

private void frmMain_Load(object sender, EventArgs e)

{

txtName.Enabled = false;

public static void RunCMD(String workingDirectory, String command)

{

Process p = new Process();

public void bakup_db(string manual = "")

{

try

{

public void recovery_db()

{

try

{

private void btnBackUp_Click(object sender, EventArgs e)

{

bakup_db("manual");

}

private void btnSelectMysqlPath_Click(object sender, EventArgs e)

{

FolderBrowserDialog path = new FolderBrowserDialog();

if (!string.IsNullOrEmpty(txtMysqlPath.Text))

{

path.SelectedPath = txtMysqlPath.Text;

}

path.ShowDialog();

txtMysqlPath.Text = path.SelectedPath;

}

private void btnEdit_Click(object sender, EventArgs e)

{

if (btnEdit.Text == "修改")

{

txtName.Enabled = true;

txtPwd.Enabled = true;

btnEdit.Text = "确定";

}

else if (btnEdit.Text == "确定")

{

uname = txtName.Text;

upass = txtPwd.Text;

backupTime = txtBackUpTime.Text;

DateTime temp;

if (!DateTime.TryParse(backupTime, out temp))

{

ShowLog("备份时间格式错误,重置时间为00:30");

txtBackUpTime.Text = "00:30";

backupTime = txtBackUpTime.Text;

}

ShowLog("修改成功!");

MessageBox.Show("修改成功!");

btnEdit.Text = "修改";

txtName.Enabled = false;

txtPwd.Enabled = false;

}

上面是去掉粉红代码，放在全局代码里，红代码，试着先方法，改还是报错如何解决？

lin98

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/9 14:59:00 [显示全部帖子]

'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.保护不能访问

lin98

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/9 15:50:00 [显示全部帖子]

狐表官方报错

lin98

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/9 15:52:00 [显示全部帖子]

lin98

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/9 15:53:00 [显示全部帖子]

上传不了。老报服务器500

lin98

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1381 积分：9203 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2024/3/9 15:53:00 [显示全部帖子]

'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

下一主题 >> << 上一主题

总数 17 1 2 下一页

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