Выбор случайной записи

Как в форме отображать записи из таблицы, выбранные случайным образом, а не попорядку. Где, в каком месте прописывается код?
Помогите!!!!!!!!!

0

А что такое 'случайным образом'? Разве 'попорядку' это не случайным образом? Ведь выдача по порядку тоже может случиться. С другой стороны, на компьютере ничего не бывает случайным образом. Настоящая случайность - только в квантовой механике, да в воспаленном воображении.

0

случайным образом - это, например: 100,3,214,5,24, т.е. вопросы отображаются не по порядку, а в разброс

0

Добавить к таблице поле. Заполнить его псевдослучайными числами (см.HELP по Randomize и Rnd). При выводе в форму отсортировать по этому полю.

0

Тогда вас должен устроить датчик случайных чисел. Попробуйте перетасовать записи. Я приведу пример программы, а вы сможете приспособить ее к своему случаю. Программа на vbs, но будет работать и на VBA

0

2 BorisL Элегантый способ, только приходится писать в базу данных

0

На всякий случай уточняю. Заполнение поля нужно выполнять в Событии Открытие(Open) формы (или еще раньше ;-). Можно, конечно, использовать и служебную таблицу с двумя полями: псевдослучайное число(заполняется Вами) и первичный ключ таблицы с вопросами. В общем вариантов много. Удачи

0

Это очень странно, но у меня работает такой каверзный запрос

SELECT id FROM prices ORDER BY rnd(id)

(Access 2000)

rnd без параметра тоже работает, но случайность результата плохая, возможно в этом случае rnd вычисляется один раз как независящий от полей записи.

0

Спасибо всем, кто откликнулся на мою проблему. Обязательно попробую

0

palva, я попробовала и у меня получился вывод чисел в разброс, но они отображаются в отдельном окне, а мне надо, чтоб вопросы в моей форме таким же образом отображались

0

С отображением я швах. С базами Access работаю только из скриптов.

0

2 palva: ИМХУ функция RND без параметра возвращает значение типа Double(т.к. инициализируется системным таймером), т.е. поле тоже должно иметь тип Double, а если у поля тип - целое, тогда нужно передавать в ф-цию диапазон в виде целого числа, иначе можно вообще получить в данном поле одно и то же число(т.е. сортировка по данному полю теряет смысл).

СК! 73!

0

Я заглянул в документацию по Rnd, там написано, что функция возвращает Single. Если задан положительный параметр, то возвращается очередное случайное число. Если параметр не задан, то то же самое. О каком поле вы говорите я не понял. После ORDER BY у меня стоит выражение. Логичнее было бы поставить Rnd без параметров, но тогда обращение к Rnd происходит один раз, по-видимому SQL процессор считает, что раз выражение не зависит от полей записи, то оно будет одно и то же для всех записей. Поэтому мне пришлось поставить параметр. Поскольку в моем случае параметр - положительное число, то это не повлияло на характер работы Rnd, зато вычисление выражения происходит для каждой записи заново. Наверно можно было бы использовать другое подходящее поле, например если имеется pole VARCHAR, которое нигде не равно NULL, то можно было бы написать выражение так:

Rnd(Len(pole)+1)

Наверно перед работой полезно вызвать Randomize, но я не знаю, как это сделать. Randomize в начале работы скрипта никакого влияния на результат не оказывает. По видимому SQL-процессор имеет свой собственный датчик. Если бы Randomize было не процедурой, а функцией, ее можно было бы как-то вызвать внутри SQL предложения. К счастью можно вызвать Rnd с отрицательным параметром и, тем самым, рандомизировать SQLевский датчик. На его вход надо подать результаты работы датчика бейсиковского. У меня такой вариант сработал (Access 2000), то есть сначала я делаю Randomize (в бейсике), а потом формирую SQL-предложение следующим образом:
Лишнюю колонку, которая содержит одно и то же число, я не использую. Такой скрипт выводит записи каждый раз в разном порядке.

0

Значит я попутал с Пасовским Рнд, сорри.
А насчет Randomize в запросе...
Как насчет того чтобы вызывать его из запроса через ф-цию?
Типа:
А эту функцию уже вызывать из запроса.
Статическая переменная flg служит для того чтобы 'рандомизация' происходила только один раз, только надо проверить, сброситься флаг после того как запрос отработает или нет.

СК! 73!

0

А разве можно вызывать функцию бейсика из запроса? Ведь Rnd это функция стандартная для SQL Access, поэтому запрос работает. Даже если можно было бы обратиться к функции из запроса, рандомизировался бы бейсиковский датчик, а не SQLевский. А что мы будем делать, если запрос вызывается из языка си через ODBC? Не будет же запрос в процессе выполнения обращаться к сишной функции.

0

В Акцессе можно вызывать Васиковские ф-ции(см. через 'Построитель выражений'). Но в вышеприведенном коде из запроса вызывается пользовательская ф-ция, а уже она вызывает Рандомизе, именно потому что оная является процедурой и напрямую вызвать ее из запроса не получиться. Как там обстоят дела у 'чистого' SQL-а и Си я ХЗ, т.к. не копенгаген, в достаточной мере, но здесь обсуждался данный вопрос применительно к эхотагу. ИМХУ.

СК! 73!

0

У меня это не заработало. А мои общие соображения это лишь попытка объяснить (себе) почему не заработало. Если у вас это работает, напишите, как выглядит ваш скрипт.

0

Таблица1 состоит из одного поля [CodID].
Вот SQL-строка запроса: 'SELECT Таблица1.CodID, MyRnd() AS Expr FROM Таблица1 ORDER BY Rnd([CodID]);'

Вот функция описаная в модуле:
Все работает. Только что проверил. Заодно выяснил, что статическая переменная лишняя и даже вредная, т.к. функция вызывается все равно всего один раз при вызове запроса и оная переменная теряет смысл.

СК! 73!

0

Наверно у меня не работает из за того, что я запускаю это как VBScript
Говорит, [Microsoft][ODBC Microsoft Acess Driver] Undefined function 'fff' in expression

то же самое сообщает Microsoft JET Database Engine

Получается, что у большого бейсика с SQL более плотный контакт.

Теперь другой скользкий вопрос, выведет ли ваш скрипт записи в разном порядке, если его запустить два раза? То есть, при выполнении Randomize который из двух датчиков рандомизируется?

0

function fff()
^^^^^^^^
Функцию нужно явно объявить как Public, т.е. прописать
Public function fff(), без этого и у меня ругался. Попробуйте, может так заработает. А что касается различности вывода... Запустил запрос несколько раз подряд - именно так и происходит, т.е. порядок вывода разный.

СК! 73!

0