Встроенный SQL. Пример использования встроенного SQL в языке VBA

Встроенный  SQL

Обычно SQL используется в Access интерактивно: вводится запрос SQL, и затем он после сохранения может  необходимое число раз исполняться.

Вместе с тем имеется возможность внедрять  команды SQL  в программы на процедурных языках высокого уровня, таких как C++, Pascal, Visual Basic, Cobol, VBA и др. Такой SQL называют также Embedded SQL (встроенный SQL).

Пример использования встроенного SQL в языке VBA.

Создадим вначале запрос с именем  ЗаказыПослеДаты  в конструкторе запросов Access или в окне  Вид / Режим SQL.

PARAMETERS Дата DateTime;

SELECT Заказы.КодЗаказчика, Заказы.Сотрудник

FROM Заказы

WHERE Заказы.ДатаЗаказа  > Дата

Далее составим следующую процедуру  VBA

Sub ExecuteProcedure()

' Перед компиляцией должна быть подключена библиотека

' Microsoft ActiveX Data Objects 2.8 Library

‘  Или другая библиотека ADO

' Для вывода данных следует подключить окно

‘  Immediate  командой View/Immediate Window

Dim cnn As New ADODB.Connection, rs As ADODB.RecordSet

Set cnn = CurrentProject.Connection

Set rs = cnn.Execute("EXECUTE ЗаказыПосле Даты  '01.17.2005'")

' Вывод данных

If rs.EOF Then

    Debug.Print "Таких заказов нет!"

Else

    While Not rs.EOF

    Debug.Print rs!КодЗаказчика  & " " & rs!Сотрудник

    rs.MoveNext

    Wend

End If

rs.Close

Set rs = Nothing

cnn.Close

Set cnn = Nothing

End Sub

Пример результата исполнения процедуры