var
i: Integer;
fldSource, fldDestin: TField;
begin
ADODataSet2.Edit;
for i := 0 to ADODataSet1.FieldCount - 1 do
begin
fldSource := ADODataSet1.Fields[ i ];
fldDestin := ADODataSet2.FindField( fldSource.FieldName );
if fldDestin <> Nil then
begin
fldDestin.Value := fldSource.Value;
end;
end;
ADODataSet2.Post;
end;
копировать записи из таблицы(ADODataSet) в такую же таблицу
как скопировать запись из одной таблицы в другую (структура записи очень длинная)? (ADODataSet)
Цитата: MishaLukash
как скопировать запись из одной таблицы в другую (структура записи очень длинная)? (ADODataSet)
Смутная постановка вопроса, поэтому задам следующие условия:
1. Структура таблиц одинакова.
2. Таблицы открыты в двух компонентах ADODataSet1 и ADODataSet2.
3. Копируем из ADODataSet1 в ADODataSet2.
Код: