Question

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

Answer 1

用信吵记录集打开这个密码表
然后用个循环添加轮厅
additem
rs!密码
这样的做个循环添加就可以滑桐侍

Answer 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