Форум: "Базы";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизКак в ActiveX написанный в Delphi передать коннект Найти похожие ветки
← →
VladimirTU (2002-03-13 14:43) [0]Народ, подскажите, как в ActiveX написанный в Delphi передать ADOBD.Connection из Visual Basic 6.0
← →
kig (2002-03-13 15:32) [1]Примерно так
vb
Dim cnt As ADODB.Connection
Set cnt = CreateObject("ADODB.Connection")
cnt.ConnectionString = "Строка коннекта"
Dim p As Object "Это ActiveX на Дельфи
Set p = CreateObject("Project1.ggg")
Set p.Connect = cnt
Это Дельфи ActiveX (inproc)
unit Unit1;
interface
uses
ComObj, ActiveX, Project1_TLB, StdVcl, ADODB_TLB;
type
Tggg = class(TAutoObject, Iggg)
protected
procedure Set_Connect(const Value: _Connection); safecall;
{ Protected declarations }
end;
implementation
uses ComServ, Dialogs;
procedure Tggg.Set_Connect(const Value: _Connection);
begin
ShowMessage(Value.ConnectionString);
end;
initialization
TAutoObjectFactory.Create(ComServer, Tggg, Class_ggg,
ciMultiInstance, tmApartment);
end.
В tlb ActiveX включено использование ADODB tlb.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c