Хранимые процедуры. Хранимые процедуры находятся на сервере и обычно создаются прог­рам­мой SQL Enterprise Manager

Хранимые процедуры находятся на сервере и обычно создаются прог­рам­мой SQL Enterprise Manager. На основе сквозных запросов, вы­зы­вающих хранимые процедуры, строятся запросы, которые исполь­зуют­ся при создании других запросов, форм и отчетов. Если нужно коррек­ти­ро­вать данные, то можно создать локальную таблицу. Ее нужно от­кор­ректировать (помечая откорректированные записи) и через хранимую процедуру произ­вес­ти передачу измененных записей на сервер.

Для этого можно создать визуальными средствами один сквозной запрос, возвращающий набор данных (для формирования локальной таблицы), и второй запрос (для передачи изменений на сервер) без воз­вра­ще­ния набора. Содержание запросов изначально не важно, нужно задать значе­ния свойствам Строка подключения ODBC и Возврат записей.

Пример программы формирования локальной таблицы.

Dim qr as QueryDef ‘объектная переменная с описанием запроса

Set qr=CurrentDb.QueryDefs(“Запрос”) ‘открытие запроса к серверу

qr.SQL=”Изделия” ‘источник формирования набора ‑ имя хранимой процедуры

qr.Close ‘закрытие запроса

CurrentDb.Execute ”Delete *From Локальная_таблица” ‘удаление старой таблицы

‘выполнение запроса с подзапросом для формирования локальной таблицы

CurrentDb.Execute ”Insert Into Локальная_таблица Select * From Запрос”

Пример программы сохранения одной откорректированной записи

Dim rs as recordset, qr as QueryDef ‘объявления объектных переменных

Dim i As Integer, strSQL As String, strFields As String ‘объявление переменных

RunCommand acCmdSaveRecord ‘сохрание записи в локальной таблице

‘записи берутся не из локальной таблицы, а из свойства RecordClone формы

Set rs=Forms!Form1.RecordsetClone

‘формирование строки с именем хранимой процедуры и с параметром: список

‘значений полей из формы, разделенных запятыми. Список заключается в ‘кавычки (chr(34)). При формировании строки следует знать: даты

‘указываются в виде “yyyymmdd hh:mm:ss”, вещественные числа указываются с ‘десятичной точкой (а не запятой), значения Null указываются в виде строки ‘NULL без кавычек, строки ограничиваются апострофами.

For i=0 To rs.Fields.Count-1 ‘формирование параметров хранимой процедуры

StrFields=strFields & rs.Fields(i).Value & “,” ‘значение i‑го поля

Next

strSQL=”Правка “&chr(34)&strSQL&chr(34) ‘строка вызова хранимой процедуры

Set qr=Currentdb.QueryDefs(“Запрос_на_сохранение”) ‘откр. запроса к серверу

qr.SQL=strSQL ‘формирование строки с описанием источника данных

qr.ReturnsRecords=False ‘набор не возвращается

qr.Execute ‘выполнение запроса (можно qr.OpenRecordset)

Дата добавления: 2014-12-10