为何我的recordcount总返回-1

visual 2000-03-13 09:00:00
请问:

我在我的ASP中使用了SQL server 7.0 代码如下:

Set Conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=books;Data Source=kingnet"
Conn.Open connstr
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open connstr
set cm=server.CreateObject("ADODB.command")
set cm.ActiveConnection=conn
cm.Prepared=True
set rs=server.CreateObject("adodb.recordset")
strsql= "select * from reader "

rs.CursorType =adOpenStatic
rs.Open strsql,conn

Response.Write "the 总记录: <br>"
Response.Write rs.RecordCount

不知为何,Recoedcount总为-1,但是记录集却取得极为正确
使用
do until rs.eof
response.write rs(" ...
.
.
.
rs.movenext
loop
均可正确显示,唯独recordcount 为-1

我还使用过cm.execute(l_count),得到的l_count也为-1,其他一切正确。

我的后台数据库的reader表有主键。
这个问题我在Acces中也遇到过。
现在我只好先用 select count(...) as num ...先得到记录数。然后再继续真正的SQL语句。
我在VB中使用类似代码,正确!

不知ASP到底支不支持Recordcount。如果您实现过recordcount in asp。还请您明示。最好能找出我的问题所在。

请各位帮忙!
谢谢.
...全文
198 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
l_cheng 2000-03-14
  • 打赏
  • 举报
回复
当未说明cursor类型时,cursor缺省为1,这时不支持recordcount属性;你必须显式指定
cursor类型为3,只有它才支持recordcount属性
ypjiang 2000-03-14
  • 打赏
  • 举报
回复
it need that the cursor type of the opening recordset is 1 or 3
King 2000-03-13
  • 打赏
  • 举报
回复
ZDG说的对,我刚试完,如果不以rs.Open strsql,conn,1,1的方式打开的话,MOVELAST也没有用。
david 2000-03-13
  • 打赏
  • 举报
回复
首先要MOVEFIRST,然后再MOVELAST,大概就可得到RECORCOUNT.
zdg 2000-03-13
  • 打赏
  • 举报
回复
rs.Open strsql,conn
改成
rs.Open strsql,conn,1,1
就可以了...
帮助那些想尽快学习存储过程 实例:create PROCEDURE pagination @tblName varchar(255), -- 表名 @strGetFields varchar(1000) = '*', -- 需要返回的列 @fldName varchar(255)='', -- 排序的字段名 @PageSize int = 10, -- 页尺寸 @PageIndex int = 1, -- 页码 @pagecount int output, -- 返回数, 非 0 值则返回 --@OrderType bit = 0, -- 设置排序类型, 非 0 值则降序 @strWhere varchar(1500) = '1=1' -- 查询条件 (注意: 不要加 where) AS declare @sql nvarchar(2000) --获得表中所有记录的条数 declare @recordcount int declare @getcountsql nvarchar(2000) set @getcountsql = N'select @count = count(*) from ' + @tblName + N' where ' + @strWhere exec sp_executesql @getcountsql,N'@count int output',@count=@recordcount output if @recordcount=0 begin set @pagecount = 0 return end declare @lastcount int set @lastcount = @recordcount % @PageSize if @lastcount = 0 set @pagecount = @recordcount / @PageSize else set @pagecount = @recordcount / @PageSize + 1 if @lastcount = 0 or @pageindex < @pagecount begin set @sql = N'select ' + @strGetFields + N' from (select top ' + convert(nvarchar(4),@PageSize) + N' * from (select top ' + convert(varchar(10),@PageSize*@PageIndex) + N' * from ' + @tblName + N' where ' + @strWhere + N' order by ' +@fldName+ N') as t order by ' + @fldName + ' desc) as tt order by ' + @fldName end else begin if @lastcount != 0 and @pageindex = @pagecount begin set @sql = N'select ' + @strGetFields + N' from (select top ' + convert(nvarchar(4),@lastcount) + N' * from (select top ' + convert(varchar(10),@PageSize*@PageIndex) + N' * from ' + @tblName + N' where ' + @strWhere + N' order by ' +@fldName+ N') as t order by ' + @fldName + ' desc) as tt order by ' + @fldName end end print @sql exec sp_executesql @sql go select * from authors declare @pagecount int exec pagination 'authors','*','au_id',5,1, @pagecount output,'state=''CA''' print @pagecount
/// /// 获取页数 /// /// 记录数 /// /// public static int GetPageCount(int recordcount, int page_size) { int pagecount = 0; if (recordcount % page_size == 0) pagecount = recordcount / page_size; else pagecount = (recordcount / page_size) + 1; return pagecount; } /**//// /// 获取分页数据 /// /// DATASET /// 每页记录数 /// 页索引 /// 页数 /// public static DataView GetPagerForView(DataTable dt, int page_size, int pageindex,out string msg) { DataView dv = new DataView(); if (dt != null) { int recordCount = dt.Rows.Count; //记录数 int page_sum = GetPageCount(recordCount, page_size); if (page_size < dt.Rows.Count)//kl2 :SQL查询函数返回的DATASET { if (page_size == 0)//text_intpase :判断用户设置的分页是否合法 page_size = 10; //recordCount = kl2.Tables[0].Rows.Count;//假设每页只显示1条数据,则共可以显示的页数:pagemark页 if (page_size < 1) { msg = "请将分页项设置在[1-" + dt.Rows.Count.ToString() + "]之间"; } msg = "共" + page_sum.ToString() + "页," + dt.Rows.Count.ToString() + "条";//page_num :lable DataTable page_table = new DataTable();//记录当前正在操作的是哪个表,全局变量,值由查询函数获取 for (int k = 0; k < dt.Columns.Count; k++) { page_table.Columns.Add(dt.Columns[k].ColumnName); } if (dt.Rows.Count != 0 && page_size < dt.Rows.Count) { page_table.Clear(); try //普通页面显示 { page_table.Clear(); for (int i = 0; i < page_size; i++) { page_table.Rows.Add(dt.Rows[i + (pageindex * page_size)].ItemArray); } } catch //最后不足一个页面的显示 { page_table.Clear(); try { for (int s = 0; s < recordCount - (pageindex * page_size); s++) { page_table.Rows.Add(dt.Rows[s + (pageindex * page_size)].ItemArray); } } catch { } } msg += " 当前第" + (pageindex + 1).ToString() + "页"; } dv = page_table.DefaultView; } else { dv = dt.DefaultView; msg = "共1页," + dt.Rows.Count.ToString() + "条"; msg += " 当前第" + (pageindex + 1).ToString() + "页"; } return dv; } else { msg = "没有数据!"; return null; } } Form中调用: Code private DataTable GetDicData()//获取所有据 { BLLB_CommunitDIC bcdicBll = new BLLB_CommunitDIC(); if (trvDic.SelectedNode != null) { if (trvDic.SelectedNode.Parent == null) { return null; } else { int areaid = Convert.ToInt32(trvDic.SelectedNode.Tag); return FCT.Common.PublicMethods.ConvertToDataSet(bcdicBll.GetAll(areaid)).Tables[0]; } } else return null; } //根据页索此获取数据 private void InitData(int pageindex) { DataTable dt = GetDicData(); string msg; if (dt != null && dt.Rows.Count > 0) { dgrvDic.AutoGenerateColumns = false; dgrvDic.DataSource = Public.CustomerPager.GetPagerForView(dt, 10, pageindex, out msg); toolStripLabel18.Text = msg; } } Code 分页事件#region 分页事件 private void toolStrip7_ItemClicked(object sender, ToolStripItemClickedEventArgs e) { if (e.ClickedItem.Tag != null) { this.Cursor = Cursors.WaitCursor; int _currentPageIndex = 1; DataTable dt = GetDicData(); int pagecount = 0; if (dt != null) pagecount = Public.CustomerPager.GetPageCount(dt.Rows.Count, 10); if (toolStripTextBox6.Text != "") { try { _currentPageIndex = Convert.ToInt32(toolStripTextBox6.Text); } catch { _currentPageIndex = 1; } } switch (e.ClickedItem.Tag.ToString()) { case "First": _currentPageIndex = 1; break; case "Prev": _currentPageIndex = _currentPageIndex - 1; break; case "Next": _currentPageIndex = _currentPageIndex + 1; break; case "Last": _currentPageIndex = pagecount; break; default: this.Cursor = Cursors.Default; break; } InitData(_currentPageIndex - 1); if (_currentPageIndex == 1) { toolStripTextBox6.Text = "1"; this.toolStripButton25.Enabled = false; this.toolStripButton26.Enabled = false; this.toolStripButton27.Enabled = true; this.toolStripButton28.Enabled = true; } else { if (_currentPageIndex < pagecount && _currentPageIndex >= 1) { toolStripTextBox6.Text = _currentPageIndex.ToString(); this.toolStripButton25.Enabled = true; this.toolStripButton26.Enabled = true; this.toolStripButton27.Enabled = true; this.toolStripButton28.Enabled = true; } else if (_currentPageIndex == pagecount) { toolStripTextBox6.Text = pagecount.ToString(); this.toolStripButton25.Enabled = true; this.toolStripButton26.Enabled = true; this.toolStripButton27.Enabled = false; this.toolStripButton28.Enabled = false; } else { this.toolStripButton25.Enabled = false; this.toolStripButton26.Enabled = false; this.toolStripButton27.Enabled = false; this.toolStripButton28.Enabled = false; } } this.Cursor = Cursors.Default; } 84 #endregion
在用Think.PHP的时候, 发现它的数据库操作非常简单. 直接类似这样的写法就可以了. 于是决定用易语言模仿一个, 这个版本只支持 "生成拼装SQL", 下次准备结合ad0o对象. 允许直接操作数据库 制作这么一个东西的初衷是为了 "更快更高效的开发程序", 我们往往在SQL上耽搁了太多时间. 并不是它难. 而是难以维护 难以修改. [子文本替换拼装], [字符串拼装].... 这些都用过. 一旦比较长的sql 改懂就比较麻烦 这个类喜欢你能喜欢. ------------------------------------------------------ 这个模块是用之前我写的简单键值对, 是用 数组+自定义数据类型 弄的. 可以替换掉 其实我早就想换了. 相对以前的版本 [增加] Coun t() [增加] To p() [修复] pag e() 分页出现负数 [更新] 抛弃用"类自身" 克0隆, 怕有什么问题.  改用特定方法设置内容 [更新] 简单键值对 2016-12-30: 连夜更新了模块,  已经可以绑定ado对象.   直接操作数据库. 实现几乎完全一样的操作, 除不是若类型语言, 对数据类型的苛刻要求.  无法直接返回数据.   其他基本上差不多了 这个版本暂时不开源, 想体验的朋友可以加群  178569305 2016-12-30: [废除] 简单键值对, 改 "自定义数据类型->数组" [废除] 生成组装SQL [革命] 增加 "绑定adodb连接件对象", "绑定adodb记录集对象" [革命] 增加 "调试模式"  用于快速定位错误 [增加] 增加 读写模式,  "插入", "更新", "读取" 用重复的代码, 改下读写模式就OK~ [革命] 改 "SqlModel" 为 "DbModel" [废除] val_Single  小数型 (可以直接用Val_double 双精度替代) [废除] val_All 自定义内容,  可以用在  DbModel->data("字段名", "我是内容")  参数2 替代 [增加] RecordCount (取记录数),  FieldCount (取字段数)

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧