[marales]

Вообщем мне надо при нажатии кнопки в ado table перешла запись на случайное число. Например в табл. курсор на первой записи в таблице, нажимаю на кнопку и курсор переходит на случайную строчку записи, например перешла на 5 запись. просто подскажите код перехода по записям. спасибо

[Viajero]

посмотри
http://www.delphisources.ru/forum/sh...4842#post84842

Не совсем понятно что имеется в виду

table перешла запись на случайное число

Если переход на случайную запись, то необходимо, чтобы таблица имело числовой ключ (если не имеет, то создать), находить значение ключа случайным образом, и делать переход по Locate.

[marales]

Это совсем не то. Задача простая. Мне нужен всего лишь код переход на случайную запись при нажатии кнопки на форме, при условии что бд подключена все табл. открыты просто в переменную записать номер текущей записи и перейти на случайную строчку таблицы

Код:

t1:= form3.ADOTable1.RecNo

Правильно я записал номер текущей записи в переменную или нет?
а как перейти на случайную запись?

[Viajero]

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

[Ildar-tsr]

Мне нужен всего лишь код переход на случайную запись при нажатии кнопки на форме

Можно попробовать следующее:

Код:

form3.ADOTable1.RecNo:= Random(form3.ADOTable1.RecordCount-1);

[marales]

Сообщение от Ildar-tsr

Можно попробовать следующее:

Код:

form3.ADOTable1.RecNo:= Random(form3.ADOTable1.RecordCount-1);

Спасибо то что надо! а почему -1?

[Ildar-tsr]

Ох запарился. RecNo с единицы начинается так что вы абсолютно верно подметили. Не нужно там -1!!!

С утра кофе надо пить побольше! Так как random может выдать 0, то самым правильным будет решение

Код:

form3.ADOTable1.RecNo:= Random(form3.ADOTable1.RecordCount-1)+1;