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

[Serge_Bliznykov]

у Вас в базе нумерация от единицы.
поэтому надо:

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

но я уже устаю повторять...
Вашей проблемы с повтором вопросов это НЕ РЕШИТ!
Неужели это так сложно понять?!

[s4shk4]

Вашей проблемы с повтором вопросов это НЕ РЕШИТ!
Неужели это так сложно понять?!

А что решит?

[Serge_Bliznykov]

здесь только два подхода возможны.
1-й. хранить (и накапливать) ID ранее выпавших ответов. в запросе указывать, что эти ID уже не выбирать.
(это конструкция в select ... where ... ID not in (списокРанееВыпавшихID)) пример я давал ранее.

2-й подход. Выбрать N нужных записей в датасет (хоть через тот же TOP ... )
и выбирать вопросы уже не из БД, а брать по очереди из датасета.

второй способ может Вам показаться проще. но это так только до тех пор, пока Вы не созреете, что у каждого вопроса должен быть уровень сложности. Иначе получается не игра "Кто хочет стать миллионером", а какая-то угадайка... Вопрос на миллион может оказаться проще, чем самый первый вопрос игроку. В настоящей игре сложность вопросов идёт по нарастающей...

[s4shk4]

пример я давал ранее

У меня вопросы в таком же порядке и выводились.

А про сложность вопросов я уже говорил. Сначала так бы доделать.

Все-таки я решил наконец включить мозг и все получилось, как ни странно :3

Делюсь:

Randomize;
rn:=random(6)+1;
QueryQuestion.SQL.Add('SELECT * FROM Questions WHERE id='+IntToStr(rn)+';');

[Serge_Bliznykov]

rn:=random(6)+1;

я не знаю, расстрою ли я Вас.
но при таком раскладе вопрос седьмой ( с id=7) никогда не выпадет!
надо
rn:=random(7)+1;

кроме того, если Вы удалите любую строчку в таблице, Вас ждут неприятные сюрпризы...

[s4shk4]

но при таком раскладе вопрос седьмой ( с id=7) никогда не выпадет!

Тогда ведь может выпасть восьмой? А его нет.

[Serge_Bliznykov]

Тогда ведь может выпасть восьмой? А его нет.

ну, ну почитайте же описание функции random(X)!
ну совсем же не сложно!

Random returns a random number within the range 0 <= X < Range.

random(число) возвращает числа от нуля до этого числа (НЕ ВКЛЮЧИТЕЛЬНО)
т.е. random(7) может вернуть 0, 1, 2, 3, 4, 5, 6
соответственно, random(7) + 1 может быть 1, 2, 3, 4, 5, 6, 7
но никак не восемь, ни девять и не 32! Понимаете?

[s4shk4]

Дошлооо :3

А по поводу Вашего счетчика id.. Что я не так делаю?

 if ololo='' then QueryQuestion.SQL.Text := 'SELECT * FROM Questions WHERE id='+IntToStr(rn)+';'
 else
 QueryQuestion.SQL.Text := 'SELECT * FROM Questions WHERE ID NOT IN ('+ololo+') ORDER BY RND(id);';

 QueryQuestion.Active := true;

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

...

Все, разобрался

[Serge_Bliznykov]

Вы же, надеюсь, понимаете, что ololo должна в себе накапливать все выбранные ID-шники?! (кстати, можете в отладке последить за тем, что в эту строчку попадает...) Поэтому эта строчка должна быть объявлена ГЛОБАЛЬНО (а ещё лучше - сделать свойством формы (можно public, можно private )
Думаю, что в этом Ваша ошибка!
Это раз.


второе. поясните, а зачем Вы выбираете ВСЕ ЗАПИСИ?! Куда делся TOP 1 ?

третье. Подскажите, пожалуйста, а какова цель этой Вашей разработки? Учебная задача (ну там лаба, курсовик и т.п.) или самообучение? Или получение реальной игры?

[s4shk4]

Поэтому эта строчка должна быть объявлена ГЛОБАЛЬНО

Вы чуток опоздали, как раз именно это до меня и дошло.

Подскажите, пожалуйста, а какова цель этой Вашей разработки? Учебная задача

Она самая. Но слава б-гу, сроки не поджимают.

поясните, а зачем Вы выбираете ВСЕ ЗАПИСИ?! Куда делся TOP 1 ?

Отображается-то один вопрос так и так.