记录集内随机取记录的代码

2016-02-19 12:29 1 1 收藏

清醒时做事，糊涂时读书，大怒时睡觉，无聊时关注图老师为大家准备的精彩内容。下面为大家推荐记录集内随机取记录的代码，无聊中的都看过来。

【 tulaoshi.com - Web开发】

%
' Moving to random record - Steven Jones' Extension
If Not(记录集名称.bof and 记录集名称.eof) Then
' reset the cursor to the beginning
If (记录集名称.CursorType 0) Then
记录集名称.MoveFirst
Else
记录集名称.Requery
End If

记录集名称_totalrn = -1
记录集名称_totalrn = 记录集名称.RecordCount ' ony works on some recordsets, but much faster
If (记录集名称_totalrn = -1) Then ' and if it didn't work, we still have to count the records.

' count the total records by iterating through the recordset
记录集名称_totalrn=0
While (Not 记录集名称.EOF)
记录集名称_totalrn = 记录集名称_totalrn + 1
记录集名称.MoveNext
Wend

' reset the cursor to the beginning
If (记录集名称.CursorType 0) Then
记录集名称.MoveFirst
Else
记录集名称.Requery
End If

End If

' now do final adjustments, and move to the random record
记录集名称_totalrn = 记录集名称_totalrn - 1
If 记录集名称_totalrn 0 Then
Randomize
记录集名称.Move Int((记录集名称_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%

来源:https://www.tulaoshi.com/n/20160219/1601002.html

看过《记录集内随机取记录的代码》的人还看了以下文章更多>>

从Microsoft Sql Server 2005中返回有一定顺序的记录集

标签：编程语言网络编程

摘要：应用SqlServer2005开发也已经有一段时间了，但是很多时候都是把SqlServer2005当做SqlServer2000来用，因此很多SqlServer2005的新特性我都没有用到，有一个原因就是要兼容SqlServer2000的用户。新特性出来的当然就要用于实际当中，要想知道SQLServer2005的新特性可以参看微软网站的What's New in SQL Server 2005？，特性有很多...

随机访问Recordset的一条记录

标签： ASP

假设这个数据表有一个唯一的ID字段，并至少有一条记录。随机存取其中一条记录的方法是非常简单的，可以分为四步： 1、取得记录总数n。 2、把所有的ID号存储到一个数组中 3、产生一个不大于n的随机数m 4、从数组中取出第m个ID号，查询数据表，取得记录数据。下面是部分代码： $#@60;% set conn = Server.CreateObject(‘ADODB.Conn...

在记录集中加入判断使之灵活

标签： ASP

在应用中，有时候会要求按照日期来排列数据，并且还会需要简单的按日期来检索数据，比如在页面上加入一个跳转菜单，包含数据的日期列表，然后选择日期后传递日期参数跳转。这种做法在没有日期的时候应该显示哪一天的数据呢？通常会用“DATE()”作为没有参数情况下的选择，就是显示当天的数据，但如果当...

mysql 复制记录实现代码

标签：编程语言网络编程

sql 代码如下： INSERT INTO `table` ('id','aa','bb','cc') SELECT 'id','aa','bb','cc' FROM `table` (WHERE .....) Tips: 代码如下： /** * 复制新纪录的时候,可能要更新id或者是部分数据(假设id自增加的情况) * * text_aa 为固定值 ,可在脚本调用中赋变量值如($aa) * 注意'text_aa' 与 `cc` 的区别 ,一个是数据,一个是字段 **/ I...

VC执行一个不带参数的存储过程,返回一个记录集:

标签：编程语言网络编程

VC执行一个不带参数的存储过程,返回一个记录集: m_pRecordSet.CreateInstance("ADODB.Recordset"); #ifdef _DEBUG if (m_pRecordSet == NULL) { AfxMessageBox("RecordSet 对象创建失败! 请确认是否初始化了COM环境."); return; } #endif ASSERT(m_pRecordSet != NULL); CStri...

查看更多精彩>>