如何做到按照要求随机从SQL数据库中读出记录啊,谢谢.

Question

你可以使用ADO技术来对数据库来进行查询和更新操作!

Answer 1

比方说你的数据库为：MyBase；表名为：Mytable;要随机取Table1里的记录
………………………………
var
  Q:TQuery;
  icount,RanNum,Range:Integer;
begin
  Q:=TQuery1.Create(Self);
  Q.DatabaseName:='MyBase';
  Q.SQL.Text:='select count(*) from Mytable';
  Q.Open;
  Range:=Q.Fields[0].Value;
  Q.Free;
  Randomize;
  RanNum:=Random(Range);
  Table1.First;
  for icount:=0 to RanNum do
     Table1.Next; 
  //到此Table1已经指向了随机记录
  ………………………………
end;