[NY__]

Есть 3 таблицы на форме и в базе, которые нужно обновить. После выполнения следующего кода на форме остаются 3 таблицы, которые превращаются каждая в одну единственную пустую ячейку.
Что я делаю не так? Я в первый раз работаю с базами, поэтому ищу самые простые варианты.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

procedure change_db(t_l:string; t_f, t_b, s_q:integer); {t_l - название материала  t_f - новое значение в ячейке таблицы tank_f  t_b - новое значение в ячейке таблицы tank_b  s_q - номер записи, совпадает во всех 3-х таблицах} var i,j,g:string; begin      {ADOQuery3 отображает на форме таблицу, которую надо обновить       ADOQuery3 -  select * from tank_f; }       i:='UPDATE tank_f SET tank_f.free = :t_f WHERE (((tank_f.tank)=:s_q))';     form1.ADOQuery3.SQL.Text:=i;     Form1.ADOQuery3.ExecSQL;          {ADOQuery5 отображает на форме таблицу, которую надо обновить       ADOQuery5 -  select * from tank_b; }   j:='UPDATE tank_b SET tank_b.busy = :t_b WHERE (((tank_b.tank)=:s_q))';     form1.ADOQuery5.SQL.Text:=j;     form1.ADOQuery5.ExecSQL;       {ADOQuery4 отображает на форме таблицу, которую надо обновить     ADOQuery4 -  select * from tank_liquid; }   g:= 'UPDATE tank_liquid SET tank_liquid.liquid = :t_l WHERE (((tank_liquid.tank)=:s_q))';     form1.ADOQuery4.SQL.Text:=g;     form1.ADOQuery4.ExecSQL; end;   procedure add_to_H1(x:integer); var i:integer; begin for i:=low(tank_f) to high(tank_f) do begin if (x>0) and (tank_b[i]=0) and (tank_f[i]=50) then begin x:=x-tank_f[i]; tank_b[i]:=tank_f[i];           t_b:=tank_b[i]; tank_f[i]:=0;                   t_f:=tank_f[i];                                 sq:=i;   change_db(material,t_f,t_b,sq); //material - глобальная переменная end;   end;   end;

Admin: Пользуемся тегами!

[Marvel]

ADOQuery3,4,5 - эти компоненты у вас отображают таблицы через SELECT, но когда вы заменяете SELECT на UPDATE, то естественно таблицы пропадают, обновляйте компонентом ADOCommand из вкладки ADO:

Код:

1 2 3 4 5 6

ADOCommand1.CommandText := '<b><font color="Navy">UPDATE таблица1 SET поле=значение WHERE поле=значение</font></b>'; ADOCommand1.Execute;   ADOCommand1.CommandText := '<b><font color="Navy">UPDATE таблица2 SET поле=значение WHERE поле=значение</font></b>'; ADOCommand1.Execute; <font color="Navy">// и т.д.</font>