关于COMBOBOX的设置问题

Question

我建立了一个ACCESS数据库,里面有表KUCUN,在窗体上建立了一个COMBO1和ADODC1,我想要COMBO1连接表KUCUN中的字段"货号"下的所有数据,也就是说COMBO1能选择货号下的所有内容,但是我做的只能显示却不能,请教我哪里出了问题?
控件属性设置如下:
Adodc1.connectionstring:DSN=kucun
Adodc1.recordsource=kucun
Adodc1.commandtype:2=...
Combo1.datasource:adodc1
其他都没有设置,我的代码如下:
Private Sub Combo1_Change()
Dim i As String
Dim rs As New ADODB.Recordset
Combo1.Clear
For i = 1 To rs.RecordCount
    Combo1.AddItem rs!货号 & ""
    rs.MoveNext
Next i
End Sub

Answer 1

lz概念混淆，ADODC和Dim rs As New ADODB.Recordset 同时用

Answer 2

Adodc1.connectionstring:DSN=kucun 
Adodc1.recordsource=kucun 
Adodc1.commandtype:2=... 
Combo1.datasource:
其他都没有设置,我的代码如下: 
Private Sub Combo1_Change() 
Dim i As String 
Dim rs As New Adodc1.Recordset 
Combo1.Clear 
For i = 1 To rs.RecordCount 
    Combo1.AddItem rs!货号 & "" 
    rs.MoveNext 
Next i 
End Sub 
这样还是不行啊?

Answer 3

首先Combo不要绑定adodc。
然后上次跟你说的rs是一个记录集，要查询出来才能用。
我跟你举个例子：
    If rs.State = 1 Then rs.Close
    rs.CursorLocation = adUseClient
    rs.Open "select * from KUCUN", cnn_str, adOpenKeyset, adLockPessimistic
cnn_str是连接语句
cnn_str = "Provider=SQLOLEDB.1;Password=00000000;Persist Security Info=True;User ID=sa;Initial Catalog=;Data Source="
我用的是SQL的数据库，如果你不会可以到网上查查怎么连的数据库

Answer 4

顺便说一句 lingshao0909的头像好酷

Answer 5

Adodc1.connectionstring:DSN=kucun 
Adodc1.recordsource=kucun 
Adodc1.commandtype:2=... 
Combo1.datasource:adodc1  清除其他都没有设置,我的代码如下: 
Private Sub command1_click() 
Dim i As integer Combo1.Clear 
For i = 1 To Adodc1.recordset.RecordCount 
    Combo1.AddItem Adodc1.recordset.fields(0) & "" 
    Adodc1.recordset.MoveNext 
Next i 
End Sub