[SnowLeopard]

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

[Black Raider]

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

Код:

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). Всё подключено. Код:

Код:

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;
{repeat
ADOTable1.RecNo:=random(ADOTable1.RecordCount+1);
b:=ADOTable1.FieldValues['word'];
until a<>b;
}
end;

[TOJluK]

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

Код:

ADOTable1.RecordCount-1

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

Код:

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]

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