Скачать: CL | DM;

перенос данных   Найти похожие ветки 

← →
rosl   (2003-10-08 03:43) [0]

Уважаемые МАСТЕРА
переношу большое кол-во записей из одной таблицы в другую
переодически выскакивает сообщение (хотя бывает и переносит нормально)
data structure corruption
в чём моя ошибка
переношу так:
while not Module_baza.Q_in.EOF do
begin
Module_baza.Q_in.Next;
Module_baza.T_baza.Insert;
Module_baza.T_baza.FieldByName("name").AsString:=Module_baza.Q_in.FieldByName("name").AsString;
Module_baza.T_baza.FieldByName("cod").AsString:=Module_baza.Q_in.FieldByName("col010").AsString;
Module_baza.T_baza.FieldByName("inn").AsString:=Module_baza.Q_in.FieldByName("col005").AsString;
Module_baza.T_baza.FieldByName("summa").AsString:=Module_baza.Q_in.FieldByName("col009").AsString;
Module_baza.T_baza.FieldByName("procent").AsString:=Module_baza.Q_in.FieldByName("col009 _ 100 _ percent").AsString;
Module_baza.T_baza.FieldByName("nom_plat").AsString:=Module_baza.Q_in.FieldByName("col004").AsString;
Module_baza.T_baza.FieldByName("cod").AsString:=Module_baza.Q_in.FieldByName("code_inc").AsString;
Module_baza.T_baza.FieldByName("data_plat").AsDateTime:=Module_baza.Q_in.FieldByName("col001").AsDateTime;
Module_baza.Q_in.Next;
end;

---

← →
ЮЮ ©   (2003-10-08 05:38) [1]

После завершения цикла Module_baza.T_baza остается в dsInsert.
После цикла добавь
Module_baza.T_baza.Post;
Module_baza.T_baza.FlushBuffers;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c