En savoir plus sur la persistance des recordsets

Article
05/30/2023

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

En outre, la méthode GetString convertit un objet Recordset en une forme dans laquelle les colonnes et les lignes sont délimitées avec les caractères que vous spécifiez.

Pour conserver un Recordset, commencez par le convertir en une forme qui peut être stockée dans un fichier. Les objets Recordset peuvent être stockés au format propriétaire Advanced Data TableGram (ADTG) ou en XML (Extensible Markup Language). Les exemples ADTG sont présentés dans la section suivante. Pour plus d’informations sur la persistance XML, consultez Conserver les enregistrements au format XML.

Enregistrez les modifications en attente dans le fichier persistant. Cela vous permet d’émettre une requête qui retourne un objet Recordset, modifie l’objet Recordset, l’enregistre avec les modifications en attente, restaure ultérieurement l’objet Recordset, puis met à jour la source de données avec les modifications en attente enregistrées.

Pour plus d’informations sur le stockage persistant d’objets Stream, consultez Stream et persistance.

Pour obtenir un exemple de persistance de Recordset, consultez le Scénario de persistance du Recordset XML.

Exemple

Sauvegarder un Recordset :

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

Ouvrez un fichier persistant avec Recordset.Open :

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

Si l’objet Recordset n’a pas de connexion active, vous pouvez accepter toutes les valeurs par défaut et le code suivant :

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

Ouvrez 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")

Ouvrez 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

Voir aussi

GetString, méthode (ADO)
Fournisseur de persistance Microsoft OLE DB (fournisseur de services ADO)
Recordset, objet (ADO)
Flux et persistance

Partager via