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

[ggod]

есть 2 таблицы в РАЗНЫХ БД АКСЕСА
в первой есть записи:
ID кол-во
1 20
2 30
3 40
4 90
а во второй:
ID кол-во
2 5
4 30

как осуществить вычитание из поля "кол-во" 1 таблицы из 1 БД, "кол-во" 2 таблицы из 2 БД с одинаковыми ID?(ID не повторяются)

[Serge_Bliznykov]

если я правильно понял Вас, то проще простого

select t1.[кол-во] - t2.[кол-во] from Первая t1, Вторая t2
   where t1.ID = t2.ID

[Аватар]

Серж, я понял, что таблицы в двух разных MDB. В этом случае вообще не вижу возможности в одном запросе это сделать

[=master=]

select t1.[кол-во] - t2.[кол-во] from Первая t1
join Вторая t2 in "C:\second.mdb" on t1.ID = t2.ID

[ggod]

Сообщение от Аватар

Серж, я понял, что таблицы в двух разных MDB. В этом случае вообще не вижу возможности в одном запросе это сделать

да таблицы в разных файлах

Сообщение от Serge_Bliznykov

если я правильно понял Вас, то проще простого

select t1.[кол-во] - t2.[кол-во] from Первая t1, Вторая t2
   where t1.ID = t2.ID

это если таблицы в одном файле.Проблема в том что таблицы в разных файлах и из одного SQL запроса к ним не обратиться

[Аватар]

in конечно симпатично, только из дельфей JET не хочет с этим работать. Пытался с одной таблицей из mdb прописанного в строке соединения, а другой из mdb в in

[=master=]

Написать запрос в аксесе и вызывать как сторед-процедуру.

[ggod]

вчера на другом форуме разбирали копирование из одной бд в другую

var i,cnt:integer;
begin
  {BD1}
  ADOConnection1.Connected:=true;
  {BD2}
  ADOConnection2.Connected:=true;
  ADOConnection2.KeepConnection:=true;
 
  ADOQuery1.Connection:=ADOConnection1;
  ADOQuery2.Connection:=ADOConnection2;
 
  ADOQuery1.SQL.Add('select * from tab');
  ADOQuery2.SQL.Add('insert into tab(f1,..fn) values (:p1,..,:pn)');
  ADOQuery2.ParamCheck:=true;
 
  ADOQuery1.Open;
  cnt:=ADOQuery1.RecordCount-1;
 
  ADOQuery1.First;
  for i := 0 to cnt do
    begin
      ADOQuery2.Parameters.ParamByName('p1').Value:=ADOQuery2.FieldByName('f1').Value;
      {...}
      ADOQuery2.Parameters.ParamByName('pn').Value:=ADOQuery2.FieldByName('fn').Value;
      ADOQuery2.ExecSQL;
      ADOQuery1.Next;
    end;
end;

ну а с вычитанием строк я думаю что то типо цикла в циклк нужно...

[=master=]

ggod да, еще веб сервер прикрутите, комп проабгрейдить тоже не помешает, диски в рейд, ..., ну и что бы уж совсем на верняка, то наймите програмиста.

[ggod]

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

ggod да, еще веб сервер прикрутите, комп проабгрейдить тоже не помешает, диски в рейд, ..., ну и что бы уж совсем на верняка, то наймите програмиста.

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