Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > База данных и DLL

Автор: Rakhim 1.11.2005, 15:17

Есть dll, в которой находятся формы, на формах есть компоненты базы данных, транзакций и запросы.
При вызове формы передаются компонент TIBDataBase из главной программы.
Заменяю компоненты.

Код


var
 Old_DB: TIBDataBase; 
procedure Create(...; ADataBase: TIBDataBase)
begin
  Old_DB:=IBDataBase1; // IBDataBase1 - компонент на форме
  IBDataBase1:=ADataBase;
  Old_DB.Close;
  tranSelect.DefaultDataBase:=IBDataBase1;
  qSelect.DataBase:=IBDataBase1;
  qSelect.Transaction:=tranSelect;
  if not  tranSelect.InTransaction then
    tranSelect.StartTransaction    
  qSelect.Open; // Происходит ошибка "Declared cursor alredy exist"
  
end;

Почему происходит ошибка?
Что здесь неправильно.