以下代码可以运行
其中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
为什么会这样呢?
另:各位能不能给我推荐一下讲解各个对象之间关系的资料啊,感觉对对象之间的关系还没理解
谢谢关注!
其中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
为什么会这样呢?
另:各位能不能给我推荐一下讲解各个对象之间关系的资料啊,感觉对对象之间的关系还没理解
谢谢关注!
解决方案 »
- 关于控件的简单问题(新人)
- VB二维数组求和问题。会的帮我看下怎么写。
- 请问ScaleHeight、ScaleWidth 、ScaleLeft、ScaleTop 与Height、Width 、Left、Top 有什么本质区别
- flashget那个小方框怎么做?
- 问一个很菜的问题:水晶报表里如何画表格?
- VB中如何模拟鼠标的移动和点击,以及键盘的按键或者是按住的行为?要求能作用于其它应用程序。
- 寻日期类型控件,着急,需要帮助!!!!
- 在VB为什么对Access中的自动编号ID更改不了?
- select format(金额,"###0.00") as 金额 from 入库表 可以这样写吗????
- 谁有vb的源程序啊?
- 释放别人分配的内存
- 挑战高难度。。。
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
....
谢谢 faysky2 啦
真是奇怪,为什么要设置那个游标?能不能多说两句啊?
如果一两句说不清楚,有没有好点的资料推荐给小弟一下,我才学vb
在网上找资料找的的心急火撩的,呵呵