PropertyBag Get не получает значение, или получает, но поздн

[zike]

пишу Актив Контрол по книжке
http://www.computerbooks.ru/books/Progr ... h%2034.htm

дело в том что сразу запускается

Private Sub UserControl_Initialize()
OpenRecordset
DataMembers.Add "Main"
End Sub

OpenRecordset запрашивает переменные, которые описаны в PropertyBag-e, но не получает их!

Код приведён ниже :

Здесь был длиннющий кусок неотформатированного кода, но здесь его больше нет.
Длиннющие куски неотформатированного кода будут удаляться и впредь.
-- GSerg

[GSerg]

Разумеется, событие Initialize происходит раньше любых других событий. Что разумно и правильно.

[zike]

как же тогда сделать, чтобы свойства считывались в начале?

[GSerg]

Осознать корявость подхода и спроектировать свои действия по-другому.
Переместить их в read_properties, например.

[zike]

Их- это :
OpenRecordset
DataMembers.Add "Main"

Тоесть примерно так :

Dim ....
..
Private Sub UserControl_Initialize()
End Sub
Private Sub UserControl_Terminate()
DataMembers.Clear
CloseRecordset
End Sub

Let-Get

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
mstrServer = PropBag.ReadProperty("Server", mstr_def_Server)
OpenRecordset
DataMembers.Add "Main"
End Sub
.
.
REST code

[GSerg]

Примерно так.

[zike]

теперь же не определяюся свойства DataField в поле свойств контрола

mcnnMain.Open "Data Source= " & Server & "; Initial Catalogs" & Database, User, Password


но со статической строкой коннекшена определяютса

mcnnMain.Open "Data Source= MyServer; Initial Catalog=catalog_name", "user_name", "password"

в чем может бытЬ дело?

получаетса , что при инициализации контролa всетаки надо запускать
OpenRecordset
DataMembers.Add "Main"
чтобы получить DataField

?

[zike]

Последний вопрос закрыт!

2 GSerg: Спасибо за помощь! Всё работает!