люди помогите с ошибкой- не знаю че делать!

[Anticler]

Помогите пожалуйста - диплом через неделю!!!

У меня прога с базами данных. Ввел данные - работала нормально, потом дополнил данные - все пипец!

Суть такова:
Кнопка - при помощи SQL с условием вводит суммы в таблицу.
Потом начала вылетать ошибка:
"Access violation at address 4BE34726 in module 'IDAPI32.DLL'. Read of address 00000000."

Прверял по строкам вылетала на Query.Open;
А теперь вылетает на Query.Clear;

IdAPI32.dll - библиотека из BDE.
Даже незнаю, что и делать. На всех нормальных компах такая же фигня.

[Лелик_1044]

это ничего не говорит

[Anticler]

ВОТ КОД

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.add('SELECT COUNT( id ) as kol FROM "admn.DB" Adm ');
Query1.SQL.add('WHERE (Mes ='+ IntToStr( DBGridEh2.Col-4)+' ) AND (Adm."Year" = '+ ComboBox2.Text+')');

>Query1.Open; // ************сначала здесь выбивало



Query1.Close;

>Query1.SQL.Clear; // ************ А ТЕПЕРЬ ЗДЕСЬ

Query1.SQL.add('SELECT COUNT( Adm.NorDok ) KOL');
Query1.SQL.add('FROM "admn.DB" Adm ');
Query1.SQL.add(' INNER JOIN "NorDocN.db" Nordocn ON (Adm.NorDok = Nordocn.Doc)');
Query1.SQL.add(' INNER JOIN "NorDocC.db" Nordocc ON (Nordocn.Id_cat = Nordocc.Id) ');
Query1.SQL.add('WHERE (Adm."Year" = :yr) and (Adm.Mes = :ms) ');
Query1.SQL.add('GROUP BY Nordocc.Id, Nordocc.Id ');
Query1.Prepare;
Query1.ParamByName('yr').AsInteger := StrToInt( ComboBox2.text);
Query1.ParamByName('ms').AsInteger := DBGridEh2.Col-4;
Query1.Open;

В Query ничего не выставлял все опции по умолчанию (кроме алиаса)

[Лелик_1044]

1) лучше делать так query1.sql.text:='select * from example';
2) может ошибка в запросе?

[SergeyS]

хз в чем проблема, но характер сообщения об ошибке наводит мысль на то, что у тебя что-то с BDE.
Вариант 1. Попробуй запустить свою программу на другой машине. Если ошибка исчезнет, копай в этом направлении.
Вариант 2. Попробуй сменить BDE на ADO. BDE считается устаревшей технологией и borland включает её в дистрибутив только для совместимости.

[Anticler]

1. на всех нормальных компах пробовал - все тоже самое!
2. на сменить Bde на Ado??
трудновато будет - все таблицы пределывать надо .

может вообще ошибка компилятора?

[SergeyS]

трудновато будет - все таблицы пределывать надо

а много ли таблиц?

[YurikGL]

Bde - выкинуть... пользовать, например, Ado.
ошибка говорит о том, что кто-то пытается оперировать со свойствами несуществующего (т.е. либо еще не созданного, либо удаленного) объекта.

[Anticler]

Люди заработало !!!
Причем, абсолютно ничего не менял !!!
Даже не знаю что могло повлиять. Неделю парился и тут вдруг работает без ошибок.
Запускаю старый ехе - эта ошибка, а новый только что откомпилированный - как часики!!
Хотя странно все это... я ведь на многих компах его копилировал а результата небыло.

[Игорь Акопян]

rebuild all?