rs.recordcount怎么为-1呢？

pzzyj 2005-02-20 11:59:50

我连接的是sql server数据库
选了一张表，表中是有数据的

...
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "[表]",conn,1,1
....

但
response.write rs.recordcount
response.write rs.absolutepage

输出的结果为都为-1，这是什么原因？

...全文

174 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

pzzyj 2005-02-26

打赏
举报

问题已经解决

yctcsms 2005-02-20

打赏
举报

游标类型怎么改？

newsuperstar 2005-02-20

打赏
举报

改一下游标类型

surfchen 2005-02-20

打赏
举报

用rs.fields.count不行吗？

trtrsoft 2005-02-20

打赏
举报

rs.recordcount 只有在记录指针滚到记录尾以后才会有正确的值

wsdzmhongm 2005-02-20

打赏
举报

...
dim rs
set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.open "[表]",conn,1,1
....

jnzsk 2005-02-20

打赏
举报

我也遇到过这样的问题!请高手解决

pjl20005 2005-02-20

打赏
举报

数据库连接正确吗？表单名没错吧

raline 2005-02-20

打赏
举报

rs.open "[表]",conn,1,1
我第一次这样打开数据库哦，实在不懂
我一般　rs.open sql,conn,1,1
sql="select * from pyourtable"
不要定义SQL，直接OPEN也应该按格式吧
rs.open "select * from pyourtable",conn,1,1
还请大家指教

swordsman2000 2005-02-20

打赏
举报

rs.open "[表]",conn,3,1

valu 2005-02-20

打赏
举报

...
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from pyourtable]", conn, 1
....

newsuperstar 2005-02-20

打赏
举报

用下面的试一下：
rs.open "Enterpriess",conn,3,1

pzzyj 2005-02-20

打赏
举报

<%
'Enterpriess表里有三百多条记录
set rs=server.CreateObject("adodb.recordset")
rs.open "Enterpriess",conn,1,3
response.write rs.recordcount
%>

输入的结果是-1 这是原因?????

是是非非 2005-02-20

打赏
举报

rst.CursorLocation=adUseClient

wungshly 2005-02-20

打赏
举报

表里面没有内容
返回值为-1

suhongwei 2005-02-20

打赏
举报

设了pagesize了吗

一个ASP用户注册界面，用数据库实现

<% set rs=server.CreateObject("adodb.recordset") sql="select * from users" rs.open sql,conn,1,1 if rs.recordcount=0 then response.Write("") else for i=1 to rs.recordcount response.Write(""&_ ""&_ "") rs.movenext next end if %>

ID	用户名	密码
用户管理
暂无用户记录
"&rs("ID")&"	"&rs("用户名")&"	"&rs("密码")&"

vb-excel转换为mdb Private Sub Text1_DblClick() CDlg.DialogTitle = "打开 EXCEL 文件" CDlg.Filter = "所有 EXCEL 文件|*.xls" CDlg.ShowOpen If CDlg.FileName = "" Then Exit Sub Text1.Text = CDlg.FileName If Conn.State = adStateOpen Then Conn.Close Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CDlg.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件 sql = "select * from [sheet1$]" '打开EXCEL表 rs.CursorLocation = adUseClient rs.Open sql, Conn, 3, 3 Label1.Caption = "共有记录： " & rs.RecordCount Set DataGrid1.Dat

一个简单实用的查找数据的VB实例，能够实现模糊查找。 Private Sub cmdFind_Click() rs.Filter = "员工编号 like '" & "*" + Trim$(Text1(0)) & "*" & "'" Debug.Print rs.Filter ViewData lblCount.Caption = "找到 " & rs.RecordCount & " 条记录" End Sub

演示：http://asp2004.net/temp/treemenu/ 下载地址：http://asp2004.net/temp/treemenu.rar 关键代码： <% set conn=server.createobject("ADODB.CONNECTION") connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" conn.open connstr function menu(id) set rs=server.CreateObject("adodb.recordset") sql="select * from menu where id1="&id&" order by url,id" rs.open sql,conn,1,1 if rs.recordcount=0 then rs.close set rs=nothing exit function end if response.write("") i=1 while not rs.eof if len(rs("url"))>0 then if i=rs.recordcount then menutype="file1" else menutype="file" end if menuname=""&rs("menuname")&"" onmouseup="" else if i=rs.recordcount then menutype="menu3" listtype="list1" onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else{style.display='';this.className='menu4';}" else menutype="menu1" listtype="list" onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else{style.display='';this.className='menu2';}" end if menuname=rs("menuname") end if %> <%if len(rs("url"))<3 then%> " style="display:none"> <% end if rs.movenext i=i+1 wend response.write("

<%= menuname%>

<%menu(rs("id"))%>

") rs.close set rs=nothing end function %> =========无限级目录树=========http://bbs.asp2004.net http://bbs.asp2004.net/提供最新下载《管理》
<% menu 0 conn.close set conn=nothing %>