使用VB.NET在Visual Studio运行时创建自定义MySQL服务器相关问询

首先明确结论：该需求可以实现，不需要用户提前预装MySQL服务，全程都可以通过代码自动化完成。本方案仅适用于在用户本地部署私有MySQL实例的场景，无法在远程未知主机上自动创建MySQL服务。

核心逻辑分为「目标实例连通性检测」、「实例初始化启动」、「自定义配置写入」三个环节，具体实现步骤如下：

前置准备 #

提前将MySQL免安装便携版的二进制文件打包到你的程序资源中，或者随程序安装包部署到运行目录的指定路径下，比如./mysql/目录。

核心实现步骤 #

• 第一步：检测目标MySQL实例是否可连接
  引入MySQL官方的MySql.DataNuGet包，通过预设的连接参数（主机、端口、账号密码）尝试连接，捕获异常即可判断实例是否存活。
  VB.NET代码示例：

  Imports MySql.Data.MySqlClient
  
  ' 检测MySQL实例是否可连接
  Function CheckMySqlAlive(host As String, port As Integer, username As String, password As String) As Boolean
      Dim connStr = $"server={host};port={port};user={username};password={password};Connection Timeout=3;"
      Using conn As New MySqlConnection(connStr)
          Try
              conn.Open()
              Return True
          Catch ex As MySqlException
              Return False
          Catch ex As Exception
              Return False
          End Try
      End Using
  End Function
  

• 第二步：检测失败时自动初始化并启动本地MySQL实例
  调用系统进程执行MySQL自带的mysqld.exe的初始化、启动命令即可，不需要修改系统注册表或者手动配置。
  VB.NET代码示例：

  Imports System.Diagnostics
  Imports System.IO
  
  Sub InitAndStartMySql(mysqlRootPath As String, customPort As Integer)
      ' 执行初始化命令，生成系统库、默认无密码root账号
      Dim initArgs = $"--initialize-insecure --basedir=""{mysqlRootPath}"" --datadir=""{mysqlRootPath}\data"" --port={customPort}"
      Dim initProcess = New Process() With {
          .StartInfo = New ProcessStartInfo() With {
              .FileName = Path.Combine(mysqlRootPath, "bin\mysqld.exe"),
              .Arguments = initArgs,
              .CreateNoWindow = True,
              .UseShellExecute = False
          }
      }
      initProcess.Start()
      initProcess.WaitForExit()
  
      ' 启动MySQL实例，用standalone模式无需注册系统服务
      Dim startArgs = $"--standalone --basedir=""{mysqlRootPath}"" --datadir=""{mysqlRootPath}\data"" --port={customPort}"
      Dim startProcess = New Process() With {
          .StartInfo = New ProcessStartInfo() With {
              .FileName = Path.Combine(mysqlRootPath, "bin\mysqld.exe"),
              .Arguments = startArgs,
              .CreateNoWindow = True,
              .UseShellExecute = False
          }
      }
      startProcess.Start()
      ' 等待3秒确保实例启动完成后再进行后续连接操作
      Threading.Thread.Sleep(3000)
  End Sub
  

• 第三步：修改默认配置、创建业务库表
  实例启动后用无密码的root账号连接，执行SQL修改root密码、创建业务所需的库表即可：

  Sub ConfigMySql(port As Integer, newRootPwd As String, dbName As String)
      Dim connStr = $"server=localhost;port={port};user=root;password=;Connection Timeout=5;"
      Using conn As New MySqlConnection(connStr)
          conn.Open()
          ' 修改root账号密码
          Dim cmd1 = New MySqlCommand($"ALTER USER 'root'@'localhost' IDENTIFIED BY '{newRootPwd}';", conn)
          cmd1.ExecuteNonQuery()
          ' 创建业务库
          Dim cmd2 = New MySqlCommand($"CREATE DATABASE IF NOT EXISTS {dbName};", conn)
          cmd2.ExecuteNonQuery()
      End Using
  End Sub
  

注意事项 #

• 自定义端口尽量选择3306之外的非热门端口，避免和用户本地已有的MySQL实例冲突
• 程序退出时如果不需要MySQL后台留存，可以调用mysqladmin -u root -p你的密码 shutdown命令关闭启动的实例，避免残留后台进程
• 打包的MySQL便携版要区分x86、x64架构，运行时根据用户系统架构调用对应版本，避免兼容性问题
• 如果需要将MySQL注册为系统服务，程序需要申请管理员权限运行

内容的提问来源于stack exchange，提问作者Arsal Riaz Chohdary