set data1.recordset=rs '这句出错

Equn 2003-05-14 02:49:42
rs是ado.recordset对象
data1是data控件,data1控件我需要用于MSFlexGrid控件
data1.recordset对象需要的recordset是DAO的!
所以:
set data1.recordset=rs '这句出错
难道data1.recordset的记录集就一定要用DAO的?不能使用ADO的么? 不懂DAO :(
...全文
16 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lalalulu 2003-05-20
set data1.datasource=rs
回复
Equn 2003-05-20
up
回复
Equn 2003-05-16
Private Sub Form_load()
Dim rs As New Recordset
Dim con As New Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\dealmore\data\data.mdb"
rs.Open "select * from products", con, 1, 1
Set MSFlexGrid1.DataSource = rs '执行到这句时提示出错:对象变量或with块变量未设置
End Sub

MSFlexGrid控件只能和Adodc控件连接,不能直接连接Ado记录集?


回复
cool_man 2003-05-16
DATA是DAO的,你的rs是ADO的所以要用ADODC这个控件才行
回复
lxcc 2003-05-16
data本身不支持与ado绑定
直接
set MSFlexGrid1.datasource=rs
回复
阿晨0 2003-05-16
首先确定你的rs已经能打开,能使用
然后就可以直接这样使用了

rs.open
set MSFlexGrid1.Recordset=rs
Recordset1.refresh

这样就可以了,当你是用了ADO的表,就不再需要Data的连接了


回复
xinjiana 2003-05-16
'定义命令和记录集
Dim cmd As Command
Dim rs As Recordset

'设置命令和记录集的链接对象
'de.cnn为ado的数据源
Set cmd = New Command
cmd.ActiveConnection = de.cnn
cmd.CommandText = "select * from tabuser"
Set rs = cmd.Execute

Set Data1.Recordset = rs
'释放
Set rs = Nothing


应该还有更好的方法的
回复
道素 2003-05-16
rs这个东西你使用前一定要new
data1.recordset的记录集当然可以是ado,你最好把错误提示写出来,这样才好找原因

___
( ">
)(
// ) CH21ST@HOTMAIL.COM
--//""------------
-/------
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-14 02:49
社区公告
暂无公告