Ошибка программы по работе с БД!?

[TeleSky]

Здравствуйте, ранее написал программу на Delphi 7, а запустить ее на Delphi XE4 не получается, выпадает одна ошибка:
http://yadi.sk/d/eF0cBQ669CCzi
... Подскажите что это может быть за ошибка, как ее поправить в Delphi XE4 для работы программы с базой... и вообще что вы посоветуете, стоит ли переходить на Delphi XE4...!? Сама программа:
http://yadi.sk/d/UHDIawXc9CDhn
Спасибо!

[Stilet]

Эта ошибка всего лишь говорит о том что таблица не открыта. Нужно в режиме отладки выяснить где она выпадает и прописать там метод открытия.

вообще что вы посоветуете, стоит ли переходить на Delphi XE4...!?

Ответь себе - какая тебе разница какая версия Делфи, если ты не знаешь как отлаживать, как исправлять подобные ошибки?

[TeleSky]

Я ранее никогда не встречался с подобной ошибкой, при запуске программы через Delphi просто показывается окно ошибки и все... Подскажите, помогите пожалуйста поправить ошибку! Спасибо!

[Stilet]

XE имеет особенность, которой не было у ее предшественников - она компилирует программу не в каталог с исходниками а в другой каталог, путь к которому прописан в настройках проекта. Сама база у тебя должна лежать рядом с экзешником.
Пожалуй это единственное, что может быть причиной твоей проблемы судя из исходников.

[Serge_Bliznykov]

XE имеет особенность, которой не было у ее предшественников - она компилирует программу не в каталог с исходниками а в другой каталог, путь к которому прописан в настройках проекта.

Откуда такая информация?
по крайней мере в Delphi 5 такая возможность (компилировать exe в другой каталог) есть!

[Stilet]

Откуда такая информация?

Из опыта. По умолчанию в профиле стоит что-то типа ${project}\Debug\Win32\
Конечно никто не мешает поменять путь, но учитывать эту особенность обязательно
Особенно в данном (автора) случае :

  object ADOTable1: TADOTable
    Active = True
    ConnectionString =
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='#1041#1072#1079#1072'.mdb;Persist Se' +
      'curity Info=False'
    CursorType = ctStatic
    Filtered = True
    AfterPost = ADOTable1AfterPost
    AfterDelete = ADOTable1AfterDelete
    TableName = #1051#1102#1076#1080
    Left = 160
    Top = 2
  end