combox获取mysql_请问combobox从数据库取得下拉表单的方法

INEmebGb.rar

(38.51 KB, 下载次数: 60)

2007-12-15 08:24 上传

点击文件名下载附件

请问combobox从数据库取得下拉表单的方法

里面的笨办法是按下按钮后 一个一个的取得COMBOBOX的从MDB里取得下拉菜单,请问有没类似函数一样的语言,一次性给几个COMBOBOX取得各自的下拉菜单

Dim CNN As New ADODB.Connection

Dim RST As New ADODB.Recordset

Dim RST1 As New ADODB.Recordset

Dim SQL, sql1 As String

Stpath = ThisWorkbook.Path & Application.PathSeparator & "dh.mdb"

CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Stpath & ";User ID=admin;Password=;Jet OLEDB:Database Password=825158"

SQL = "Select 品牌 from dhp where 分类='" & [a3] & "'"

sql1 = "Select 品牌 from dhp where 分类='" & [a4] & "'"

RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic

RST1.Open sql1, CNN, adOpenKeyset, adLockOptimistic

Do Until RST.EOF

ComboBox1.AddItem RST("品牌")

RST.MoveNext

Loop

Do Until RST1.EOF

ComboBox2.AddItem RST1("品牌")

RST1.MoveNext

Loop

RST.Close

RST1.Close

CNN.Close

Set RST = Nothing

Set RST1 = Nothing

Set CNN = Nothing

按我这样的做法,那么下个COMBOBOX3就需要DIM RST3了,#83

请老师们帮忙看有 没有别的可行办法