Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как передать соединение BDE в другой модуль.

Matveih1 © (2009-12-02 13:43:00)
Добрый день.
Как передать соединение BDE в другой модуль.
Суть проблемы следующая. Есть основная программа и много модулей (*.bpl) которые грузятся по мере необходимости. Все модули работают с БД MSSQL 2000, как в модуль передать уже установленное соединение с БД, что бы не делать нового коннекта?

Matveih1 (2009-12-02 15:49:00) [1]
Все сработало.Это как обычно я промазал. Всем спасибо

Игорь Шевченко (2009-12-02 14:19:00) [2]

> я так передаю, но при это появляется стандартное окно которое
> спрашивает логин/пароль, но соединение то уже установлено.
> Так как же это правильно делать.
> procedure TForm._Show(DB: TDatabase);
> begin
> DBModul := DB;
> Show;
> end;
> И после первого обращения в БД появляется это окно

Отладчик - рулез фарева.

Так вполне можно передавать

icWasya (2009-12-02 14:16:00) [3]
>Matveih1 © (02.12.09 13:56) [3]
procedure TForm._Show(DB: TDatabase); begin DBModul := DB; Show; end;
А что такое DBModul и как потом используется?
Если это компонент, который положен в дизайнере на форму, то так работать не будет.

Anatoly Podgoretsky (2009-12-02 14:07:00) [4]
Не надо ничего передавать, просто использовать без передачи, например из ДатаМодуля

Matveih1 (2009-12-02 13:57:00) [5]

> sniknik © (02.12.09 13:54) [2]
>
> но лучше "передавать" TADOConnection...

необходимо именно через BDE

Matveih1 (2009-12-02 13:56:00) [6]
я так передаю, но при это появляется стандартное окно которое спрашивает логин/пароль, но соединение то уже установлено. Так как же это правильно делать.
procedure TForm._Show(DB: TDatabase);
begin
DBModul := DB;
Show;
end;
И после первого обращения в БД появляется это окно

sniknik (2009-12-02 13:54:00) [7]
но лучше "передавать" TADOConnection...

Игорь Шевченко (2009-12-02 13:50:00) [8]
так и передать TDatabase

Наверх

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