Обмен данными

ActiveX Document.DLL

Приложения Visual Basic ActiveX Document выполняются в контейнере - приложении, обрабатывающем сетевые материалы. ActiveX Document обладает большими функциональными возможностями, например, применение ActiveX Document'a может предоставить внешнему пользователю сети доступ к локальным базам данных.

Практическая работа 46. ActiveX Document.DLL

Здесь создаeтся документ ActiveX Document.DLL, в котором используем доступ к данным посредством элемента управления Data с выводом их в поле элемента управления MSFlexGrid; тогда имеется возможность предоставить доступ к локальным базам данных пользователю сети. Документы ActiveX инициализируются (в отличие от формы) в процедуре UserDocument_Initialize (). В примере используем материалы практической работы 28 (доступ к данным с выводом результатов в поле элемента управления MSFlexGrid).

Последовательность действий:

1. Cоздать проект типа ActiveX Document.DLL,
2. скопировать проект (практическая работа 28), при этом использовать свойство MSFlexGrid.DataSource = Data1 вместо части программы, описывающей работу с ячейками MSFlexGrid (см. комментарии к коду практической работы 28),
3. для ввода SQL-запроса добавить командную кнопку Command1 (командная кнопка практики 28 не используется), см. код, данный ниже. Первый запрос (Select Name From Student) вводится в окне свойств текстового поля,
4. ввести код, данный ниже, стартовать проект - проект выполняется в приложении Browser. Новый запрос вводится в текстовое поле, затем делается щелчок на командной кнопке, рис. 6.17

Private Sub UserDocument_Initialize()
Dim i As Integer
CommonDialog1.FileName = ""
CommonDialog1.Action = 1
Data1.Connect = ""
Data1.DatabaseName = CommonDialog1.FileName
Data1.Refresh
For i = 0 To Data1.Database.TableDefs.Count - 1
Combo1.AddItem (Data1.Database.TableDefs(i).Name)
Next i
Combo1.Text = ""
Data1.RecordSource = Text1.Text
Data1.Refresh
End Sub

' SQL-запрос, вводимый в текстовое поле, присваивается 
' свойству RecordSource
Private Sub Command1_Click() 
Data1.RecordSource = Text1.Text
Data1.Refresh
End Sub

Рис. 6.17. ActiveX Document.DLL