На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Обязательно указание:
1) типа базы данных (Paradox/Oracle/Interbase и т.п.)
2) способа доступа к базе данных (ODBC/ADO/DAO/BDE и т.п.)
Например: Paradox/BDE, MS Access/ADO

Наиболее часто задаваемые вопросы:
Базы даных для начинающих. Первые шаги. Понятие о BDE.
Переход на клиент-сервер и начала ADO
Приёмы работы с BLOB (OLE/Memo) полями
Запросы и параметры или как избавиться от многих проблем. Проблемы с датами в запросах.
Нужели мне нужно устанавливать BDE? (или почему не работает программа на другом компьютере)
Модераторы: Bas, Rouse_
  
> AV при использовании EhLib
    Всем привет!

    При выборе в TDBLookupComboboxEh пункта запускается обработчик OnChange, который должен загружать в другой TDBLookupComboboxEh список по SQL-запросу:
    ExpandedWrap disabled
      begin
        with AccessData.qrySecond, SQL do
        begin
          Clear;
          dblkcbbehSecond.KeyValue := Null;
          if dblkcbbehFirst.KeyValue <> Null then
          begin
            Text := 'SELECT * FROM Second WHERE First='+IntToStr(dblkcbbFirst.KeyValue);
            Open;
          end;
        end;
      end;
    Для обычного TDBLookupCombobox всё работает чётко (только там вместо OnChange используется OnClick). А вот при использовании TDBLookupComboboxEh вылетает AV во время закрытия программы.
    В чём может быть косяк?
    p.s. Delphi 7 + MS Access

    Исключение вылетает только при закрытии. При срабатывании (в т.ч. многократном) OnChange всё работает как надо, список подгружается.

    В принципе, можно оставить только with + Text := ... + Open (т.е. убрать Clear, ... := Null и if), всё равно будет ошибка...
    vpmultishiftqb vscatterpf0dps vfmsubadd132pd vgatherpf1dps vpclmulhqlqdq vcmptrue_ussd vaeskeygenassist
      Разобрался!
      Добавил AccessData.conMain.Close в FormClose, ошибка исчезла :)
      vpmultishiftqb vscatterpf0dps vfmsubadd132pd vgatherpf1dps vpclmulhqlqdq vcmptrue_ussd vaeskeygenassist
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0651 ]   [ 18 queries used ]   [ Generated: 19.06.19, 11:03 GMT ]