查询数据库中的内容。非常感谢！

hqlin65

如何能做到：
如图：在窗体中选择或输入姓名AAA，点击查询后，能实现A2显示姓名AAA，A3显示权限：审核


在窗体中选择或输入姓名BBB，点击查询后，能实现A2显示姓名BBB，A3显示权限：开票员


非常感谢！！

hqlin65

请各位老师出手相助。。。。。谢谢

Yalishanda30

hqlin65 发表于 2024-8-1 09:21
请各位老师出手相助。。。。。谢谢

额。。。。。。。

魂断蓝桥

Private Sub CommandButton2_Click()
Dim cnn, rs, Sql$, s$, M&
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("adodb.Recordset")
If ComboBox1 = "" Then Exit Sub
s = ComboBox1
cnn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\DA.mdb"
Sql = "select username,userduties from UserTable where username='" & s & "'"
rs.Open Sql, cnn, 1, 1
[A:A] = ""
M = 2
Do While Not rs.EOF
    Cells(M, 1) = rs.Fields(0)
    Cells(M + 1, 1) = rs.Fields(1)
    M = M + 1
    rs.MoveNext
Loop
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

hqlin65

魂断蓝桥 发表于 2024-8-1 09:43
Private Sub CommandButton2_Click()
Dim cnn, rs, Sql$, s$, M&
Set cnn = CreateObject("ADODB.Connect ...

学习了，非常感谢！

hqlin65

Yalishanda30 发表于 2024-8-1 09:40
额。。。。。。。

非常感谢！！！！