如何通过ADODB给DataCombo填充ListField? 熟悉的朋友请帮个忙,谢谢!

Question

近几天开发一个小系统,赶着交差,都快疯掉了.今晚做到这里卡住了,一时想不通,请大家帮个忙吧.     代码在后面,问题就出在断点那一句,这几行代码的目的是往一个DataCombo的ListField填充数据,虽然用ADODC可以很easy的解决,但是为了提高效率,我想用ADODB做,在模块里已经定义了一个公共的Connection,模块里面有一个函数"pubDBConnect",载进"open"参数便可以打开连接,这一步是没问题的.
Option Explicit
Dim planRS As ADODB.Recordset
Dim rsStr As StringPrivate Sub Form_Load()    Call pubDBConnect("open") 'Open在模块定义的Connection
    
    Set planRS = New ADODB.Recordset
    planRS.CursorLocation = adUseClient
    
    rsStr = "select film_id from movie_stored where film_state='在库'"
    planRS.Open rsStr, pubCn, adOpenDynamic, adLockOptimistic
    
    Set cboFilmId.RowSource = planRS
    cboFilmId.ListField = planRS!film_id '我设的断点就是这一句
End Sub

Answer 1

你应该这样做      
        squery = "SELECT  * FROM tblSpace"
            Set rstCmms = cnnCMMS.Execute(squery)
            Set cmbAccount.RowSource = rstCmms
            cmbAccount.ListField = "account"cboFilmId.ListField = planRS!film_id '我设的断点就是这一句
该
cboFilmId.ListField = “film_id ”

Answer 2

谢谢 Haiwolf ! :)你不仅解决了我的问题,还让我了解了另一种方法(我也会试着用Command去做的).再次感谢!