[SnowLeopard]

Добрый день!
Суть проблемы - необходимо сделать так, чтобы из БД типа .mdb из одного столбца бралось два рандомных не повторяющихся значения и чтобы они записывались в две переменные, которые будут нужны в дальнейшем.

[Black Raider]

В чем проблема то?

Код:

1 2 3 4 5 6

ClientDataSet.RecNo:=random(ClientDataSet1.RecordCount+1); k:=ClientDataSet1.fieldbyname('ПОЛЕ').asInteger; repeat ClientDataSet.RecNo:=random(ClientDataSet1.RecordCount+1); l:=ClientDataSet1.fieldbyname('ПОЛЕ').asInteger; until k<>l;

[SnowLeopard]

Возможно ли сделать это не через ClientDataSet, а через ADO компоненты (у меня на форме ADOTable1, ADOConnection1 и DataSource1)?

[Black Raider]

Да
ADOTable потомок класса DataSet
Просто замени ClientDataSet на ADOTable

[SnowLeopard]

Ошибку выдает((( "аргументы имеют неверный тип, вылезают за рамки диапазона или конфликтуют друг с другом"
На этой строке
ADOTable1.RecNo:=random(ADOTable1.RecordCount+1);

[Black Raider]

попробуй без +1?

[SnowLeopard]

Пробовал. То же самое.

[Black Raider]

в таблице есть записи?
весь код можно?

[SnowLeopard]

В таблице полно записей (более 800). Всё подключено. Код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm3.FormShow(Sender: TObject); begin ADOTable1.ConnectionString :=  'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +  extractFileDir(ParamSTR(0)) +  '\words.mdb;Mode=ReadWrite;Persist Security Info=False'; ADOTable1.Active := true; ADOTable1.RecNo:=Random(ADOTable1.RecordCount+1); a:=ADOTable1.FieldValues['word'].asstring; <i>{repeat ADOTable1.RecNo:=random(ADOTable1.RecordCount+1); b:=ADOTable1.FieldValues['word']; until a<>b; }</i> end;

[TOJluK]

Все- таки надо так:

Код:

1	ADOTable1.RecordCount-1

Да и вообще метод притащили за уши, походу еще из парадокса. Так будет проще:

Код:

1 2 3

SELECT TOP 2 Field_name FROM Table_name ORDER BY Rnd(Key_field)

[SnowLeopard]

-1 не пашет. Сейчас попробую SQL-запрос.
Так. Подскажите, пожалуйста, как записать два выбранных значения в переменные?

[Black Raider]

adoquery1.first;
a:=adoquery1.fieldbyname('Fieldname').asInteger;
adoquery1.next;
b:=adoquery1.fieldbyname('Fieldname').asInteger;

[SnowLeopard]

Огромное спасибо, господа!!! Весьма признателен!)))