Имеется БД с овер 15 000 записями в одной таблице (id_студента, фото студента). БД - FireBird.
Нужно таблицу с фото перекопировать в локальную БД (Оракл). Выполняю средствами DELPHI
И вроде как все получается. Но...
при попытках вставки сразу всех записей последовательно я получаю сообщение " Out of memory". Собственно оно и понятно, почему.
1. Как можно вставить все записи? Или поделить количество, допустим на 3, и и вставлять в цикле?
2. Как сделать проверку на дубли? Сейчас поле id_студента, - первичный ключ, но при копировании вставилось несколько сот пустых стотрок, так как видимо, сначала вствляется пустая строка, потом значение.
Если значение уже есть, то возникает исключение "unigue constant", вставка не происходит, но пустая строка остается.
3. Если делить на 3 цикла, то программа после вставки 10 000 завысает. Вероятно, происходят утечки памяти. КАк это проверить избежать?
Вот код вставки
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
FDQuery1.first;
while not (FDQuery1.Eof) do
begin
try
qGET_PERS_FOTO.Open;
qGET_PERS_FOTO.Insert;
qGET_PERS_FOTO.FindField('foto').Assign(FDQuery1.FieldByName('foto'));
qGET_PERS_FOTO.FindField('pers_id').Assign(FDQuery1.FieldByName('pers_id'));
qGET_PERS_FOTO.Post;
FDQuery1.Next;
Except
On e: Exception Do
begin
if Pos('unique constraint', e.Message)> 0 then
begin
FDQuery1.Next;
end;
end;
end;
