Главная страница
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.052 c
14-89537
stone
2003-10-08 15:14
2003.10.27
Клавиша Shift снимет защиту от копирования CD :)


1-89252
Gawk
2003-10-14 16:43
2003.10.27
Как инсталировать сторонний компонент


14-89461
Polevi
2003-10-07 10:53
2003.10.27
узнайте сколько вы должны зарабатывать


6-89434
h@1f-e1f
2003-08-26 19:10
2003.10.27
Проблема с функцией InternetQueryDataAvailable


1-89291
Lam
2003-10-14 10:39
2003.10.27
Компонент