关于VB下拉菜单绑定数据库字段

发布网友发布时间：2023-07-03 12:38

共1个回答

热心网友时间：2024-12-02 23:39

您好，我来帮你搞定：
1 新建工程；在窗体上加入一个按钮command1，一个下拉框combo1,
2 添加引用；工程-引用-Microsoft ActiveX Data Objects 2.7 Library；
3 将工程保存在d:\MY_project文件夹
4 假设数据库是access数据库，哈哈。
代码如下：
private sub Command1_Click()
on error goto errmsg '遇到错误，转到errmsg
dim MyConStr as string '连数据库字符串
dim sqlstr as string '查询语句
dim a as string '定义变量a
combo1.Clear '先清除列表框里的内容
dim conn2 as New ADODB.connection ’连接对象
MyConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb" ’语句1
conn2.open MyConStr '建立数据库连接
dim rs as New ADODB.Recordset ’创建数据集对象
sqlstr="select * from proctnew" '语句

rs.open sqlstr,conn2,1,1 '读取数据到记录集
’循环取值到ListBox1
Do while Not rs.Eof
a = RTrim(LTrim(rs("产品名称")))
Combo1.AddItem a '将记录加载到列表框内
rs.move next
Loop

rs.close
set rs=nothing
set conn2=nothing

errmsg:
if err.number<>0 then
MsgBox CStr(Err.Number) + CStr(Err.Description), vbExclamation, "错误！"
exit sub
end if

end sub

祝你成功！！！