Поиск совпадающих значений полей в 2-х таблицах

[Прик]

Наш "спор" топикстартеру до фонаря. Может кончим ерундой заниматься?
У меня свое видение мира, у вас свое.

[AladdinZean]

тот самый абстрактный ключ, действительно часто вводимый разработчиками, является излишним и противоречит нормализации БД, в которой атрибут таблицы функционально полно зависит от ее ключа. Т.е. в данном случае от товара и заказа. А от вашего абстрактного ключа он зависит ТОЛЬКО потому, что Вы его ввели в таблицу принудительно.
Многие-ко-многим: ключ данного отношения - это 2 ID ее составляющих.
никаких абстракций.

[=master=]

AladdinZean У Прик свое видение мира, не мешайте ему.

[wsv515]

Сообщение от Прик

А можно поинтересоваться: ЗАЧЕМ?
Не проще ли добавить запись с этим же товаром и нужным новым количеством. Так поступают все нормальные разработчики БД.
Если, конечно, это не учебное задание, в котором безнаказанно можно творить различные безобразия

Да, действительно проще добавить, да и удобнее так.

Сейчас делаю приход товара, ситуация схожа, опять же нужно проверить, если товар уже есть в номенклатуре, то добавить приходное количество, если товара в нмклтре нет, то завести его..

AladdinZean , С SQL нет.

Киньте плиз АДОзапрос конкретным Дельфийским кодом, что то вроде:
в таблице Tovar столбец 'Key' сравнить со столбцом 'Id' в таблице PrihodList если они имеют одинаковые значения то в поле Kolvo таблицы Tovar добавить значение из Edit1.text если нет то (пропишу свой код)

[Аватар]

Сейчас делаю приход товара, ситуация схожа, опять же нужно проверить, если товар уже есть в номенклатуре, то добавить приходное количество, если товара в нмклтре нет, то завести его..

Не делают так. Даже если есть номенклатура и точно такая цена, то еще остается дата поступления, контрагент и многое другое, которое в одну кучу не свалишь. Каждый документ прихода/расхода заносится в базу вполне самостоятельно, а уже с помощью запросов можно получить и карточку номенклатуры, и движение за период, и остатки на заданную дату и прочее

[wsv515]

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

Не делают так.

Да Бог с ним что не делают, тут такое дело что нужно сделать именно так ,лишь бы сработало.

ДОколупался я в sql'е до чего то близкого

procedure TFormMain.BitBtn2Click(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('select TovarJ.key, PrihodList.id from TovarJ, PrihodList where Tovarj.key=prihodlist.id');
fdm.ADOQuery1.open;
end;

ну выдает он мне в ДБГрид два солбца с совпадениями, а каким образом составить условие чтобы все прописалось\проверилось в таблицы как мне хочется ?

[wsv515]

fDm.ADOQuery1.SQL.Clear;
fDm.ADOQuery1.SQL.Add('update TovarJ set Kolvo='+fDm.TPrihodList.Fields[6].AsString+' where TovarJ.key=PrihodList.id');
fDm.ADOQuery1.open;

Выдает ошибку:

raised exception class EOleException with message 'Параметр Kolvo не имеет значения по умолчанию'. Process stopped bla bla bla

Он имеет ввиду что столбец Kolvo пустой ?

[Serge_Bliznykov]

в глаза бросилась ошибка:

fDm.ADOQuery1.SQL.Add('update TovarJ set Kolvo='+fDm.TPrihodList.Fields[6].AsString+' where TovarJ.key=PrihodList.id');
fDm.ADOQuery1.open;

это допустимо только для вызова запросов с select

для всех запросов, связанных с изменением данных (и структур): Delete, Update, Insert нужно вызывать метод ExecSQL:

fDm.ADOQuery1.ExecSQL;

p.s. суть темы/запроса я не смотрел, про остальное ничего сказать не могу...

[wsv515]

fDm.ADOQuery1.sql.Clear;
fDm.ADOQuery1.SQL.Add('update TovarJ set Kolvo=(:x) values (:x) where Tovarj.key=PrihodList.id');
fdm.ADOQuery1.Parameters.ParamByName('x').Value := fdm.TPrihodList.Fields[6].Text;
fdm.ADOQuery1.ExecSQL;

'Неправильно определен объект Parametr. Предоставлены несовместимые или не полные сведения'

[wsv515]

Сделал, работает, но распространяется на последнюю строку в TPrihodList, то что выше остается без изменений.

fdm.ADOQuery1.sql.Clear;
fdm.ADOQuery1.SQL.Add('update TovarJ set Kolvo=:p where Tovarj.key=:pp');
fdm.ADOQuery1.Parameters.ParamByName('p').Value := fdm.TPrihodList.Fields[6].Text;
fdm.ADOQuery1.Parameters.ParamByName('pp').Value := fdm.TPrihodList.Fields[1].Text;
ShowMessage(fDm.ADOQuery1.SQL.Text);

fdm.TTovarJ.Post;
fDm.TPrihodList.Post;
fdm.ADOQuery1.ExecSQL;

Что прописать чтобы запрос прогнался по всему столбцу в таблице TPrihodList ?