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 :(
...全文
57 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
--//""------------
-/------

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧