有关 MSHFlexGrid 及数据库的问题

[telenths]

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

[gmc007]

"<ODBCsourse>""<SQL>"
这里面具体是什么？！
如果RS根本就得不到记录集，当然MSHFlexGrid.DataSource = Nothing

[foolishtiger]

我把你的代码粘到VB里进行了,没问题啊.
除非是你在Rs.Open时出错了,而你又用On Error语句把错误屏蔽了
这样才会出现你所说的错误.

自己再仔细检查一下程序吧.

[rcy]

用mshflexgrid控件試下。

[trueiceman]

他说的对哦！