标题:【求助】adodc和datacombo初始化
只看楼主
frank_tao78
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:69
专家分:143
注 册:2010-1-11
结帖率:100%
 问题点数:0 回复次数:1 
【求助】adodc和datacombo初始化
非常简单的一段代码只是想验证一下数据控件的初始化问题:
不设置好属性,怎么在窗口load的时候,初始化adodc控件、Datagrid控件、datacombo控件。。。。
下面是一段adodc和datacombo结合的一个例子,总是有问题,高手们请出出主义,怎么回事?
Private Sub Form_Load()
Dim sql As String

sql = "provider=microsoft.jet.oledb.4.0;" & _
   "data source=C:\Documents and Settings\Administrator\桌面\stud.mdb;" & _
   "persist security info=false"
Adodc1.ConnectionString = Trim(sql)
Adodc1.RecordSource = "select * from prof"


DataCombo1.RowSource = Adodc1——————提示“未找到方法或数据成员”
DataCombo1.ListField = Adodc1.Recordset.Fields("专业")
End Sub

当然,如果adodc1和datacombo1设置好这些属性之后,一段代码都不用,都可以正常,为什么这样不行呢?
搜索更多相关主题的帖子: datacombo adodc 
2010-01-28 20:03
frank_tao78
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:69
专家分:143
注 册:2010-1-11
得分:0 
天哪,终于知道了,这搞了我一天了:

Private Sub Form_Load()
Dim sql As String

sql = "provider=microsoft.jet.oledb.4.0;" & _
   "data source=C:\Documents and Settings\Administrator\桌面\stud.mdb;" & _
   "persist security info=false"
Adodc1.ConnectionString = Trim(sql)
Adodc1.RecordSource = "select * from prof"
Set DataCombo1.RowSource = Adodc1        给datacombo1设置source要加set
DataCombo1.ListField = "专业"            field直接用“专业”就可以了,怎么没想到,真笨笨


End Sub
2010-01-28 20:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-296679-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.646391 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved