从用户表单（Excel VBA）更新SQL表

Question

我有一张表，列出了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

任何建议将不胜感激。

此外，我的逻辑声音还可以吗？还是有更好的做事方法？

我知道这是2合1问题，但谢谢！

Answer 1

经过测试，就可以了。

Private Sub ListBox1_Click()

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

End Sub