Всем доброе время. Я уже не однократно подымал этот вопрос тут. Наверно я не корректно его задавал. Попробую еще раз описать суть вопроса:
Есть 2-е базы. Одна на MS SQL2012 вторая на Fierbirde 2.5 В базе данных MS SQL2012 я не могу добавить тригер или вложенную процедуру. Т.к. это приводит к тому, что программа которая работает с MS SQL2012 перестает работать, сразу при запуске программы программы выдает сообщение что база не соответствует. Это программа куплена в германии.
Вторая база на Fierbirde 2.5, и моя программа работает именно с этой базой.
Проблема заключается в том, что мне нужно переносить данные из базы MS SQL2012 в Fierbirde 2.5. ЭТО Я СДЕЛАЛ.
Но не получается сделать следующий этап. НУЖНО ДОПИСЫВАТЬ (ПЕРЕНОСИТЬ) ИЗ ТАБЛИЦЫ MS SQL2012 НОВЫЕ СТРОКИ В ТАБЛИЦЫ Fierbirde 2.5 БЕЗ ДУБЛИРОВАНИЯ.
ПОДСКАЖИТЕ КАК ЭТО МОЖНО ОСУЩЕСТВИТЬ?
Мне Yura Ivanov подсказал план действий, но я не силен в SQL и не пойму как это осуществить.
- Выполнить select id from table1 из главной базы
- Загнать эти idшники в хэш-таблицу
- Выполнить select id from table2 из второй базы
- Пробежать по выборке, определить idшники в хэш-таблице как только запись с id не обнаружилась перенести ее.
Согласно примера Yura Ivanov.
ADZakaz.SQL.Text := 'SELECT * FROM VKVORGANGSTUB ORDER by VSX_ID';
ADZakaz.Open;
ADZakaz.First;
SQL_Zakaz1.SQL.Text := 'SELECT VSX_ID FROM BASA$KLAES$ZAKAZ_Z ORDER by VSX_ID';
SQL_Zakaz1.Active := true - нельзя использовать так как такого параметра нет.
while not ADZakaz.Eof do
begin
while SQL_Zakaz1.ParamByName('VSX_ID').AsInteger < ADZakaz.FieldByName('VSX_ID').AsInteger do - тут выдает ошибку.
SQL_Zakaz1.Next;
if SQL_Zakaz1.ParamByName('VSX_ID').AsInteger > ADZakaz.FieldByName('VSX_ID').AsInteger then
//
ADZakaz.Next;
end;
end;
SQL_Zakaz1.Active = false
SQL_Zakaz1.ExecQuery;