Question

vb MSHFlexGrid控件不能完全显示我的查询结果，望高人指点

If Val(Text4.Text) > 0 And Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then Dim strsql33 As String Set conn33 = New ADODB.Connection conn33.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\热点检测.mdb;Persist Security Info=False;Jet OLEDB:Database Password=23456789" strsql33 = "SELECT * from 洱源高温检测表 where 车身温度>= " & Val((Text4.Text)) & " " Set rs33 = New ADODB.Recordset rs33.CursorLocation = adUseClient rs33.Open strsql33, conn33, adOpenStatic, adLockReadOnly rs33.MoveLast Set MSHFlexGrid2.DataSource = rs33
end if ‘’‘’‘数据库里面的记录，

查询出来的结果，为什么不能完整显示我的记录，求指点，万分感谢，我已经安装了VB6.0 sp6补丁





Answer 1

语句基本没什么问题。有两点你参考一下：
第一： strsql33 = "SELECT * from 洱源高温检测表 where 车身温度>= " & Val((Text4.Text)) & " "，最后面的& " "可以不用。

第二：调试方法：
查一下rs33数据集装载的数据是否与正确查询语句相符，如果正确，则问题出在MSHFlexGrid，如果rs33数据集装载的数据与MSHFlexGrid一样，则问题出在查询语句。
如，可以通过以下方法调试：
msgbox rs33.RowCount
for i=0 to rs33.Rowcount-1
Debug.print str(rs33.fields("编号")) + " "+str(rs33.fields("车身温度"))
rs33.Movenext
next

追问

网上还有人说 是mshflexgrid 的bug ,安装sp5补丁可以解决，我已经安装了sp6补丁。热点检测.mdb数据库里面有3个表，分别为 洱源高温检测表，海东高温检测表，甸南高温检测表。3个表 分别对应3个exe 测量程序，然后对应进行写操作，会不会是3个exe应用程序 打开同一个数据库引起的。我想查询应该跟这个没关系啊， 现在我发现记录结果全出来了，但是编号最大的到第一行上面去了

追答

第一：数据库有写前锁，写后解锁。你也可以在打开时选择方式，如：rs33.Open strsql33, conn33, adOpenStatic, adLockReadOnly。选择这两个adOpenStatic, adLockReadOnly参数。

第二：编号最大的到第一行上面去了
要排序，有两种，升序和降序：
按编号从小到大：
strsql33 = "SELECT * from 洱源高温检测表 where 车身温度>= " & Val((Text4.Text)) & " Order by 编号 "

按编号从大到小：
strsql33 = "SELECT * from 洱源高温检测表 where 车身温度>= " & Val((Text4.Text)) & " Order by 编号 Desc"

Answer 2

对于i = 0到

 rs.RecordCount-1 
对于; j = 0到rs.Fields.Count - 1 
'在错误恢复下一步 BR />。 TextMatrix（I，J）=实验项目（J）。价值
 
;下面j 
接下来，我

追问

没懂你的意思，能说得更加明白点吗？

Answer 3

分页显示吧，显示行数太少

Answer 4

怎么不能显示了？？这不就是有条件查询么？？你带了条件当然就显示符合要求的内容了？？？

追问

条件肯定都是满足的，我查询的温度值是取的1°，车身温度最低20°

Answer 5

怎么个不符合了？？你这本身就是条件查询么？？显示内容当然是所要求的内容了？？要不是你想要的那就是你的查询条件代码部分的事了！！

Answer 6

chaimisin8712@126.com
你发过来看一下不就行了