以下代码可以运行
其中Adodc1是在窗体里面加入的Adodc控件
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=forTest"
Adodc1.RecordSource = "select * from jiaoyileixing"
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "leixingshuoming"
DataCombo1.Text = "类型说明"
DataCombo1.Visible = True
DataCombo1.ReFill但是换成如下就不可以了
Dim myConn As New ADODB.Connection
Dim myRs As New ADODB.Recordset
myConn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=forTest"
myRs.Open "select * from jiaoyileixing", myConn
Set DataCombo1.RowSource = myRs
DataCombo1.ListField = "leixingshuoming"
DataCombo1.Text = "类型说明"
DataCombo1.Visible = True
DataCombo1.ReFill
为什么会这样呢?
另:各位能不能给我推荐一下讲解各个对象之间关系的资料啊,感觉对对象之间的关系还没理解
谢谢关注!

解决方案 »

  1.   

    我的主要目的是想在运行时控制datalist或者datacombo,而不是在设计的时候就固定它们的属性
      

  2.   

    .....
    myConn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=forTest"
    myRs.CursorLocation=adUseClient '设置客户端游标
    myRs.CursorType=adOpenKeySet'设置记录集的游标类型
    myRs.LockType=adLockOptimistic'设置记录集的锁类型
    myRs.Open "select * from jiaoyileixing", myConn
    Set DataCombo1.RowSource = myRs
    ....
      

  3.   

    555,可以了,可以运行了哦
    谢谢 faysky2 啦
    真是奇怪,为什么要设置那个游标?能不能多说两句啊?
    如果一两句说不清楚,有没有好点的资料推荐给小弟一下,我才学vb
    在网上找资料找的的心急火撩的,呵呵