DropdownList样式ComboBox点击下拉箭头执行MySQL更新命令的方法

需求回顾 #

我需要搞定两个核心需求：

1. 正确执行MySQL的UPDATE命令
2. 为DropdownList样式的ComboBox下拉箭头绑定点击逻辑，点击时触发数据更新操作

目前已经有在窗体加载时刷新ComboBox数据的代码，整理后如下：

Private Sub carrega_empresas()
    Using conexao As MySqlConnection = GetConnectionMySQL()
        conexao.Open()
        Try
            Dim Query As String
            Query = "SELECT * FROM tb_empresa"
            COMMAND = New MySqlCommand(Query, conexao)
            Dim READER As MySqlDataReader
            READER = COMMAND.ExecuteReader()
            While READER.Read()
                Dim empresa = READER.GetString("empresa")
                cboempresa.Items.Add(empresa)
            End While
            conexao.Close()
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        Finally
            conexao.Dispose()
        End Try
    End Using
End Sub

实现下拉箭头点击触发更新的方案 #

标准WinForms ComboBox没有直接的“下拉箭头点击”事件，但可以用**DropDown事件**来实现等效效果——这个事件会在下拉列表展开时触发，和点击箭头的行为完全匹配。以下是完整实现步骤：

1. 绑定ComboBox的DropDown事件

你可以在窗体设计器里选中cboempresa，在属性窗口的事件列表中找到DropDown事件双击生成处理方法；也可以在代码里手动绑定：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 原有加载ComboBox数据的逻辑
    carrega_empresas()
    ' 手动绑定DropDown事件（如果设计器没绑定的话）
    AddHandler cboempresa.DropDown, AddressOf cboempresa_DropDown
End Sub

2. 在DropDown事件中执行UPDATE并刷新数据

在事件处理方法里，先执行MySQL更新操作，再重新加载ComboBox的数据：

Private Sub cboempresa_DropDown(sender As Object, e As EventArgs) Handles cboempresa.DropDown
    ' 执行MySQL UPDATE命令（请根据你的实际业务需求修改SQL和参数）
    Using conexao As MySqlConnection = GetConnectionMySQL()
        conexao.Open()
        Try
            ' 用参数化查询避免SQL注入风险
            Dim updateQuery As String = "UPDATE tb_empresa SET status = @status WHERE id = @id"
            Using cmd As New MySqlCommand(updateQuery, conexao)
                ' 添加参数（替换为你实际需要更新的字段和值）
                cmd.Parameters.AddWithValue("@status", "ativo")
                cmd.Parameters.AddWithValue("@id", 1)
                ' 执行更新并获取受影响行数
                Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
                MessageBox.Show($"成功更新 {rowsAffected} 条数据")
            End Using

            ' 更新完成后刷新ComboBox数据
            cboempresa.Items.Clear()
            carrega_empresas()
        Catch ex As MySqlException
            MessageBox.Show($"更新失败：{ex.Message}")
        Finally
            conexao.Dispose()
        End Try
    End Using
End Sub

补充说明 #

• 关于参考图片：
  • 辅助图片：展示了DropdownList样式的ComboBox界面，明确标注了下拉箭头的位置，确认我们要绑定的触发区域
  • 更新数据参考图：展示了MySQL数据表结构和更新操作的预期结果，帮助确认UPDATE命令的作用对象
• 该问题已由@LarsTech和@OL提供解决方案

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