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

← →
st0rm © (2005-07-07 16:11) [0]

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

← →
zx © (2005-07-07 16:36) [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;

Клонирование связанных таблиц в Access`e! Найти похожие ветки