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

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

Клонирование связанных таблиц в Access`e! [D7, Access]

st0rm ©   (2005-07-07 16:11:00) 

Может кто сталкивался с такой проблемой.

---

st0rm   (2005-07-07 16:56:00) [1]

Сидит оператор БД вносит данные, по 15-20 полей заполняет в ручную. И это только по одному объекту, а их очень много. Записи в принципе все одинаковы только в некоторых местах меняют.

Что типа:
procedure TfMain.Cloning(loDataSet : TADOTable);
var
 ssOldID, ssNewID: AnsiString;
 i: integer;
 ssValue: Variant;
begin
 if MessageBoxQuestionYesNo('Клонировать объект '+ loDataSet.FieldValues['Артикул'] +' ?') = ID_YES then
   begin
     ssOldID := fDM.ATtable1.FieldValues['ID'];

     fDM.ATtable1.Append;
     fDM.ATtable1.Post;

     ssNewID := fDM.ATtable1.FieldValues['ID'];

     for i := 1 to fDM.ATtable1.Fields.Count - 1 do
       begin
         ssValue := fDM.ATtable1.Lookup('ID', ssOldID, fDM.ATtable1.Fields[i].DisplayName);
         fDM.ATtable1.Edit;
         fDM.ATtable1.Fields[i].AsVariant := ssValue;
         fDM.ATtable1.Post;
       end;

     CopyingRecordsFromOneIDInAnother(fDM.ATtable2, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable3, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable4, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable5, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable6, ssOldID, ssNewID);
   end;
end;

---

zx   (2005-07-07 16:36:00) [2]

а за чем это??
создавай таблицы заливай данные. какие проблемы?

---

Наверх