请问如何对查询出来的结果做统计(求记录数)?谢谢~~!
解决方案 »
- vb 如何接受aspx post 值?
- VB转换文件为二进制,然后再保存文件,80K就成了72K了,郁闷啊
- 大家谁有毕业生管理系统的例子~让我参考参考!谢谢
- ********************发布一个控件类似于 Dadagrid,很好用,大家用用看**********************************
- 字符转换问题
- daisy8675:我根本就没有你说的2004.7.1--2005.6.30之间的未结帖子。
- 如何判断一个数据源是access或sql数据库?
- 简单问题!
- 有没有类似游戏中的操纵杆控件?
- 通讯问题,高分!
- 请问在HTML中如何操作vb中的事件?
- 关于查找字符的问题
With Rs
Msgbox !Row
End with
Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\中安科.mdb;Persist Security Info=False"
Adodc5.RecordSource = "select count(*) as 记录数 from 基本情况表4 where " & Trim(Combo2.Text) & " like '*" & Text10.Text & "*'"
Adodc5.Refresh
End Sub我是这么做的,
不过老有问题
然后再在Text10.Text 中输入一个值
(既对某字段下值为Text10.Text的记录进行记数)
If Adodc5.Recordset.RecordCount > 0 Then '若记录非空
Adodc5.Recordset.Find " " & Trim(Combo2.Text) & " like '*" & Text10.Text & "*' "
Label27.Caption = "共查询到符合条件的记录 " & Adodc5.Recordset.RecordCount & " 条!"
If Adodc5.Recordset.EOF = True Then
MsgBox "对不起,没找到您要查找的关键字,请确认输入无误后再继续查找!", vbExclamation, "提示"
Label27.Caption = "共查询到符合条件的记录 0条!"
Adodc5.Refresh
End If
End If
End Sub
不过这样得到的是所有记录的总数,而不只是符合条件的记录数