Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Крыша едет! Lookup-поля [D7, MSSQL]


BlackTiger ©   (2003-01-16 20:41:00) 

Че-то у меня, видимо, с головой... Помогите!

D7+MSSQL2000+ADO
Есть тавлица товаров ("Код товара","Название","Код Категории")
Есть таблица с категориями.

Делаю Lookup-поле для ввода категории товара. Все всегда работало,
и вдруг - опаньки! При попытке ввода данных (ДЛЯ НОВОЙЗАПИСИ), эта зараза выкидывает "Unknown exception". Хотя, если редактировать уже существующую запись - все проходит нормально.

З.Ы.: фигею, просто, пока писал (ну и проверял кое-что сразу) вААААще косяки пошли, кончилось все полным "stack overflow".
ВСЕ ЖЕ РАБОТАЛО!!!


BlackTiger   (2003-01-16 22:40:00) [1]

Очень странно!

Я поставил "Stop on Delphi Exceptions" в False и ошибка перестала, вроде, вылезать. Очень странно. Получается в Дельфийских АДОшных компонентах косяков немерено, что ли? А почему тогда в "чистом" проекте было все правильно?


BlackTiger   (2003-01-16 21:28:00) [2]

От крыши уже следа не осталось.

Все те же функции повторил в новом проекте - все работает, в старом - нет. Почему вываливается только при добавлении новой записи, а при редактировании существующей проходит нормально?

При том перестало работать во всех формах проекта сразу.
И дурацкий дебагер вываливается, кстати, совсем в левый код:

try
InitRecord(Buffer);
FieldCount := Fields.Count;
if FieldCount = 1 then
FLookupCursor.Find(GetFilterStr(FieldByName(KeyFields), KeyValues, Partial), 0,
adSearchForward, EmptyParam)
else
begin
for I := 0 to FieldCount - 1 do
begin

Этот код вообще к делу не имеет отношения, насколько я его понял.


Наверх

Титульная страница Поиск, карта сайта Написать письмо