从用户窗体更新 SQL 表 (Excel VBA)答案

【问题标题】：Update SQL Table from Userform (Excel VBA)从用户窗体更新 SQL 表 (Excel VBA)
【发布时间】：2018-06-26 01:35:07
【问题描述】：

我有一张表，其中列出了 SQL Server 中的部门和密码。我正在创建一个用户表单 UI，以便用户能够查看列表、修改条目或删除条目。

我让它看起来像这样：

当用户打开表单时，我设法建立了 ADODB 连接，它会自动加载列表：

Private Sub Userform_Activate()

我的理由是我希望用户从列表框中进行选择，它将分别在 textbox1 和 textbox2 中显示部门和密码。

然后用户可以更新记录或删除记录。这将是一个非常直接的 SQL 操作。

我目前遇到的障碍实际上是让数据显示在 Textbox1 和 Textbox2 中。

代码

Private Sub Select_Click()
If Me.ListBox1.Selected(i) Then
    Me.TextBox1 = Me.ListBox1.List(i, 0)
    Me.TextBox2 = Me.ListBox1.List(i, 1)
End If
End Sub

任何建议将不胜感激。

此外，我的逻辑合理吗？还是有更好的做事方式？

我知道这是二合一问题，但谢谢！

【问题讨论】：

Private Sub Select_Click() 这看起来像是您编写的一个单独的过程。将代码与实际列表框的单击事件联系起来。所以Private Sub Listbox1_Click()
当用户单击“选择”按钮时会发生这种情况。这行不通？
即使按照您的建议，它也不起作用...

标签： vba excel

【解决方案1】：

刚刚测试过，这行得通。

Private Sub ListBox1_Click()

    TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0)
    TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 1)

End Sub

【讨论】：