Текущий архив: 2003.10.27;
Скачать: 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 вся ветка
Текущий архив: 2003.10.27;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.019 c
