这是博主用在一个项目上的源码片断,无论是速度、均衡性,还是随机度都非常好,当然这更不可能抽到重复记录了。 一、在MS SQL Server 2000中生成随机记录的最好办法: with tk_query do begin Close; sql.clear; sql.Add(select top +inttostr(st_count)+ tk.ID,标准答案 from 题库表 tk); sql.Add(where pid is null and tk.题型=+quotedstr(tx)+ and tk.知识点=+quotedstr(zsd)); sql.add(and tk.难易度=+quotedstr(nyd)+ and tk.课程号=+quotedstr(kcdm)+ order by newid()); Open; end; 注:关键就是 order by newid() 这条语句!随机因子就是从这里产生的。 二、数据库为Access 2000时生成随机记录的最好办法: 由于Access中没有newid()这一随机函数,故要想在Access中直接由SQL语句生成我们所希望的随机记录不太可能,因此我们只好在开发语言中生成合适SQL语句,让Access执行了(博主的开发工具为Delphi)。 //获取题库表中的随机ID,组成一个字符串,类似这样 (3,8,2,25,49,1,7,10,6,83….) //kcdm:课程代码,tx:题型,zsd:知识点,nyd:难易度,t_count:某一题型某一知识点某一难度下的要抽取的题量 function TTest_Srv_RDataForm.Get_Random_ID(const kcdm,tx,zsd,nyd,t_count:string):string; var sl: TStrings; i,ii,kk: integer; begin try Result := ; sl := TStringList.Create; with TADOQuery.Create(nil) do begin try Connection := Adoconnection1; SQL.Text := select ID from 题库表 where pid is null and 题型=+quotedstr(tx)+ and 知识点=+quotedstr(zsd)+ and 难易度=+quotedstr(nyd)+ and 课程号=+quotedstr(Kcdm); Open; while not Eof do begin sl.Add(Fields[0].AsString); Next; end; Close; finally Free; end; end; //end with …. if sl.Count=0 then Exit; for i := 0 to StrToIntDef(t_count,0)-1 do begin kk := sl.Count;//随机因子 Randomize; ii := Random(kk); //取得随机数 if Result= then Result := sl.Strings[ii] else Result := Result+,+sl.Strings[ii]; sl.Delete(ii); //为了避免有可能出现的重复,此ID被抽取过后把它删了 if sl.Count=0 then //如果无题可抽了退出循环 Break; end; Result := (+Result+); //给结果串前后加上(……),最终形成(24,36,5,89,72,3,6,1….)的串样 finally sl.Free; end; end; //=============================================== 课程号,题型,知识点,难易度,题量 function TTest_Srv_RDataForm.Get_Random_Sql(const kcdm,tx,zsd,nyd,t_count:string):string; begin Result := Get_Random_ID(kcdm,tx,zsd,nyd,t_count); if Result <> then Result := select top +t_count+ tk.ID,标准答案 from 题库表 tk where id in +Result else Result := select top +t_count+ tk.ID,标准答案 from 题库表 tk where 1=1 ; end; //以下为调用上述函数生成随机抽题的代码片断 ……. with tk_query do begin Close; sql.Clear; sql.Text := Get_Random_Sql(Kcdm,tx_str,zsd_str,nyd_str,txzsd_count_str); Open; end;
ms sql server和access分别取得随机记录(随机抽题)之完美篇_数据库技巧
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » ms sql server和access分别取得随机记录(随机抽题)之完美篇_数据库技巧
相关推荐
-      sql语句中的判断功能的使用方法
-      sql语句中的判断功能的使用方法
-      SQL语言中去掉小数点有效数字后面的所有0
-      ASP连接各种数据库的代码
-      在sql语句中实现md5功能
-      给access数据库减肥
-      asp连接access数据库代码(2)
-      更改 SQL Server 登录模式