7492
社区成员
关于建立在access数据上的随机抽取
关于建立在access数据上的随机抽取
就是类似抽奖软件。请指教如何和数据库连接，及如何随即抽取。我是菜鸟，请详细指教
就是类似抽奖软件。请指教如何和数据库连接，及如何随即抽取。我是菜鸟，请详细指教
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
WangYang123 2003-05-20
我是初学。
for i=1 to n n为中奖用户的个数.
rs.move rndnumber(i-1)
.....
'以下就是你对该用户的具体数据库操作.可以看上面的帖子,或者看看以前数据库操作的帖子.
next i
接到哪里。如果在主界面，可填写，请问如何定义。
再问，如何将结果显示在listview中，请解释。
for i=1 to n n为中奖用户的个数.
rs.move rndnumber(i-1)
.....
'以下就是你对该用户的具体数据库操作.可以看上面的帖子,或者看看以前数据库操作的帖子.
next i
接到哪里。如果在主界面，可填写，请问如何定义。
再问，如何将结果显示在listview中，请解释。
自由之眼 2003-05-19
通过我给你的函数rnds
你能得到一个获奖用户的编号数组.
然后通过循环将用户的值取出.
for i=1 to n n为中奖用户的个数.
rs.move rndnumber(i-1)
.....
'以下就是你对该用户的具体数据库操作.可以看上面的帖子,或者看看以前数据库操作的帖子.
next i
你能得到一个获奖用户的编号数组.
然后通过循环将用户的值取出.
for i=1 to n n为中奖用户的个数.
rs.move rndnumber(i-1)
.....
'以下就是你对该用户的具体数据库操作.可以看上面的帖子,或者看看以前数据库操作的帖子.
next i
自由之眼 2003-05-18
一个简单的数据随即抽取程序。你应该先分析它的难点。
我想1。数据随即抽取
2。数据库的取值
关于抽奖，你可以随机抽取得数据库中的行号，然后它就是中奖用户。
象1的解决办法（使用随机数）
public sub rnds(number as integer,icount as integer) ‘随机抽取n个中奖人的数据的函数
dim rndnumber(number) as integer
dim i as integer
dim j as integer
dim rndint as integer
for i=1 to number setp 1
rndint = int(icount*rnd()+1) '随机抽取从1-icount,这里有一个技巧，你可以使用结果集的rs.recordcount属性作为抽奖的总人数。
rndnumber(i) = rndint
for j=1 to i-1 '寻找是否有重复
if rndint = rndnumber(j) then
i=i-1
exit for
end if
next j
next i
end sub
以下是数据库操作的函数
Public Function M_Access(M_AccessName As String)
Dim M_temp As String
Dim M_Error As String
On Error GoTo ine
Set conn = New Connection
Set rs = New ADODB.Recordset
M_temp = ""
M_temp = App.Path + "\" & M_AccessName & ";"
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_temp & ";"
Set rs = conn.Execute("select * from 数据库表名")
dim strRsCount as integer '记录用户个数
strRsCount=rs.recordcount
call rnds(1,strRsCount) '中奖的假设只有一人,从数据库的人数中抽取
rs.Close
conn.Close
GoTo inerr
ine:
M_Error = "数据库错误号：" & Err.Number & " 错误内容：" & Err.Description
MsgBox M_Error, , "错误信息"
inerr:
Set rs = Nothing
End Function
我想1。数据随即抽取
2。数据库的取值
关于抽奖，你可以随机抽取得数据库中的行号，然后它就是中奖用户。
象1的解决办法（使用随机数）
public sub rnds(number as integer,icount as integer) ‘随机抽取n个中奖人的数据的函数
dim rndnumber(number) as integer
dim i as integer
dim j as integer
dim rndint as integer
for i=1 to number setp 1
rndint = int(icount*rnd()+1) '随机抽取从1-icount,这里有一个技巧，你可以使用结果集的rs.recordcount属性作为抽奖的总人数。
rndnumber(i) = rndint
for j=1 to i-1 '寻找是否有重复
if rndint = rndnumber(j) then
i=i-1
exit for
end if
next j
next i
end sub
以下是数据库操作的函数
Public Function M_Access(M_AccessName As String)
Dim M_temp As String
Dim M_Error As String
On Error GoTo ine
Set conn = New Connection
Set rs = New ADODB.Recordset
M_temp = ""
M_temp = App.Path + "\" & M_AccessName & ";"
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_temp & ";"
Set rs = conn.Execute("select * from 数据库表名")
dim strRsCount as integer '记录用户个数
strRsCount=rs.recordcount
call rnds(1,strRsCount) '中奖的假设只有一人,从数据库的人数中抽取
rs.Close
conn.Close
GoTo inerr
ine:
M_Error = "数据库错误号：" & Err.Number & " 错误内容：" & Err.Description
MsgBox M_Error, , "错误信息"
inerr:
Set rs = Nothing
End Function
WangYang123 2003-05-18
请解释如何和access进行数据读写，请回答。谢谢。
WangYang123 2003-05-18
请问如何编写中奖人员数，即中奖人数是可以编辑的。如何保存抽取的结果。谢谢。
招标采购评审专家（机构）随机抽取系统_V2.25_标准版.rar 系统可以方便地从专家、监督员库中的一组或几组中随机抽取指定数量的专家、监督员，支持一个项目中多个采购类别（如专业类、经济类、法律类、监督员、其他类别）的反复多次抽取。具有补抽专家等功能，因各种原因抽选...
数禾云上数据湖最佳实践 2. 云上自建CDH 3. 云上混合架构 4. 阿里云第一代数据湖 4.1. 什么是数据湖 4.2. 阿里云数据湖设计 4.2.1. 阿里云数据湖整体架构 4.2.2. 统一存储和元数据管理 4.2.3. 多EMR多OSS桶设计 4.2.4. 分布式调度系统设计 ...
利用一条SQL从表中抽取一定数据 利用一条SQL语句从数据库Table表中随机获取N条记录，各数据库的SQL语句略有不同，如下：1、MySqlSelect * From TABLE Order By Rand() Limit N以上代码效率不高，自己对1000条数据表随机取10条的测试结果为耗时0.125...
关于数据分析：你想知道的都在这里！ 本篇学习整理笔记来源于：简书@功彬eleven、《谁说菜鸟不会数据分析》、公众号：杜王丹、公众号：数据分析。在原作者的基础上进行整理分类，将本篇分为：数据分析的概念、做数据分析的原因、...
大一计算机考试access知识点,全国计算机二级Access考试知识点 Access是一款数据库应用的开发工具软件，其开发对象主要是Microsoft JET数据库和Microsoft SQLServer数据库。...查询是Access处理和分析数据的工具，它能够将多个表中的数据抽取出来，供用户查看、统计、分析...
【python数据挖掘课程】二十九.数据预处理之字符型转换数值型、标准化、归一化处理 这是《Python数据挖掘课程》系列文章，前面很多文章都讲解了数据挖掘、机器学习，这篇文章主要讲解数据分析预处理中字符特征转换为数值特征、数据标准化、数据归一化，这都是非常基础的工作。最后通过KNN实现KDD CUP...
关于KDD99入侵检测数据集的FAQ 测试数据和训练数据有着不同的概率分布,测试数据包含了一些未出现在训练数据中的攻击类型,这使得入侵检测更具有现实性。 在训练数据集中包含了1种正常的标识类型normal和22种训练攻击类型,如表1-1所示。另外有14种...
17.1 自然语言处理中文本数据增强方法 文章目录1、方法综述2、同义词替换2.1 基于近义词表的替换2.2 基于词向量的替换2.3 MASK语言模型的替换2.4 非核心词替换3、 回译4、 加入随机噪声4.1 改变语法形式4.1.1、单词级别语法变换4.1.2、句子级别的语法树...
Hadoop大数据分析及数据挖掘 读书笔记（1） 从数据中“淘金”，从大量数据（文本）中挖掘出隐含的、未知的、对决策有潜在的关系、模型和趋势，并用这些知识和规则建立用于决策支持的模型，提供预测性决策支持的方法、工具和过程，这就是数据挖掘。 它是利用...
自然语言处理领域的数据增广方法 1.摘要 本文介绍自然语言处理领域的数据增广方法。数据增广（Data ...真实应用情景中，经常会出现缺乏标注数据、数据分布不均衡导致模型鲁棒性差、模型性能不佳的问题，而数据增广能在一定程度上解决这些问题。
ORACLE数据库数据类型 LONG RAW数据类型在其它数据库系统中常被称为大二进制类型（BLOB），它可以用来存储图形、声音视频数据，尽管关系型数据库管理系统最初不是为它们而设计的，但是多媒体数据可以存储在BLOB或LONG RAW类型的字段内。...
数据分析个人笔记 数据分析 一、 Jupyter Notebook Jupyter Notebook 有两种键盘输入模式。编辑模式，允许你往单元中键入代码或文本；这时的单元框线是绿色的。命令模式，键盘输入运行程序命令；这时的单元框线是灰色。 1、 命令模式 ...
02数据采集与操作 •常用格式的本地数据读写 •Python的数据库基本操作 •数据库多表连接 •爬虫简介 •BeautifulSoup解析网页 •爬虫框架Scrapy基础 •Logistic 回归 •实战案例：获取国内城市空气质量指数数据 常用格式的本地数据...
MADlib——基于SQL的数据挖掘解决方案（1）——数据挖掘入门 一、什么是数据挖掘 数据挖掘（Data Mining），也叫数据开采、数据采掘等，是从大量的、不完全的、有噪声的、模糊的、随机的实际应用数据中，自动提取隐含在其中的、人们事先不知道的，但又是潜在有用的信息的过程...
Kdd9数据集 KDD是数据挖掘与知识发现（Data Mining and Knowledge Discovery）的简称，KDD CUP是由ACM（Association for Computing Machiner）的 SIGKDD（Special Interest Group on Knowledge Discovery and ...
大数据涉及的概念汇总，数据分析师岗位的技术要求 由于在数据驻留（在Hadoop集群上）时执行数据处理，因此在使用Impala时，不需要对存储在Hadoop上的数据进行数据转换和数据移动。 使用Impala，您可以访问存储在HDFS，HBase和Amazon s3中的数据，而无需了解...
KDD 99数据集的应用 KDD是数据挖掘与知识发现（Data Mining and Knowledge Discovery）的简称，KDD CUP是由ACM（Association for Computing Machiner）的 SIGKDD（Special Interest Group on Knowledge Discovery and ...
