Question

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

ADODC控件已添加好，我需要把SQL中的数据添加到combo的下拉菜单中。或者用datacombo控件，请具体点，谢谢各位大侠了。

Answer 1

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

Answer 2

设置好ADoDC的连接属性后
Combo1.Clear '清除原来的数据
Do Until Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset(0).Value '添加第一个字段里的数据
Adodc1.Recordset.MoveNext
Loop