如下:
strcon = "Provider=SQLOLEDB;Driver={SQL Server};Server=Server;Uid=sa" & _
";Pwd=1;Database=data"
adoCN.Open strcon
Set adoRec = New ADODB.Recordset
strSQL = "SELECT name,banji FROM student "
adoRec.Open strSQL, strcon如何知道查到了多少条记录???
strcon = "Provider=SQLOLEDB;Driver={SQL Server};Server=Server;Uid=sa" & _
";Pwd=1;Database=data"
adoCN.Open strcon
Set adoRec = New ADODB.Recordset
strSQL = "SELECT name,banji FROM student "
adoRec.Open strSQL, strcon如何知道查到了多少条记录???
解决方案 »
- VB6.0 用Sharp Grid,控件出错问题
- 高分 如何将PictureBox2的背景设置为透明
- 如何在ToolBar工具栏的按钮菜单中添加图标???
- 请问:怎样使用A软件来监控B软件是不是运行了,以及要是运行了B软件,键盘都输入了一些什么咚咚?
- 利用VB实现VFP文件导入到ACCESS中...... 80分等候!
- 十万火急,求各位帮忙解决一个有关BIOS的问题!!!!!!!!!!!!!!
- 一个关于数据库生成表的几中提示(问题)
- 一个字符串赋值的问题。
- 请教各位高手:有无较好的VB反编译程序,哪里有下载?
- ####高手:有高分
- 怎样获得句柄(见详情..请进.)
- 哪里有文本比对的VB控件或dll或exe或源码?
只是你设置的光标类型不对。用静态的光标就可得到记录的数
adorec.open strsql,strcon,光标类型(选择静态)
adoCN.Open strconadoCN游标类型=客户端游标,就可以返回RecordCount值
adorec.movefitst
msgbox adorec.recordcount
strcon = "Provider=SQLOLEDB;Driver={SQL Server};Server=Server;Uid=sa" & _
";Pwd=1;Database=data"
adoCN.Open strcon
Set adoRec = New ADODB.Recordset
adpRec.CursorLocation = adUseClient
strSQL = "SELECT name,banji FROM student"
adoRec.Open strSQL, strcon
if adoRec.bof and adoRec.eof then
msgbox "没有查询到记录!!!"
end sub
else
adoRec.movelast
adoRec.movefitst
MsgBox "共有:" & adoRec.recordcount & "条记录!!!"
end if
adorec.CursorType = adOpenStatic
rs.Open strSql, conn, adOpenStatic
msgbox rs.RecordCount
dim fs as new adodb.recordset
cn.open "数据源名称"
sql="select * from 资料 where 性别='女'"
fs.open sql,cn,1,1
msgbox "一共找到了"&fs.recordcount&"条记录"
fs.close
cn.close
strSQL = "SELECT count(name),name,banji FROM student "
adoRec.Open strSQL, strcon
msgbox "一共找到了"&adoRec.fields(0)&"条记录"