![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 03.11.2011
Сообщений: 34
|
![]()
ну ни дня без вопроса. Смотрю сегодня хит дня на форуме тема про ADOconnect, вот и у меня вопрос созрел. Имею вот такой код
Код:
ps (тока не надо отвечать? что ошипка начать писать в delphi ![]() Последний раз редактировалось mihali4; 02.12.2011 в 02:56. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
![]()
1. переменную openDL:TOpenDialog; убрать
2.убрать строку Код:
3. все openDL. заменить на fdm.dlgOpen1. желательно но необязательное. перенести код в другой модуль тот в котором который fDM.con1 fdm.dlgOpen1 fdm.ADOQ1 оформив его либо в виде метода Код:
Код:
добавить на форму TactionList добавить действие (Action) назначить обработчик OnExecute добавить код обработчика. и назначив данное действия нашей кнопке.
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 01.12.2011 в 17:37. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 03.11.2011
Сообщений: 34
|
![]()
спасибо за ответ. Код был честно скопипастен с какого то учебника в сети, так что за переменную openDL не ругайте. За утро попробовал сделать оба способа и через Public и через Taction. Результат все тот же. Первый раз база открывается, если начинаешь открывать вторую базу (ну или второй раз ту же) выскакивает ошибка Аксесс виолатион...
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
![]()
прикрепите весь проект (как архив во вложении)
без файлов *.exe; *.dcu; *.~*;. Т.к. ошибка где-то в другом месте.
программа — запись алгоритма на языке понятном транслятору
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 03.11.2011
Сообщений: 34
|
![]()
ок, вотъ..
сильно не пинайте, первый проект и очень хочется разобраться |
![]() |
![]() |
![]() |
#6 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
![]()
надеюсь вы просто убрали из обработчика
Код:
Код:
PS сейчас посмотрю |
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
![]() Код:
P.S.аналогичное замечание Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 02.12.2011 в 12:50. |
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 03.11.2011
Сообщений: 34
|
![]()
спасибо огромаднейшее за объяснение. Все заработало )
|
![]() |
![]() |
![]() |
#9 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
![]()
Не запускал, есть сторонние компоненты.
Бегло просмотрел, действительно fdm.dlgOpen1.Free; И в коде у вас ещё встречается освобожднее компонентов, а вот создание только 1 раз при запуске. Отчёт 2 раза не пробовали открывать? |
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 03.11.2011
Сообщений: 34
|
![]()
В отчете тоже убрал free. после того как исправил, все работает отлично ) Суть я понял, создал объект один раз и удаляю его много много раз, соотв-но на вторую попытку удаления объекта и идет ошибка. Спасибо большое.
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Connection must be valid and open. | NZero | Общие вопросы .NET | 1 | 20.12.2010 08:30 |
Проблема с ADOTable и ADO Connection. | kardinal94 | БД в Delphi | 2 | 19.08.2010 04:24 |
ADO Connection | Zer | Компоненты Delphi | 2 | 09.07.2010 19:22 |