我用vb6.0做了一个数据库,在查询的时候对查询结果进行计数,我查询出4条记录在Label1中提示4条记录.

要看你的查询方法，如果使用ADO查询的话，有时候会返回re.recordcount为－1.

这样就没问题rs.open sqlstr,conn,3,2

这样就有问题rs.open sqlstr,conn,1,2

因为conn后第一个数字是1表示指针只能往前，3表示自由指针

使用RecordCount属性可确定Recordset对象中记录的数目。ADO无法确定记录数时，或者如果提供者或游标类型不支持RecordCount，则该属性返回–1。读已关闭的Recordset上的RecordCount属性将产生错误。

如果Recordset对象支持近似定位或书签（即Supports(adApproxPosition)或Supports(adBookmark)各自返回True），不管是否完全填充该值，该值将为Recordset中记录的精确数目。如果Recordset对象不支持近似定位，该属性可能由于必须对所有记录进行检索和计数以返回精确RecordCount值而严重消耗资源。

Recordset对象的游标类型会影响是否能够确定记录的数目。对仅向前游标，RecordCount属性将返回-1，对静态或键集游标返回实际计数，对动态游标取决于数据源返回-1或实际计数。

1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。

2、双击“统计”（即Command1）按钮，在d出的代码框中编写如下代码：

PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)

x = Mid(a, i, 1)    If x = b Then n = n + 1  Next i  Label3.Caption = "字符" &b &"在字符串”" &a &"“中" &vbCrLf &"共出现了" &n &"次。"End Sub

这样便达到了检索所有字符、统计某个字符出现次数的需求了。

3、为了使输入 *** 作更加的方便，我们可以加入SetFocus语句：

PrivateSubtext1_keypress(keyasciiAsInteger)Ifkeyascii=13ThenText2.SetFocusEndSub

这样当输入光标停留在text1，点击回车（Enter）键时，光标便会跳到text2中，方便对text2进行输入。

当光标停留在text2中，按下回车键时，光标将跳到Command上，方便 *** 作：

PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub

4、最后点击运行试试看功能。

---