VB如何将数据库中的数据添加到COMBO控件中

ADODC控件已添加好,我需要把SQL中的数据添加到combo的下拉菜单中。或者用datacombo控件,请具体点,谢谢各位大侠了。... ADODC控件已添加好,我需要把SQL中的数据添加到combo的下拉菜单中。或者用datacombo控件,请具体点,谢谢各位大侠了。 展开
 我来答
电脑爱好者1236
推荐于2016-09-10 · TA获得超过432个赞
知道小有建树答主
回答量:120
采纳率:0%
帮助的人:114万
展开全部
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\main12.mdb;Persist Security Info=False;Jet OLEDB:Database Password=*********"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from save_type " '要显示的数据源
Adodc1.Refresh
Adodc1.Recordset.MoveFirst '移动到第一条记录
Combo1.Clear
For i = 0 To Adodc1.Recordset.RecordCount - 1 '循环添加吧
Combo1.AddItem Adodc1.Recordset.Fields(0).Value
Adodc1.Recordset.MoveNext '移动到下一条记录
Next i
End sub
hejian511
2012-03-09 · TA获得超过845个赞
知道大有可为答主
回答量:1559
采纳率:0%
帮助的人:1470万
展开全部
设置好ADoDC的连接属性后
Combo1.Clear '清除原来的数据
Do Until Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset(0).Value '添加第一个字段里的数据
Adodc1.Recordset.MoveNext
Loop
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式