Дополнительные сведения о сохраняемости набора записей

Статья
01/02/2025

Объект ADO Recordset поддерживает хранение содержимого объекта Recordset в файле с помощью метода Save . Постоянно хранящийся файл может существовать на локальном диске, сервере или в качестве URL-адреса на веб-сайте. Позже файл можно восстановить с помощью метода Open объекта Recordset или метода Execute объекта Connection .

Кроме того, метод GetString преобразует объект Recordset в форму, в которой столбцы и строки разделяются указанными символами.

Чтобы сохранить набор записей, сначала преобразуйте его в форму, которая может храниться в файле. Объекты набора записей могут храниться в собственном формате ADTG или в формате XML. Примеры ADTG приведены в следующем разделе. Дополнительные сведения о сохраняемости XML см. в разделе Сохранение записей в формате XML.

Сохраните все ожидающие изменения в сохраненном файле. Это позволяет выпустить запрос, который возвращает объект Recordset , изменяет набор записей, сохраняет его и ожидающие изменения, а затем восстанавливает набор записей, а затем обновляет источник данных с помощью сохраненных ожидающих изменений.

Сведения о постоянном хранении объектов Stream см. в разделе Потоки и сохраняемость.

Пример сохраняемости набора записей см. в разделе Сценарий сохраняемости набора записей XML.

Пример

Сохранение набора записей:

Dim rs as New ADODB.Recordset  
rs.Save "c:\yourFile.adtg", adPersistADTG

Откройте сохраненный файл с помощью Recordset.Open:

Dim rs as New ADODB.Recordset  
rs.Open "c:\yourFile.adtg", "Provider=MSPersist",,,adCmdFile

При необходимости, если у набора записей нет активного подключения, можно принять все значения по умолчанию и указать следующий код:

Dim rs as New ADODB.Recordset  
rs.Open "c:\yourFile.adtg"

Откройте сохраненный файл с помощью connection.Execute:

Dim conn as New ADODB.Connection  
Dim rs as ADODB.Recordset  
conn.Open "Provider=MSPersist"  
Set rs = conn.execute("c:\yourFile.adtg")

Откройте сохраненный файл с помощью службы удаленных рабочих служб. DataControl:

В этом случае свойство Server не задано.

Dim dc as New RDS.DataControl  
dc.Connection = "Provider=MSPersist"  
dc.SQL = "c:\yourFile.adtg"  
dc.Refresh

См. также:

Метод GetString (ADO)
Поставщик сохраняемости Microsoft OLE DB (поставщик службы ADO)
Объект Recordset (ADO)
Потоки и сохраняемость

Поделиться через