嘿，我来一步步帮你搞定这个Excel+MySQL的交互式查询需求！你已经搞定了ODBC连接的基础，接下来咱们从代码存放、触发逻辑到具体实现都讲得明明白白。

你需要把代码放在对应工作表的模块里，因为咱们要监听这个工作表上的单元格输入事件：

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 在左侧的“工程资源管理器”里找到你要使用的工作表（比如Sheet1），双击它
3. 右侧会弹出这个工作表的代码窗口，咱们的代码就写在这里

咱们用工作表的Worksheet_Change事件来监听订单号单元格的输入，然后执行参数化SQL查询（划重点：参数化查询能避免SQL注入，比直接拼接字符串安全太多）。

先做一个必要设置：引用ADODB库 #

VBA需要这个库来操作数据库：

1. 在VBA编辑器顶部菜单栏点击「工具」→「引用」
2. 在弹出的列表里找到「Microsoft ActiveX Data Objects 6.1 Library」（选最新的版本就行），勾选后点击确定

然后粘贴下面的代码（记得替换成你的实际信息） #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听你输入订单号的单元格，这里假设是A1，改成你实际的单元格地址
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Dim conn As ADODB.Connection
        Dim cmd As ADODB.Command
        Dim rs As ADODB.Recordset
        Dim orderNum As String
        
        ' 获取输入的订单号，去掉前后空格
        orderNum = Trim(Target.Value)
        ' 如果订单号为空，清空结果单元格
        If orderNum = "" Then
            Me.Range("B1").Value = "" ' B1是你要显示field1的单元格
            Me.Range("C1").Value = "" ' C1存field2供后续使用
            Exit Sub
        End If
        
        On Error GoTo Cleanup ' 出错时跳转到资源清理环节
        
        ' 建立数据库连接：这里可以用两种方式，选一种就行
        ' 方式1：用你已经建好的ODBC DSN
        Set conn = New ADODB.Connection
        conn.Open "DSN=你的MySQL数据源名称;UID=你的数据库用户名;PWD=你的数据库密码;"
        
        ' 方式2：无DSN连接（更灵活，不用提前配置DSN），替换成你的服务器信息
        ' conn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=你的服务器IP/域名;DATABASE=你的数据库名;UID=用户名;PWD=密码;"
        
        ' 创建参数化查询命令，避免SQL注入
        Set cmd = New ADODB.Command
        cmd.ActiveConnection = conn
        cmd.CommandText = "SELECT field1, field2 FROM table WHERE order_number = ?" ' 替换成你的表名和字段名
        cmd.CommandType = adCmdText
        
        ' 添加查询参数，对应SQL里的?
        cmd.Parameters.Append cmd.CreateParameter("orderNum", adVarChar, adParamInput, 50, orderNum)
        
        ' 执行查询并获取结果
        Set rs = cmd.Execute
        
        ' 把结果写入指定单元格
        If Not rs.EOF Then
            Me.Range("B1").Value = rs("field1").Value
            Me.Range("C1").Value = rs("field2").Value
        Else
            ' 没找到对应订单时的提示
            Me.Range("B1").Value = "未找到该订单"
            Me.Range("C1").Value = ""
        End If
        
Cleanup:
        ' 关闭并释放数据库资源，避免占用连接
        If Not rs Is Nothing Then rs.Close
        If Not cmd Is Nothing Then Set cmd = Nothing
        If Not conn Is Nothing Then
            If conn.State = adStateOpen Then conn.Close
            Set conn = Nothing
        End If
        ' 如果出错，弹出提示
        If Err.Number <> 0 Then
            MsgBox "查询出错：" & Err.Description, vbExclamation
            Me.Range("B1").Value = "查询失败"
        End If
    End If
End Sub

• 单元格地址：把代码里的A1（订单号输入框）、B1（field1显示）、C1（field2存储）改成你实际要用的单元格
• 数据库信息：替换DSN名称或无DSN连接字符串里的服务器、数据库、用户名密码
• SQL语句：把table换成你的实际表名，field1、field2、order_number换成对应的字段名

回到Excel，在你设置的订单号单元格输入一个真实的订单号，回车后就能看到B1自动显示查询到的field1值啦！如果没反应或者报错，检查下：

1. ADODB库有没有正确引用
2. 数据库连接信息是不是正确
3. SQL语句里的表名、字段名有没有写错
4. 订单号的格式和数据库里的是否一致（比如有没有大小写、空格问题）

内容的提问来源于stack exchange，提问作者Dennis