Шаг 104 - Источник данных в DLL

Еще один подход заключается в создании класса который будет являться источником данных. Мы создаем ActiveX DLL как в шаге "Шаг 1 - Создание COM DLL". Устанавливаем свойства класса DataSourceBehavior как в шаге "Шаг 97 - Свой OCX элемент источник данных". Все дальше нужно только написать код:

Private rn As ADODB.Connection
Private rc As ADODB.Recordset

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = rc
End Sub

Private Sub Class_Initialize()

Set rn = New ADODB.Connection
rn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\TEST.mdb"
rn.Open
Set rc = New ADODB.Recordset
rc.Open "SELECT * FROM PIPLE", rn
End Sub

Здесь мы описываем строку соединения, SQL запрос используя для этого библиотеку ADO. Подробнее в шаге "Шаг 40 - Использование ADO без ADO Data Control". Все можно собирать. В проекте клиенте нужно настроить создать объект класса и настроить свойства.

Private rr As AdoClassProject.Class1
Private Sub Form_Load()
	Set rr = New AdoClassProject.Class1
	Set Text1.DataSource = rr
	Text1.DataField = "NAME"
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.