En savoir plus sur la persistance du recordset

S’applique à : Access 2013, Office 2013

L'objet Recordset ADO prend en charge le stockage du contenu d'un objet Recordset dans un fichier à l'aide de la méthode Save. Le fichier stocké de manière permanente peut exister sur un lecteur local, un serveur réseau ou en tant qu’URL sur un site web. Par la suite, le fichier peut être restauré soit avec la méthode Open de l'objet Recordset, soit avec la méthode Execute de l'objet Connection.

En outre, la méthode GetString convertit un objet Recordset dans un format où les lignes et les colonnes sont délimitées par des caractères que vous spécifiez.

Pour rendre un objet Recordset persistant, commencez par le convertir dans un format qui lui permet d'être stocké dans un fichier. Les objets Recordset peuvent être stockés au format ADTG (Advanced Data TableGram) propriétaire ou au format XML (Extensible Markup Language) ouvert. Des exemples utilisant ADTG sont présentés ci-dessous. Pour plus d'informations sur la persistance XML, consultez Persistance des enregistrements au format XML.

Save any pending changes in the persisted file. Doing this allows you to issue a query that returns a Recordset object, edits the Recordset, saves it and the pending changes, later restores the Recordset, and then updates the data source with the saved pending changes.

Pour plus d'informations sur le stockage persistant des objets Stream, consultez Flux et persistance au chapitre 10.

Pour obtenir un exemple de persistance d’un objet Recordset , consultez Scénario de persistance des objets Recordset XML.

Exemple

Enregistrement d'un objet Recordset :

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

Ouverture d'un fichier persistant avec Recordset.Open :

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

Si vous le souhaitez et si l'objet Recordset ne présente pas de connexion active, vous pouvez accepter toutes les valeurs par défaut et simplement coder ce qui suit :

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

Ouverture d'un fichier persistant avec Connection.Execute :

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

Ouverture d'un fichier persistant avec RDS.DataControl :

Dans ce cas, la propriété Server n'est pas définie.

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