ВЫЧИТАНИЕ ПОЛЕЙ ИЗ РАЗНЫХ БД

[=master=]

Да какие шутки?
Если вы в 3 постах и 2 строчек кода за 2 дня ничего не поняли, то найм програмиста единственно верное решение.

[ggod]

Сообщение от =master=

Да какие шутки?
Если вы в 3 постах и 2 строчек кода за 2 дня ничего не поняли, то найм програмиста единственно верное решение.

если бы мне до программирования не было дела я бы попросил фрилансеров а сам вышивал бы крестиком или еще чем нибудь.Мне не только результат выполнения нужен а понять как это делать что бы не возникали проблемы в дальнейшем. и я примерно представляю как сделать, но не знаю как это все связать

нужны 2 цикла что то типо:
пока не конец 1 таблицы делать
пока не конец 2 таблицы делать
если id(1 таблицы)=id2(2 таблицы) то
1 таблица.кол-во=1 таблица.кол-во-2 таблица.кол-во

ну или что то подобное...

[ggod]

begin
adotable2.First;
adoquery2.First;
while not adotable2.Eof do
idz:=ADOtable2.FieldByName('ID_KNIG I').AsInteger;
begin
while not adoquery2.Eof do
begin
idz2:=ADOquery2.FieldByName('ID_KNI GI').AsInteger;
if idz=idz2 then
begin
adotable2.FieldByName('nalichie').A sInteger:=adota ble2.FieldByName('nalichie').AsInte ger-adoquery2.FieldByName('koltov').AsI nteger;
end;
adoquery2.Next
end;
adotable2.Next;
end;

end;

вот что у меня пока вышло но он не останавдивается ..

[ggod]

добавил еще 1 запрос с sql
UPDATE nalich
SET nalichie=nalichie-:nal1
WHERE ID_KNIGI=:ikn

begin
 adoquery2.open;
 adotable2.Open;
 adotable2.First;
 adoquery2.First;
while not adoquery2.Eof do
      begin
      adoquery5.Open;
      adoquery5.Parameters.ParamByName('nal1').Value:=adoquery2.FieldByName('koltov').Value;
      adoquery5.Parameters.ParamByName('ikn').Value:=adoquery2.FieldByName('ID_KNIGI').Value;
      adotable2.Post;
      adoquery5.Close;
      adoquery2.Next
      end;
end;
close;
oformzakaz.Show;
end;

выдает 2 ошибки
1.Текущий поставщик не поддерживает возврат нескольких наборов записей в результате выполнения одной операции
2.ADO: Сommand text does not return a result set

[ggod]

Сообщение от =master=

Да какие шутки?
Если вы в 3 постах и 2 строчек кода за 2 дня ничего не поняли, то найм програмиста единственно верное решение.

я говорил про это:

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;

и ни каких фрилансеров просить не надо было