Запрос на выборку случайной записи (Delphi, Access)

[s4shk4]

Прошу помощи по написанию запроса на выборку случайной записи из таблицы.

Способ
SELECT TOP 1 * FROM таблица ORDER BY RND(id);
не подходит. Записи следуют в случайном порядке, но каждый раз одинаково. Может быть вместо RND есть что-либо более эффективное?

Заранее благодарю.

[Serge_Bliznykov]

коллега,
1) не соглашусь с Вами!
Удалите TOP 1 и посмотрите. порядок каждый раз разный!

2) поймите, какой бы алгоритм не был предложен, он всё равно не решит Вашу проблему - получать записи без повторов!
А вот то, что я предложил - РЕШИТ!
для этого добавляйте в строковую переменную поочерёдно выпавшие ID-шники
и указывайте их в запросе:

if sExcludeList<>'' then sExcludeList := sExcludeList + ',';
sExcludeList := sExcludeList + Query1.FieldByName('ID').AsString;

тогда запрос будет:

if sExcludeList='' then SQL.Text := 'SELECT TOP 1 * FROM таблица ORDER BY RND(id);'
else 
SQL.Text := 'SELECT TOP 1 * FROM таблица WHERE ID NOT IN ('+sExcludeList+
   ') ORDER BY RND(id);'

[s4shk4]

Спасибо конечно, но не изменилось абсолютно ничего...
*Печалька*

[pray_driver]

а что если

n := random(Query1.Recordcount);
Query1.First;
For i := 1 to n do
    Query1.Next;
ShowMessage(Query1.Fields[0].asString);

(идем с начала таблицы до записи со случайным номером, затем выводим значения аттрибутов)

[SERG1980]

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 randomize;
 i:=random(form1.ADOQuery1.RecordCount);
 form1.ADOQuery1.First;
 form1.ADOQuery1.MoveBy(i);
end;

[Stilet]

а что если

Ага. А если там 20 триллионов записей? Представляешь тормоза?
Надежнее получить одну а не все

with AdoQuery do begin
 sql.text:='SELECT count(*) FROM таблица';  open; Randomize;
 sql.text:='SELECT * FROM таблиц where id='+Random(Fields[0].AsInteger); close;  open;
...
end;

Примерно так, единственное что если ID автоинкрементен могут быть дыры от удалений, это тоже нужно учесть.

[s4shk4]

2 pray_driver, SERG1980
Вопросы идут одни и те же.

2 Stilet
Ошибочка вылазит:

List index out of bounds (0)

[Cyn4uk]

А не проще ли узнать сколько всего записей в таблице, далее выкинуть рандом от 1 до кол-ва записей и вытянуть нужную?

[Stilet]

А не проще ли узнать сколько всего записей в таблице, далее выкинуть рандом от 1 до кол-ва записей и вытянуть нужную?

А я и представил пример,это делающий.

Ошибочка вылазит:

А у меня не вылазит.
Показывай как написал. И строку где вылазит, ато телепатор включать не хочется для такой суперпростейшей задачи.

[s4shk4]

ololo:=('SELECT * FROM Questions where id='+IntToStr(Random(QueryQuestion. Fields[0].AsInteger))+';');