Más información acerca de la persistencia de conjunto de registros

El objeto Recordset de ADO admite el almacenamiento del contenido de un objeto Recordset en un archivo mediante su método Save. El archivo almacenado persistentemente puede existir en una unidad local, un servidor o como una dirección web. Más adelante, el archivo se puede restaurar con el método Open del objeto Recordset o el método Execute del objeto Connection.

Además, el método GetString convierte un objeto Recordset en un formulario en el que las columnas y filas se delimitan con los caracteres que se especifiquen.

Para conservar un objeto Recordset, empiece por convertirlo en un formulario que se pueda almacenar en un archivo. Puede guardar el objeto Recordset en el formato propietario de Advanced Data Table Gram (ADTG) o en el formato abierto Extensible Markup Language (XML). Los ejemplos de ADTG se muestran en la sección siguiente. Para obtener más información sobre la persistencia XML, vea Conservar registros en formato XML.

Guarde los cambios pendientes en el archivo almacenado. Esto le permite realizar una consulta que devuelve un objeto Recordset, lo edita y lo guarda junto con los cambios pendientes; posteriormente restaura el objeto Recordset y, a continuación, actualiza el origen de datos con los cambios pendientes guardados.

Para obtener información sobre el almacenamiento persistente de objetos Stream, vea Secuencias y Persistencia.

Para ver un ejemplo de persistencia del Recordset, consulte el escenario de persistencia de conjunto de registros XML.

Ejemplo

Guarde un objeto Recordset:

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

Abra un archivo persistente con Recordset.Open:

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

Opcionalmente, si el objeto Recordset no tiene una conexión activa, puede aceptar todos los valores predeterminados y codificar lo siguiente:

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

Abra un archivo persistente con Connection.Execute:

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

Abra un archivo persistente con RDS. DataControl:

En este caso, no se establece la propiedad Server.

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

Consulte también

GetString (método) (ADO)
Proveedor de persistencia de Microsoft OLE DB (proveedor de servicios ADO)
Objeto de conjunto de registros (ADO)
Secuencias y persistencia