Este posibil să doriți să stocați un set de înregistrări pe hard disk sau în cloud. Salvarea fișierelor în cloud se face la fel ca salvarea într-un folder obișnuit de pe hard disk. De fapt, salvați tot pe un hard disk atunci când trimiteți ceva în cloud într-un sistem precum Dropbox. Trebuie doar să salvați local, apoi Dropbox gestionează actualizarea și salvarea (sincronizarea) în cloudul său.

Acest exemplu ilustrează, de asemenea, modul de utilizare a metodei Save a obiectului RecordSet:

1. Sub SalvareInCloud()

2.

3. Dim  myRecordset As ADODB.Recordset

4. Set  myRecordset = New ADODB.Recordset

5. myRecordset.ActiveConnection = CurrentProject.Connection

6.

7. Dim  strSQL As String

8. Dim  strFilepath As String

9. strFilepath = "C:\Users\NumeUtilizator\OneDrive\Cities.xml"

10.

11. strSQL = "SELECT  city FROM Employees"

12. myRecordset.Open  strSQL

13.

14. myRecordset.Save strFilepath, adPersistXML

15.

16. Set myRecordset = Nothing

17.

18. End Sub

Pentru a testa acest lucru, deschideți baza de date Northwind și apăsați Alt+ F11 pentru a deschide VBA Editor. Lipiți acest cod într-un modul, dar schimbați numele NumeUtilizator de pe linia 9 cu propriul dvs. nume.

Cea mai mare parte a acestui cod ar trebui să fie de înțeleasă din exemplele anterioare din acest capitol. Linia 9 specifică locația de pe hard diskul pe care fișierele se mută automat în OneDrive după ce sunt salvate acolo. Ați putea la fel de ușor salva acest recordset în orice folder obișnuit de pe hard-disk, ca acesta:

myRecordset.Save "c:\temp\Cities.xml", adPersistXML

Comanda de salvare pe care o folosim stochează acest set de înregistrări în format XML, descrisă ulterior, la secțiunea "Programarea Panglicii Office 2016".

Pentru cei curioși, iată arată acest set de înregistrări în format XML, care afișează datele orașului pentru cele nouă înregistrări din tabelul Employees:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'

    xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'

    xmlns:rs='urn:schemas-microsoft-com:rowset'

    xmlns:z='#RowsetSchema'>

<s:Schema id='RowsetSchema'>

    <s:ElementType name='row' content='eltOnly'>

      <s:AttributeType name='city' rs:number='1' rs:nullable='true' rs:maydefer='true' rs:writeunknown='true'>

           <s:datatype dt:type='string' dt:maxLength='50'/> 

    </s:AttributeType>

    <s:extends type='rs:rowbase'/>

    </s:ElementType>

</s:Schema>

<rs:data>

    <z:row city='Seattle'/>

    <z:row city='Bellevue'/>

    <z:row city='Redmond'/>

    <z:row city='Kirkland'/>

    <z:row city='Seattle'/>

    <z:row city='Redmond'/>

    <z:row city='Seattle'/>

    <z:row city='Redmond'/>

    <z:row city='Seattle'/>

</rs:data>

</xml>