Спонсор: Microsoft
Опубликован: 04.07.2006 | Доступ: свободный | Студентов: 5449 / 625 | Оценка: 4.11 / 3.96 | Длительность: 11:08:00
Лекция 6:

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

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
ActiveX Document.DLL

Рис. 6.17. ActiveX Document.DLL
антонина квасова
антонина квасова
Владимир Муратов
Владимир Муратов

По курсу Visual Basic где же взять материалы для практических работ? 

Светлана Ведяева
Светлана Ведяева
Россия, Саратов
Оксана Пагина
Оксана Пагина
Россия, Москва