ADO Query Удаление записей

@xVahax · Регистрация: 27.11.2012

Студворк — интернет-сервис помощи студентам

Привет всем. Реализовано удаление из таблиц БД Access (через ADO) путем перебора.
Записей бывает более 100 тыс.

Вот кусок кода:

QCon - это ADOQuery

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
begin
try
QCon.DisableControls; // ставлю чтоб отображение грида не тормозило процесс
PrBar.Position:=0;
PrBar.Max:=spinDO.Value-spinOT.Value; //прогресс бар, спинот и спиндо - спинедиты опред диапазон удаления
 
  For i:=spinOT.Value to spinDO.Value do
    Begin
     QCon.RecNo:=i; // перемещаюсь на номер записи
     QCon.Delete; //удаляю
     PrBar.Position:=i-spinOT.Value; //позиция прогресса
     lbSDel.Caption:='Удаляю: '+IntToStr(Trunc(100*PrBar.Position/PrBar.Max))+'%'; //перевод прогресса в проценты
     Application.ProcessMessages();
    End;
QCon.EnableControls;
  messagedlg('Удаление завершено!',mtConfirmation,[mbok],0);
except
 
end;

Удаляется без тормозов, но останавливается на 9493 записи. Тупо перестает удалять, ни зависаний, ни ошибок...
Что за фигня?

@Waddonator · 14.10.2013, 12:30

Сообщение от xVahax

Удаляю все записи по порядку начиная с заданного порядкового номера по заданный порядковый номер.

Что в вашем понимании "порядковый номер"? У одной и той же записи могут быть разные "порядковые номера", в зависимости от сортировки, фильтра и т.д. Записи в БД могут храниться как угодно. И определять порядковый номер записи относительно ее нахождения в БД в корне неверно.

@xVahax · 14.10.2013, 12:32 **[ТС]**

Сообщение от Waddonator

Что в вашем понимании "порядковый номер"? У одной и той же записи могут быть разные "порядковые номера", в зависимости от сортировки, фильтра и т.д. Записи в БД могут храниться как угодно. И определять порядковый номер записи относительно ее нахождения в БД в корне неверно.

Вы правы, но вопрос: почему 9493?

@northener · 14.10.2013, 12:33

Сообщение от xVahax

Удаляю все записи по порядку начиная с заданного порядкового номера по заданный порядковый номер.

Отсюда и все ваши проблемы. Вы используете то чего на самом деле не существует.

@xVahax · 14.10.2013, 12:36 **[ТС]**

Сообщение от northener

Отсюда и все ваши проблемы. Вы используете то чего на самом деле не существует.

Ну перебрать то просто я их всех могу, а почему тогда во время перебора не могу удалить все что перебрал, а могу удалить именно определенное количество 9493?

@Waddonator · 14.10.2013, 12:36

xVahax, откуда мне знать. Код и БД находится у Вас, а не у меня. Может Вы делаете цикл от 1 до 9493. Или не убрали строку QCon.RecNo:=i (поэтому курсор скачет через записи). Или еще что-то.

@xVahax · 14.10.2013, 12:39 **[ТС]**

Сообщение от Waddonator

xVahax, откуда мне знать. Код и БД находится у Вас, а не у меня. Может Вы делаете цикл от 1 до 9493. Или не убрали строку QCon.RecNo:=i (поэтому курсор скачет через записи). Или еще что-то.

В ADOQuery существует какая нидь ПОМЕТКА записей на удаление. Если пометить а потом удалить помеченные?

@Waddonator · 14.10.2013, 12:51

Сообщение от xVahax

Если пометить а потом удалить помеченные?

Добавьте логическое поле и помечайте это поле. А потом удаляйте все записи в таблице, у которых это поле помечено.

@xVahax · 14.10.2013, 12:55 **[ТС]**

Сообщение от Waddonator

Добавьте логическое поле и помечайте это поле. А потом удаляйте все записи в таблице, у которых это поле помечено.

Буди что так...Хотя лучше уж запросом как вы предлагали...

@mss · 14.10.2013, 14:01

xVahax, наверняка же юзер глазеет в DBGrid, видит там записи, требующие (по его мнению) удаления и способен пометить выделением эти записи прямо в гриде (смежное или несмежное выделение - это уж как ему удобнее)..
Так зачем тогда нужен этот костыль из spin'ов ?
Грид хранит все что выделил юзер в списке закладок DBGrid.SelectedRows - достаточно пробежаться по этому списку, перейти на каждую запись, на которую указывает очередная закладка, и удалить ее.

Этот простейший и очевидный механизм недоступен лишь для однонаправленных наборов записей, но вряд ли это твой случай.

@xVahax · 14.10.2013, 14:35 **[ТС]**

Понял почему на 9493 останавливается. Как программно (но лучше не через реестр) на время работы программы увеличить у Microsoft.Jet.OLEDB.4.0 значение MaxLocksPerFile с значения 9493 до требуемого?

@mss · 14.10.2013, 14:40

Записи удаляешь в dbf ?

@xVahax · 14.10.2013, 14:54 **[ТС]**

Сообщение от mss

Записи удаляешь в dbf ?

Боже упаси работать с таким количеством записей в dbf ! Я с Access 2003 работаю, mdb

Добавлено через 7 минут
исправил в реестре значение MaxLocksPerFile на 500000 и все как надо делается...как теперь его на время программно менять.
Везде пишут вот эту строчку DBEngine.SetOption dbMaxLocksPerFile, 200000, а где это выполнить и как не написано

@mss · 14.10.2013, 14:56

http://msdn.microsoft.com/en-u... 10%29.aspx

Добавлено через 1 минуту

Сообщение от xVahax

Везде пишут вот эту строчку DBEngine.SetOption dbMaxLocksPerFile

Это для DAO, не для ADO.

@xVahax · 14.10.2013, 15:07 **[ТС]**

Сообщение от mss

http://msdn.microsoft.com/en-u... 10%29.aspx

Добавлено через 1 минуту

Это для DAO, не для ADO.

Но смысл то одинаковый

@mss · 14.10.2013, 15:13

http://office.microsoft.com/en... 32169.aspx

@xVahax · 14.10.2013, 15:36 **[ТС]**

Огромное спасибо mss с его ссылкой http://office.microsoft.com/en... 32169.aspx, где указана строка:

Visual Basic
1
ADOConnection.Properties("Jet OLEDB:Max Locks Per File") = 20000

Работоспособная запись в Delphi выглядит так:

Delphi
1
ADOConnection.Properties['Jet OLEDB:Max Locks Per File'].Value:=Требуемое количество записей;

Всем кто помогал разобраться огромное спасибо!

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	14.10.2013, 12:36
	xVahax, откуда мне знать. Код и БД находится у Вас, а не у меня. Может Вы делаете цикл от 1 до 9493. Или не убрали строку QCon.RecNo:=i (поэтому курсор скачет через записи). Или еще что-то. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.10.2013, 14:01
	xVahax, наверняка же юзер глазеет в DBGrid, видит там записи, требующие (по его мнению) удаления и способен пометить выделением эти записи прямо в гриде (смежное или несмежное выделение - это уж как ему удобнее).. Так зачем тогда нужен этот костыль из spin'ов ? Грид хранит все что выделил юзер в списке закладок DBGrid.SelectedRows - достаточно пробежаться по этому списку, перейти на каждую запись, на которую указывает очередная закладка, и удалить ее. Этот простейший и очевидный механизм недоступен лишь для однонаправленных наборов записей, но вряд ли это твой случай. 0

@xVahax 18 / 17 / 0 Регистрация: 27.11.2012 Сообщений: 353
	14.10.2013, 14:35 [ТС]
	Понял почему на 9493 останавливается. Как программно (но лучше не через реестр) на время работы программы увеличить у Microsoft.Jet.OLEDB.4.0 значение MaxLocksPerFile с значения 9493 до требуемого? 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.10.2013, 14:40
	Записи удаляешь в dbf ? 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.10.2013, 15:13
	http://office.microsoft.com/en... 32169.aspx 1