看看那个 MSHFlexGrid 控件的版本是多少,Microsoft Hierarchical FlexGrid Control 6.0 (SP4) (OLEDB) 这个可以显示较大的数据旧版本的FlexGrid不行
谢谢大家我去下载 SP5 和SP 4 试试
下载安装后问题依旧下面是我得部分关键代码conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sj;Data Source=XW" Dim rec As ADODB.Recordset Set rec = New ADODB.Recordset rec.ActiveConnection = conn rec.CursorType = adOpenStatic ' rec.CursorLocation = adUseClient rec.LockType = adLockPessimistic sql="select * from xx" rec.Open sql Set Grid1.DataSource = rec
发现问题了sql="select * from xx"能显示2万多行全部数据sql="SELECT a.a1,b.b2 FROM (a INNER JOIN b ON a.id = b.id) WHERE (((a.jsnd)='2005'))" 时只能显示1036行当 sql="SELECT a.a1,b.b2,c.c3 FROM (a INNER JOIN b ON a.id = b.id) INNER JOIN tb_zgdwlx ON c.id =b.id WHERE (((a.jsnd)='2005'))" 时就只能显示1016行了我将conn.ConnectionString修改为 conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sj;Data Source=XW;Connect Timeout=30"故障依旧怀疑时SQL语句查询太慢的问题,现准备改成 存储过程不知大家有什么其他的高见
这个可以显示较大的数据旧版本的FlexGrid不行
Dim rec As ADODB.Recordset
Set rec = New ADODB.Recordset
rec.ActiveConnection = conn
rec.CursorType = adOpenStatic
' rec.CursorLocation = adUseClient
rec.LockType = adLockPessimistic
sql="select * from xx"
rec.Open sql
Set Grid1.DataSource = rec
时只能显示1036行当
sql="SELECT a.a1,b.b2,c.c3 FROM (a INNER JOIN b ON a.id = b.id) INNER JOIN tb_zgdwlx ON c.id =b.id WHERE (((a.jsnd)='2005'))"
时就只能显示1016行了我将conn.ConnectionString修改为
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sj;Data Source=XW;Connect Timeout=30"故障依旧怀疑时SQL语句查询太慢的问题,现准备改成 存储过程不知大家有什么其他的高见