Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с запросом [D7, IB7.5]


RomanH ©   (2006-04-19 10:45:00) 

Доброго утра мастера. Существуют три таблицы:
Men
MenID MFam MName
1 aa Bb
2 dd cc
TMen
TMenID TMFam TMName
1001 aa Bb
1003 dd cc
TLog
TLogID TLNewID TLOldID
1 1001
2 1003

Пишу такую процедуру, которая должна редактировать таблицу Tlog( поле TLNewId)
В том случае если значения полей таблицы Tmen  такие же как и в таблице Men причем
TLNew=присваивается  то значение которое опять таки же если значение полей таблиц
Men и Tmen совпадают. Нижеприведенная процедура, выбирает только первое значение MenID и записи редактируются  с одним  и тем же MenID. Не переибирая в цикле for select do…

CREATE PROCEDURE BEGIN_REPLICATION
AS
DECLARE VARIABLE MEN_ID INTEGER;
begin
 for select men.menid from men where exists  (select 1 from tmen where (tmen.tmfam=men.mfam and tmen.tmname=men.mname)) into :men_id do
begin
      update Tlog
      set tlog.tloldid=tlog.tlnewid,Tlog.tlnewid=:men_id
      where  tlog.tlnewid in (select tmenid from tmen where exists (select 1 from men
                             where (tmen.tmfam=men.mfam and tmen.tmname=men.mname)));
 end
end
Как мне сделать чтобы в TLNewID записывались те значения MenID, если значение полей
Таблиц Men и Tmen совпадали a TmenID=TLOldID.

Men
MenID MFam Mname
1 aa Bb
2 dd cc
TMen
TMenID TMFam TMName
1001 Aa bb
1003 dd cc
TLog
TLogID TLNewID TLOldID
1 1 1001
2 2 1003


Johnmen   (2006-04-19 11:25:00) [1]

Прочитал три раза. Ничего не понял...:)


Наверх

Титульная страница Поиск, карта сайта Написать письмо