Question

delphi随机读取数据库中的数据（数据库为ACCESS）每次启动时候和第一次一样；请高手解答啊！

目前的代码是这样的：procedure TForm3.Button2Click(Sender: TObject);
begin
dm.ADOQuery2.Active:=false;
dm.ADOQuery2.SQL.Clear;
dm.ADOQuery2.SQL.Add('select top 3 姓名 from olderm order by (id)');
dm.ADOQuery2.Active:=true;
edit1.Text:=inttostr(dbgrid1.DataSource.dataset.RecordCount);
end;
我需要的是每次启动软件的时候，能真正做到随机提取数据库中的数据，不要每次启动都和上次启动的一样，盼望高手解答啊；最好是能留下代码啊！
我的QQ是490520170；如有需要QQ上说明也行；

Answer 1

我用笨办法，每次产生三个随机数x1,x2,x3,然后读取第x1,x2,x3条的记录

Answer 2

select top 3 姓名 from olderm order by newid()

随机取数据的话，最后加order by newid()

既然已经TOP 3了，为什么后面还要取recordcount
不解。。。。

Answer 3

用随机种子
先调用 Randomize;
然后 在调用随机函数生成 Id

Randomize;
Random(dbgrid1.DataSource.dataset.RecordCount);