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

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

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

原发布者:杰吉萌芽了 VB中用ADODC控件连接ACCESS数据库今天告诉大家两种VB连接数据库的方法（非原创，致敬原创作者）一种是在adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。一种是用代码设置数据库的路径，这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为message,然后把里面的字段名称和数据类型都按自己的需要设置好.然后保存就可以了.打开MicrosoftVisualBasic6.0我用的是VB6.0,在需要调用数据库的窗体上加入一个adodc控件,默认名称为:Adodc1.默认的情况下工具栏里是没有这个控件的,可以打开工程---部件(快捷键CTRL+T),去掉只显示选定项的勾,然后勾上MicrosoftADODataControl(OLEDB),然后确定，工具栏就会多了一个adodc的控件。第一种方法，设置adodc1的属以连接数据库.在adodc1控件上右键--Adodc属性--使用连接字符串--生成--MicrosoftJet4.0OLEDBProvider--下一步--选择或输入数据库名称---找到要连接的数据库后,确定.然后记录源设置属性.如果要把内容提交到数据库一般使用adCmdTable.表选择要连接的表。设置完毕后就可以了.如果我们想把内容提交到数据库.举个例子。在窗体建立一个文本框,设置属性中的DataSource为adodc1，DataField为要连接的数据库的字段名。如果数据库中有

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

private sub command1_click() set con = createobject("adodb.connection") set rs = createobject("adodb.recordset") con.open "provider=microsoft.jet.oledb.4.0;data source=d:\aaa.mdb" set rs.activeconnection = con '以下为依次读取，显示在窗体上： rs.open "select 用户,密码 from 账号" do while not rs.eof print rs.fields(0), rs.fields(1) rs.movenext loop rs.close '将用户789的密码修改为789： rs.open "update 账号 set 密码='789' where 用户='789'" end sub