WWW.ИСХОДНИКИ.РУ cpp.sources.ru
java.sources.ru web.sources.ru soft.sources.ru
jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Delphi
  Конекция к базе

СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Конекция к базе
ima опубликован 19-09-2000 15:36 MSK   Click Here to See the Profile for ima   Click Here to Email ima  
Есть основная программа,в которой выполняются различные StoredProc,и DLL , в которой также используются StoredProc.Соответственно в каждом модуле есть компонент DataBase.Вопрос:каким образом сделать так чтобы StoredProc в главной программе и DLL выполнялись в одной конекции.
Ra опубликован 23-10-2000 08:49 MSK     Click Here to See the Profile for Ra  Click Here to Email Ra     
попробуйте передать их exe'шника в dll свойство DataBase.Session и присвоить его StoredProc.Session...StoredProc.Databasename при этом не задается..
kazus опубликован 25-10-2000 16:38 MSK     Click Here to See the Profile for kazus  Click Here to Email kazus     
делай так. в ДЛЛ сделай процедуру в DM или там где лежат все твои StoredProc и всё такое, процедуру типа (это у меня в DM)

procedure CreateDM(AliasName : PChar);
begin
DM := TDM.Create(Application);
DM.Base.AliasName := AliasName;
end;

Теперь когда ты вызываешь из ЕХЕ ДЛЛ'ельную процедру тогда в саму процедуру вставь входной параметр типа ( AliasName )
или вот тебе пример

(процедура в DLL'ке)

procedure ShowSaldoParam(AliasName : PChar;DBHandle : HDBIDB;Handle : THandle);
begin
Application.Handle := Handle;
CreateDM(AliasName);
with TFormSaldoParam.Create(Application) do begin
try
DM.Base.Handle := DBHandle;
ShowModal;
finally
if DM <> nil then FreeDM;
Free;
end;
end;
end;

( это в мэйн ЕХЕ'шнике вызов процедуры )
ShowClientDoc(PChar(DM.Base.AliasName),DM.Base.Handle,Application.Handle);

СПРОСИТЬ  ОТВЕТИТЬ
Перейти:


E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.