Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #6  
Старый 06.05.2012, 22:25
killmore killmore вне форума
Прохожий
 
Регистрация: 06.05.2012
Сообщения: 5
Репутация: 10
Хорошо

Код:
var i2,cnt2:integer;
begin
begin
  ADOQuery5.SQL.Add('UPDATE nalich SET nalichie=nalichie-:nal1 WHERE ID_KNIGI=:ikn');
  ADOQuery5.ParamCheck:=true;

  ADOQuery2.Open;
  cnt2:=ADOQuery2.RecordCount-1;

  ADOQuery1.First;
  adotable1.Open;
      for i2 := 0 to cnt2 do
      begin
      ADOtable2.Active:=true;
      ADOtable2.open;
      adoquery5.Parameters.ParamByName('nal1').Value:=adoquery2.FieldByName('koltov').Value;
      adoquery5.Parameters.ParamByName('ikn').Value:=adoquery2.FieldByName('ID_KNIGI').Value;
      ADOQuery5.ExecSQL;
      ADOQuery2.Next;
  end;
ADOQuery5.SQL.Clear;
 ADOtable2.close;
 adoquery2.close;
 end;
end;

типо заработало
Ответить с цитированием
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:08.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025