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


  共有2408人关注过本帖树形打印复制链接

主题:VB.NET如何转狐表?

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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如何转狐表?


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110348 积分:561588 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/6 13:55:00 [只看该作者]

放到全局代码
   public Sub Button_Backup_Click(sender As Object, e As System.EventArgs)
       Dim processInfo As New System.Diagnostics.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

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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"
、、、、、、
按键单击执行?


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110348 积分:561588 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/7 8:41:00 [只看该作者]

去掉【public Sub ...】这行,剩下其它代码可以放到按钮里


 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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 Using
'        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的代码参用。很多用户都会有需要,
希望官方教程。

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110348 积分:561588 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/7 14:02:00 [只看该作者]

1、除了前3行,启动代码都保留放到全局代码
2、不需要引用,直接把命名空间补齐到函数代码里即可,比如
Using conn As New MySql.Data.MySqlClient.MySqlConnection(connectionString)
3、如果是定义到class的,照样放到全局代码即可,看第2点,如果只是单独定义函数,函数必须使用Public
4、没有办法也不可能完全照vs的用法。只能按前面3点转换使用

如果真的懂vs开发,还不如直接在vs开发做成dll给foxtable调用。

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110348 积分:561588 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/7 15:29:00 [只看该作者]

1、都说了只去掉前3行,Public Class Form1 不要去掉
2、3:都说了要补齐命名空间:

System.IO.Path.Combine

System.IO.FileStream

如果不懂什么是命名空间,先百度学习一下

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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;

            }


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


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110348 积分:561588 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/9 14:08:00 [只看该作者]

c#转vb:https://converter.telerik.com/

全部代码先转换,在考虑去掉多余的代码

 回到顶部
总数 23 1 2 3 下一页