Додаток в.Приклади використання інструкцій sql для організаціїDde із інших додатків

Приклад 1). Організація доступу до даних Microsoft Access із Microsoft Word

Для виконання даного прикладу необходно спочатку запустити Microsoft Access.

Sub AccessDDE()

Dim intChan1 As Integer, intChan2 As Integer

Dim strQueryData As String

' Використовуємо документ System і відкриваємо базу даних Борей.mdb.

' Необхідно відкрити базу даних перед вткористанням інших документів DDE.

intChan1 = DDEInitiate("MSAccess", "System")

Даний шлях слід замінити на реальний шлях до бази даних Борей.mdb.

DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Борей.mdb]"

Вибираємо усі дані за запитом «Десять самых дорогих товаров».

intChan2 = DDEInitiate("MSAccess", "Борей.mdb;" _

& "QUERY Десять самых дорогих товаров")

strQueryData = DDERequest(intChan2, "All")

DDETerminate intChan2

' Закриваемо базу даних.

DDEExecute intChan1, "[CloseDatabase]"

DDETerminate intChan1

' Друкуємо дані у вікні отладки.

Debug.Print strQueryData

End Sub

Приклад 2). В програмі Visual Basic відкривається сеанс обміну DDE з Microsoft Access.

Dim intChan1 As Integer, strResults As String

intChan1 = DDEInitiate("MSAccess", "System")

' Вибирається список документів, які підтримуються документом System.

strResults = DDERequest(intChan1, "SysItems")

' Викликається макрокоманда OpenDatabase, яка відкриває базу даних Борей.mdb.

' Данний шлях слід замінити на реальний шлях до бази даних Борей.mdb.

DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Борей.mdb]"

Документ базаДаних надає ім’я файла існуючої бази даних. Дозволяється беспосередньо вказувати ім’я бази даних (Наприклад, Борей) або вказувати ім’я та расширення “.mdb” (C:\Msoffice\Access\Samples \Борей.mdb). Після відкриття сеанса обміну DDE з базою даних можна отримати список усіх об’єктів цієї бази даних.

Приклад 3). Розглянемо приклад відкриття в програмі Visual Basic форми «Співробітники» з бази даних «Борей» (Борей.mdb).

' в програмі Visual Basic відкривається сеанс обміну DDE з базою даних Борей.

'База даних повинна бути вже відкритою (див. приклад 2).

intChan2 = DDEInitiate("MSAccess", "Борей")

' Запитується список форм з бази даних Борей.mdb.

strResponse = DDERequest(intChan2, "FormList")

' Для відкриття формы «Сотрудники» викликаємо макрокоманду ОткрытьФорму (OpenForm) з необхідими аргументами.

DDEExecute intChan2, "[OpenForm Сотрудники,0,,,1,0]"

intChan1 = DDEInitiate("MSAccess", "Борей;SQL")DDEPoke intChan1, "SQLText", "SELECT *"DDEPoke intChan1, "SQLText", " FROM Заказы"DDEPoke intChan1, "SQLText", " WHERE [Стоимость доставки] > 100;"strResponse = DDERequest(intChan1, "NextRow")DDETerminate intChan1

Приклад 4).

В наступному прикладі демонструється використання механізму DDE в програмі Visual Basic для даних даних із таблиці в базі даних «Борей» та вставки даних у текстовий файл.

Sub NorthwindDDE

Dim intChan1 As Integer, intChan2 As Integer, intChan3 As Integer

Dim strResp1 As Variant, strResp2 As Variant, strResp3 As Variant

' В модулі Visual Basic запитуємо дані з таблиці «Типы», запит «Каталог» і таблиця «Заказы» в базі даних Борей.mdb.

' База даних має бути вже відкрита.

intChan1 = DDEInitiate("MSAccess", "Борей;TABLE Типы")

intChan2 = DDEInitiate("MSAccess", "Борей;QUERY Каталог")

intChan3 = DDEInitiate("MSAccess", "Борей;SQL SELECT * " _

& "FROM Заказы " _

& "WHERE КодЗаказа > 10050;")

strResp1 = DDERequest(intChan1, "All")

strResp2 = DDERequest(intChan2, "FieldNames;T")

strResp3 = DDERequest(intChan3, "FieldNames;T")

DDETerminate intChan1

DDETerminate intChan2

DDETerminate intChan3

' Вставляемо дані в текстовий файл.

Open "C:\Дані.TXT" For Append As #1

Print #1, strResp1

Print #1, strResp2

Print #1, strResp3

Close #1

End Sub