VB如何将数据库中的数据添加到COMBO控件中
ADODC控件已添加好,我需要把SQL中的数据添加到combo的下拉菜单中。或者用datacombo控件,请具体点,谢谢各位大侠了。...
ADODC控件已添加好,我需要把SQL中的数据添加到combo的下拉菜单中。或者用datacombo控件,请具体点,谢谢各位大侠了。
展开
2个回答
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询