如何用VB组在合框(combo1)的下拉列表中显示ACCESS数据库中的一个字段中的所有数据内容?

是这样的，想请讲解下，如何用VB组在合框(combo1)的下拉列表中显示ACCESS数据库中的一个字段中的所有数据内容?
最新回答
Cunese-红玫瑰*

2024-10-31 07:36:59

Private Sub Form_Load()
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\service\数据库\liushuizhang.mdb;Persist Security Info=False"
Dim rs As New Recordset
rs.Open "select 名称 from 登陆", conn
rs.MoveFirst
While Not rs.EOF
Combo1.AddItem rs.Fields("名称").Value
rs.MoveNext
Wend
End Sub

您可能感兴趣问答

Collapsible

热门标签

编程 Python Microsoft 编程语言 C++ C（编程语言） Java javascript PHP 前端开发 MySQL Office 计算机 Java编程 Excel vue dedecms 数据库 正则表达式 计算机语言

热点问答