Проблемка небольшая !!!

← →
031178 (2008-03-22 08:48) [0]

У меня есть 2 таблицы, в одной хранится 2 поля, т. е. наименование товара и артикул (_Cod_Art - артикул, _Name_Tovar - наименование товара) и вторая таблица, куда необходимо ложить данные из первой таблицы (_Name_Predm - артикул, _Predm - сюда нужно положить данные из _Name_Tovar, первой таблицы). Бегать по запися долго, очень долго, если сделать вот так :

ADODataSet4.First;
for jj := 0 to ADODataSet4.RecordCount - 1 do
begin
ADODataSet5.First;
for kk := 0 to ADODataSet5.RecordCount - 1 do
begin
if ADODataSet5["_Cod_Art"] = ADODataSet4["_Name_Predm"] then
begin
ADODataSet4.Edit;
ADODataSet4["_Predm"] := ADODataSet5["_Name_Tovar"];
ADODataSet4.Post;
end;
ADODataSet5.Next;
end;
ADODataSet4.Next;

Может кто подскажет ? Как это сделать быстро и правильно ?
Заранее все спасибо !!

← →
Savek (2008-03-22 09:51) [1]

With ADODataSet4 do begin DisableContrils; First; while not eof do begin If AdoDataSet5.Locate("_Cod_Art",FieldByName("_Cod_Art").AsString,[]) then begin Edit; FieldByName("_Predm"]).AString := ADODataSet5. FieldByname("_Name_Tovar").AsString; Post; end; Next; end; EnableControls; end;

← →
031178 (2008-03-22 10:44) [2]

Пишет так :

Обновление влияет на слишком большое количество строк

Правила оформления вопросов читаем.

Проблемка небольшая !!! Найти похожие ветки