新手 vb查询sql数据库表中的某个字段并且在combobox下拉选?
我想将数据库“vb”中表“chanpinxinxi”的字段“产品名称”调出来显示在combobox的下拉列表中,代码该怎么写?...
我想将数据库“vb”中表“chanpinxinxi”的字段“产品名称”调出来显示在combobox的下拉列表中,代码该怎么写?
展开
2010-05-22
展开全部
首先当然是连接数据库咯
定义:
Dim conn As ADODB.Connection '定义连接对象
Dim rs as ADODB.Recordset '定义记录集对象
实例化:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
打开连接:
conn.open "连接字符串"
rs.open "chanpinxinxi",conn, adOpenKeyset, adLockOptimistic
最后就是你说的把“产品名称” 显示到combox中了
While rs.EOF = False
Combo1.AddItem rs.Fields("产品名称")
rs.MoveNext
Wend
定义:
Dim conn As ADODB.Connection '定义连接对象
Dim rs as ADODB.Recordset '定义记录集对象
实例化:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
打开连接:
conn.open "连接字符串"
rs.open "chanpinxinxi",conn, adOpenKeyset, adLockOptimistic
最后就是你说的把“产品名称” 显示到combox中了
While rs.EOF = False
Combo1.AddItem rs.Fields("产品名称")
rs.MoveNext
Wend
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
连接的你应该会了吧
参考一下:
rs.Open "select 用户名 from 用户密码", cnn, adOpenStatic, adLockReadOnly
For j = 0 To rs.RecordCount - 1
Combo1.AddItem rs.Fields("用户名")
rs.MoveNext
Next j
参考一下:
rs.Open "select 用户名 from 用户密码", cnn, adOpenStatic, adLockReadOnly
For j = 0 To rs.RecordCount - 1
Combo1.AddItem rs.Fields("用户名")
rs.MoveNext
Next j
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询