Рандомно заполнить столбец(

[gred]

Чтот непойму в чём ошибка может кто подскажет

Randomize;
a[1]:='1а';
a[2]:='1б';
a[3]:='2а';
a[4]:='2б';
a[5]:='3а';
a[6]:='3б';
a[7]:='4а';
a[8]:='4б';
a[9]:='5а';
a[10]:='5б';
a[11]:='6а';
a[12]:='6б';
a[13]:='7а';
a[14]:='7б';
a[15]:='8а';
a[16]:='8б';
a[17]:='9а';
a[18]:='9б';
a[19]:='10а';
a[20]:='10б';
a[21]:='11а';
a[22]:='11б';

  for i:=1 to 22 do
  begin
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.ADD('update xstudent set класс=:a where Номер=:i '); - тут я чтот запутался
ADOQuery3.Parameters.ParamByName('a').Value :=a[random(22)];
ADOQuery3.Parameters.ParamByName('i').Value :=inttostr(i);

ADOQuery3.Active:=true;
end;

[Serge_Bliznykov]

уж сколько раз твердили миру:
если в запросе данные получаются (т.е. выполняется оператор SELECT) — то выполняем Query.Open (или, что абсолютно тоже самое Query.Active := true; )
иначе, если идут операции по изменению данных
( delete / update / alter ...) — то выполняем Query.ExecSQL;

p.s. кстати, у Вас записи в xstudent в поле "класс" могут и повторяться...