Мога ли
3 отговора
141 прегледа
Мога ли
привет на всички
Мога ли да си направя приложение което като го стартирам да прави връзка към база данни посредством АДО и после всяко друго приложение което имам да ползва връзката от първото, селекти инсърти и така нататък
Мога ли да си направя приложение което като го стартирам да прави връзка към база данни посредством АДО и после всяко друго приложение което имам да ползва връзката от първото, селекти инсърти и така нататък
Re: Мога ли
Можеш.
Ако те интересува и как става, питай смело
_ _ _
Time is like a drug. Too much of it kills you.
Ако те интересува и как става, питай смело
_ _ _
Time is like a drug. Too much of it kills you.
Re: Мога ли
Привет
да много ме интересува как става можеш ли да ми помогнеш по въпроса
да много ме интересува как става можеш ли да ми помогнеш по въпроса
Re: Мога ли
Правиш си ActiveX Exe или DLL. В клас модула слагаш едно
public MySharedConnection as new AdoDB.Connection
Кръщаваш си проекта MyADO например, а класа - MySharedADO. Компилираш.
В другите проекти си добавяш reference към MyADO.MySharedADO. Обръщаш се към конекшъна така :
dim Wrapper as MyADO.MySharedADO
dim Conn as ADODB.Connection
...
private sub InitializeConnection()
on error goto ErrCreatingSharedADOClass
set Wrapper = GetObject ( , "MyADO.MySharedADO" )
goto Initialized
ErrCreatingSharedADOClass:
on error goto 0
set Wrapper = new MyADO.MySharedADO
Initialized:
set Conn = Wrapper.MySharedConnection
end sub
Нещо такова е в общи линии, естествено ще трябва в клас модула на ActiveX обекта да си настроиш и ConnectionString-а
П.П. Забравих, че за да можеш да си намериш процеса със GetObject, трябва първо да го регистрираш със RegisterActiveObject
_ _ _
Time is like a drug. Too much of it kills you.
public MySharedConnection as new AdoDB.Connection
Кръщаваш си проекта MyADO например, а класа - MySharedADO. Компилираш.
В другите проекти си добавяш reference към MyADO.MySharedADO. Обръщаш се към конекшъна така :
dim Wrapper as MyADO.MySharedADO
dim Conn as ADODB.Connection
...
private sub InitializeConnection()
on error goto ErrCreatingSharedADOClass
set Wrapper = GetObject ( , "MyADO.MySharedADO" )
goto Initialized
ErrCreatingSharedADOClass:
on error goto 0
set Wrapper = new MyADO.MySharedADO
Initialized:
set Conn = Wrapper.MySharedConnection
end sub
Нещо такова е в общи линии, естествено ще трябва в клас модула на ActiveX обекта да си настроиш и ConnectionString-а
П.П. Забравих, че за да можеш да си намериш процеса със GetObject, трябва първо да го регистрираш със RegisterActiveObject
_ _ _
Time is like a drug. Too much of it kills you.
Редактирано от killall на