Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.072 c
9-89090
Mover
2003-04-21 13:34
2003.10.27
RPG: Интересное задание, помогите!!!!


8-89407
D.J.Star
2003-06-27 11:07
2003.10.27
Как воспроизвести Sound из базы данных?


1-89324
Tommy
2003-10-16 17:39
2003.10.27
И Опять stringGrid...


1-89283
MVova
2003-10-14 12:05
2003.10.27
Макрос для исходника


3-89181
RealShip
2003-10-08 15:16
2003.10.27
Ошибка