OleException при корректировке записи в MySQL

[abtat]

Уже много лет (сначала на С++6 и базой на Paradox 7, 9, затем на RadStudio C++ Builder2010 и базой на MySQL) у меня работает мое приложение по учету договоров с издателями на книги и контролю их реализации. Договор на книгу описывают две основные таблицы: Contract и Content, изданий – таблицы Edition и та же Content.
Для ускорения получения справок в таблицах договоров и изданий включены показатели объема книги и количества произведений в ней, хотя это и ведет к некоторой избыточности базы.
В модулях предусмотрена возможность корректировки количества произведений и объема договора или издания при изменении его состава, для чего используется достаточно очевидная процедура типа

	if (BooksModule->ContractTbl->Locate("ContractKey", ObjectKey,  SearchOptions))
		{
		BooksModule->ContractTbl->Edit();
		BooksModule->ContractTblContractVolume->Value += BooksModule->ContentTblVolume->Value;
		BooksModule->ContractTblContractItems->Value +=1;
		ContractCanPost = true;
		BooksModule->ContractTbl->Post();
		ContractCanPost = false; 
		}

Ошибок при работе этой процедуры не возникало.
Из-за переноса базы данных на другие СУБД и некоторых ошибок в начальном периоде эксплуатации, в записях о старых книгах встречаются ошибки объема и состава. Я решил просканировать таблицу Content и в цикле скорректировать поля Items и Volume в записях таблицы Contract следующей процедурой:

      while (!BooksModule->ContentTbl->Eof)
	{
	if (BooksModule->ContentTblVolume->IsNull)
		BookVolume = 0;
	else
		BookVolume = BooksModule->ContentTblVolume->Value;
	if (ObjectKey != BooksModule->ContentTblObjectKey->Value)
		{
		if (ObjectKey > 0)
			{
			if (BooksModule->ContractTbl->Locate("ContractKey", ObjectKey, SearchOptions))
				{
				BooksModule->ContractTbl->Edit();
				BooksModule->ContractTblContractVolume->Value = NewVolume;     //*
				BooksModule->ContractTblContractItems->Value = NewItems;         //*
				ContractCanPost = true;
				BooksModule->ContractTbl->Post();
				ContractCanPost = false;
				}
			else
				{
				ShowMessage("Запись договора с ContractKey = " + IntToStr(ObjectKey) + " не найдена");
				}
			}
			NewItems = 0, NewVolume = 0;
			ObjectKey = BooksModule->ContentTblObjectKey->Value;
		}
	NewItems +=1;
	NewVolume += BookVolume;
	BooksModule->ContentTbl->Next();
	}

Если две строчки, помеченные справа //*, существуют, то программа на первом же договоре выставляет ошибку класса EOleException “Не удается найти строку для обновления. Некоторые значения могли быть изменены со времени последнего чтения“. Даже одна строчка корректировки Items вызывает ошибку. Проверял вариант, когда поправки не копятся в отдельных переменных, а суммируются прямо в полях ContractTblContractVolume и ContractTblContractItems. Та же самая ошибка.
Никак не могу понять, в чем может быть причина. В том же модуле, на несколько сотен строк кода раньше при регистрации новой записи таблицы Content эти же поля таблицы Contract корректируются без ошибок кодом, приведенным в начале сообщения. Помогите, кто может!

Я проверял на двух PC под 32-разрядными Windows XP и Windows 7, использовал Rad Studio C++ Builder 2010, MySQL 5.5.25, mysql-connector-ODBC-5.1.6. Поля для Items – short, для Volume – Currency 5.2.

[Stilet]

А можно узнать, почему ты решил не прибегать в SQL?

И ремарка: BooksModule->ContractTbl->Post(); из цикла я бы вынес вообще. и ContractCanPost убрал бы.

[Vapaamies]

Уже много лет

Вступление многообещающее. Попкорн не пью, запасся чаем. Clipper неистребим.

[abtat]

[QUOTE=Stilet;1553718]А можно узнать, почему ты решил не прибегать в SQL?

Не хотелось писать SQL выражения UPDATE для каждого типа правки, тем более, что создание новых записей каждой таблицы через состояние INSERT компонента TADOTable и одиночная корректировка через состояние EDIT того же компонента идут без замечаний, а в цикле ничего не получается

а относительно организации цикла это несущественно, так как я пробовал разные варианты организации, но это не помогло. Проверил также вместо ->Value использовать ->AsCurrency для объема и ->AsInteger для количества. Также не помогло. Я хотел бы понять, можно ли вообще использовать компонент TADOTable из закладки dbGo для корректировки базы, если да, то с какими ограничениями, если нет, то зачем этот компонент. В документации по MySQL и по C++ Builder я ничего найти не смог.

[abtat]

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

---------------

ну и что, профессионалы, что-нибудь мне посоветовали бы, а то только зубоскальство