这是博主用在一个项目上的源码片断，无论是速度、均衡性，还是随机度都非常好，当然这更不可能抽到重复记录了。一、在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）。
……
非常抱歉，您的当前状态为游客，因此只能查阅部分内容。要查阅完整内容请登录 或者 注册 。