Question

VB用ADODC控件连ACCESS数据库问题

我想让VB中的combo1控件的下拉列表内容与数据库中“提货单位”字段的内容一样，应该怎么做（用ADODC控件），本人初学者，请各位高手写出代码并详细说明一下，回答简明清晰，我能理解的，我在追加给分，急~`在线等

Answer 1

Private Sub Form_Load()
adodc1.ConnectionString =" 写连接数据库代码 "
Adodc1.RecordSource = " 写连接表代码 "
Adodc1.Refresh '刷新
Combo1.Clear '清除combo1里的内容
Adodc1.Recordset.MoveFirst '移到首记录
Do While Adodc1.Recordset.EOF = False
For j = 0 To combo1.ListCount '判断combo1里的内容是否与数据库里的一样，相同就移到下一条记录
If Adodc1.Recordset.Fields("提货单位") = Combo1.List(j) Then GoTo 19
Next
Combo1.AddItem (Adodc2.Recordset.Fields("提货单位")) '不同就添加

19: Adodc1.Recordset.MoveNext
Loop

Combo1.Text = Combo1.List(0)

End Sub

Answer 2

Private Sub Form_Load()
adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=数据库名.mdb;Persist Security Info=false;Jet OLEDB:Database Password=数据库密码"
Combo1.clear
Adodc1.RecordSource = "Select * from 表名"
Adodc1.Refresh
dim i as integer
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
For i = 0 To combo1.ListCount
If Adodc1.Recordset.Fields("提货单位") = Combo1.List(i)
Then exit for
Next i
If i=combo1.ListCount then
Combo1.AddItem (Adodc1.Recordset.Fields("提货单位"))
Loop
End Sub