Добавить данные в таблицу Access

[ара]

Доброго времени суток! Есть БД (схема:схема.jpg). В таблице Tovarn_pozicia хранятся остатки товара по конкретной позиции. В таблицах Prochod (Raschod) соответственно, приходуется и расходуется товар. Подскажите, пожалуйста, как примерно составить запрос к БД, чтобы приходуемый товар прибавлялся к товару в таблице Tovarn_pozicia и там сохранялось новое значение.( С расходом также). Использую Delphi+Access. Заранее спс!

Наверное я не очень правильно изложил суть вопроса. Подскажите, пож., какая конструкция позволит мне сначала сложить значение в таблице Приход товара (Количество) и значение в таблице Товар(Остаток), а затем записать это значение в таблицу Товар (Остаток).?

[artemavd]

Через Insert, а связь между таблицами можно прописать в запросе и используй параметры в запросе.

[ара]

Вы имеете ввиду DataModule1.ADOTable1.Insert ?????

[artemavd]

Нет, я имею ввиду:

     Form2.qry1.Close;
     Form2.qry1.SQL.Clear;
     Form2.qry1.SQL.Text:='insert into jurnal (ПОЛЯ) values(ЗНАЧЕНИЯ ПАРАМЕТРОВ)';
     Form2.qry1.Parameters.ParamByName('ЗНАЧЕНИЕ ПАРАМЕТРА').Value:=Form2.sRichEdit2.Text;
     Form2.qry1.ExecSQL;
     Form2.qry1.Close;

[ара]

А qry1 это -

qry1: TADOQuery;

???

[Stilet]

Да это ADOQuery.

[ара]

А может в этом случае лучше использовать UPDATE? Что будет правильнее?

Еще раз здравствуйте! Возвращаюсь к моей теме. Использую Делфи + Аксес. Мне нужно написать запрос на изменение поля Ostatok в таблице Tovarn_pozicia, поле по умолчанию имеет значение 0. В данное поле надо записать сумму Ostatok и Kol-vo в таблице Prichod.
Начал писать, окончательно запутался:

procedure TPrichodForm.PrichButtonClick(Sender: TObject);
var
  qry1: TADOQuery;
begin
  qry1.close;
  qry1.SQL.Clear;
  qry1.SQL.Text:='UPDATE Prichod INNER JOIN Tovarn_pozicia ON Prichod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia';
  qry1.SQL.Text:='SET Tovarn_pozicia.Ostatok=Prichod.Kol-vo + Tovarn_pozicia.Ostatok';
end;

Посмотрите, пожалуйста, где в запросе что добавить, что исправить, как правильно записать WHERE?
И что надо писать дальше, как указывать параметры? Заранее спасибо

[OlegVE]

Здравствуйте
В два раза пишите qry1.SQL.Text, вторая строка полностью заменяет текст и у Вас остаётся только 'SET Tovarn_pozicia.Ostatok=Prichod.Kol-vo + Tovarn_pozicia.Ostatok'. Тогда уж пишите полностью одной строкой или qry1.SQL.Add. Попробуйте так.
До свидания

[ара]

Исправил:

procedure TPrichodForm.PrichButtonClick(Sender: TObject);
var
  qry1: TADOQuery;
begin
  qry1.close;
  qry1.SQL.Clear;
  qry1.SQL.Text:='UPDATE Prichod INNER JOIN Tovarn_pozicia ON Prichod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia SET Tovarn_pozicia.Ostatok=Prichod.Kol-vo + Tovarn_pozicia.Ostatok';


end;

[OlegVE]

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

Исправил:

procedure TPrichodForm.PrichButtonClick(Sender: TObject);
var
  qry1: TADOQuery;
begin
  qry1 := TADOQuery.Create(nil);

  qry1.ConnectionString := 'Provider=................
или
  qry1.Connection := ADOConnection1;

//  qry1.close;
//  qry1.SQL.Clear;

  qry1.SQL.Text:='UPDATE Prichod INNER JOIN Tovarn_pozicia ON Prichod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia SET Tovarn_pozicia.Ostatok=Prichod.[Kol-vo] + Tovarn_pozicia.Ostatok';

  qry1.ExecSQL;
  qry1.Close;
  qry1.Free;
end;

Добавьте выделенное красным. НО!!! У Вас не устанавливаются в коде ни Connection ни ConnectionString ... только Вы знаете где хотите внести изменения, а qry1 не знает И упустил из вида: Вы не создаёте qry1 := TADOQuery.Create(nil);