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;
我需要的是每次启动软件的时候，能真正做到随机提取数据库中的数据，盼望高手解答啊；最好是能留下代码啊！ 现在已经能做到随机；但是每次启动的时候和上次是一样的；

Answer 1

数据库的随机函数是伪随机，你可以在外面生成好随机数，作为变量xx代入sql
SQL.Add('select top 3 姓名 from olderm order by '+xx);

Answer 2

begin
dm.ADOQuery2.Active:=false;
dm.ADOQuery2.SQL.Clear;
dm.ADOQuery2.SQL.Add('select top 3 姓名 from olderm order by newid()');//order by newid()
dm.ADOQuery2.Active:=true;
edit1.Text:=inttostr(dbgrid1.DataSource.dataset.RecordCount);
end;

Answer 3

不知你的edit1.Text:=？要取什么？看看下面我的代码吧
Randomize;
dm.ADOQuery2.recNo := (random(dm.ADOQuery2.RecordCount - 1) + 1);