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

[ара]

а нужно ли добавлять параметры?

[OlegVE]

См. выше добавки и правки.

[ара]

В принципе запрос работает. Но записи сразу не изменяются. Приходится выходить из программы и уже только после следующего запуска данные уже изменены(((

[OlegVE]

Добавьте после строки вышеприведенного кода

qry1.Free;

следующие строки

ВашЗапросИлиТаблицаККоторомуПривязанDBGrid.Close;
ВашЗапросИлиТаблицаККоторомуПривязанDBGrid.Open;

Если у Вас DBGrid, если нет - другие компоненты тоже к чему-то привязаны.

[ара]

У меня DBGrid, он отражает таблицу PrichodTable:TADOTable ее мы закрываем?

DataModule1.PrichodTable.Close;
  DataModule1.PrichodTable.Open;

Так тоже не работает.

Не ту таблицу закрывал. Все работает, спасибо!

Доброго времени суток! Возвращаюсь опять к теме. Запрос оказывается работает не правильно! Создаю новую накладную, новый приход товара, в результате в поле Ostatok появляются неправильные цифры, если делаю приход одной какой то позиции, остаток увеличивается сразу во всех. Подскажите, пож, что не так в запросе!?????

procedure TPrichodForm.PrichButtonClick(Sender: TObject);
var
  qry1: TADOQuery;
begin
if MessageBox(0,'Вы действительно хотите приходывать товар?','Внимание!', MB_YESNO or mb_iconquestion)=mrYes then
 begin
  qry1 := TADOQuery.Create(nil);
  qry1.Connection := DataModule1.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=Tovarn_pozicia.Ostatok + Prichod.[Kol-vo] ';
  qry1.ExecSQL;
  qry1.Close;
  qry1.Free;
  DataModule1.Tovarn_pozTable.Close;
  DataModule1.Tovarn_pozTable.Open;
 end;

end;

Я так понял, что к Остатку у меня добавляется новый запрос + запрос предыдущий! Что-то в коде неправильно? Или надо добавить WHERE?

Ты запарил уже чат тут разводить! Еще раз и удалю тему!

[Serge_Bliznykov]

если делаю приход одной какой то позиции, остаток увеличивается сразу во всех.

А Вы попробуйте в своём коде найти, где именно Вы задаёте эту самую "одной какой то позиции"! Нет?! Вот именно! Поэтому добавляются ВСЕ строчки, которые есть в таблице Приход.
Вам нужно указать в запросе

.....where Prichod.id_tovarn_pozicia = ТутВашаIdПозиция

p.s. кстати, у Вас в коде есть несколько безвредных - но абсолютно бесполезных строк:

  qry1 := TADOQuery.Create(nil);
  qry1.Connection := DataModule1.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=Tovarn_pozicia.Ostatok + Prichod.[Kol-vo] ';
  qry1.ExecSQL;
  qry1.Close;
  qry1.Free;

[ара]

Прошу прощения! Объясните, пожалуйста, что такое

ТутВашаIdПозиция

. Можно пример?

[Serge_Bliznykov]

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

Прошу прощения! Объясните, пожалуйста, что такое . Можно пример?

нет, нельзя!
как я могу написать пример, если я не знаю, где Вы берёте позицию прихода.

Создаю новую накладную, новый приход товара, в результате в поле Ostatok появляются неправильные цифры, если делаю приход одной какой то позиции, остаток увеличивается сразу во всех.

Выделенный текст Вы писали?! Покажите, как Вы делаете приход одной какой-то позиции... Тогда я Вам покажу, как эту самую позицию вставить в запрос
(хотя, мне кажется, что в моём примере выше достаточно наглядно видно, куда надо вставлять ID позиции...)

[ара]

Есть таблица Prichod_nakladnaja, создаю в ней новую запись. С ней связана подчиненная таблица Prichod, в этой таблице есть поле id_tovarn_pozicia(его я заменил поисковым полем), вводим товарную позицию, количество товара. Таблица Prichod связана с таблицей Tovarn_pozicia через id_tovarn_pozicia. В таблице Tovarn_pozicia есть поле Ostatok. Плюсую его с Количеством в Приходе. Так и приходую.
Если не очень понятно и правильно описал, гляньте, пожалуйста на 1 стр. схему данных. все таблицы Аксес отображают Гриды...

[ара]

Подскажите, что надо писать вместо точек???

DataModule1.PrichodQuery.SQL.Add('UPDATE Prichod INNER JOIN Tovarn_pozicia ON Prichod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia SET Tovarn_pozicia.Ostatok=Tovarn_pozicia.Ostatok + Prichod.[Kol-vo] ');
  DataModule1.PrichodQuery.SQL.Add('WHERE Prichod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia AND Tovarn_pozicia.Name=:Name');
  DataModule1.PrichodQuery.Parameters.ParamByName('Name').Value:=.......;