有关 MSHFlexGrid 及数据库的问题

telenths 2001-10-31 10:02:48
Dim StrConn As String
Dim StrSql As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

StrConn = "<ODBCsourse>"
conn.Open StrConn

StrSql = "<SQL>"
rs.CursorLocation = adUseServer
rs.Open StrSql, conn, adOpenKeyset, adLockPessimistic
Set MSHFlexGrid.DataSource = rs

run 时 最后一句总是通不过
“实时错误 30022”
而且 VB 提示 MSHFlexGrid.DataSource = Nothing
...全文
53 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
trueiceman 2001-11-01
他说的对哦!
回复
rcy 2001-11-01
用mshflexgrid控件試下。
回复
foolishtiger 2001-11-01
我把你的代码粘到VB里进行了,没问题啊.
除非是你在Rs.Open时出错了,而你又用On Error语句把错误屏蔽了
这样才会出现你所说的错误.

自己再仔细检查一下程序吧.
回复
gmc007 2001-10-31
"<ODBCsourse>""<SQL>"
这里面具体是什么?!
如果RS根本就得不到记录集,当然MSHFlexGrid.DataSource = Nothing


回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-10-31 10:02
社区公告
暂无公告