Database - lettura di Un Recordset, Salvarlo In Una Variabile E Riaprirlo Con Metofo Persistent-GETSTRING

ADO # Grazie alla persistenza del recordset, e' possibile salvare come file dati e metadati del recordset. È inoltre possibile utilizzare tale file In un secondo momento per ricreare l'oggetto Recordset. Il file di persistenza puo' risiedere in un'unita' locale, in un server di rete o in un sito Web come URL.
Il nuovo metodo GetString consente inoltre di convertire un oggetto Recordset In un formato In cui le colonne e le righe sono delimitate da caratteri specifici.
Dettagli
Il provider MSPersist supporta la memorizzazione di un oggetto Recordset In un file con il metodo Save dell'oggetto Recordset. In un secondo momento, il file di persistenza puo' essere ripristinato con il metodo Open dell'oggetto Recordset o con il metodo Execute dell'oggetto Connection.
L'oggetto Recordset viene convertito in una stringa per consentirne la memorizzazione in un file. Al momento attuale, l'unico formato di stringa supportato e' il formato proprietario Advanced Data TableGram (ADTG) di Microsoft. Il provider MSPersist aggiunge una proprieta' con valore di stringa, denominata PersistFormat, nell'elenco Properties dell'oggetto Recordset per consentire l'acquisizione o l'impostazione del formato di stringa. Il valore predefinito di PersistFormat e' adPersistADTG.
Le modifiche In sospeso vengono salvate nel file di persistenza. È quindi possibile inviare una query che restituisce un oggetto Recordset: modificare il recordset, salvarlo e salvare le modifiche In sospeso. In seguito, ripristinare il recordset e aggiornare la fonte dati con le modifiche In sospeso salvate.
Utilizzo
Visualizzare il formato di stringa corrente:
Dim strFormat As String
strFormat = rs.Properties("PersistFormat")
Salvare un Recordset:
Dim rs As New ADODB.Recordset
rs.Save "c:\yourFile.adtg", adPersistADTG
Aprire un file di persistenza con Recordset.Open:
Dim rs As New ADODB.Recordset
rs.Open "c:\yourFile.adtg", "Provider=MSPersist",,,adCommandFile
In alternativa, se l'oggetto Recordset non dispone di una connessione attiva, e' possibile accettare tutte le impostazioni predefinite e codificare solo:
dim rs As New ADODB.Recordset
rs.Open "c:\yourFile.adtg"
Aprire un file di persistenza con Connection.Execute:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=MSPersist"
Set rs = conn.execute("c:\yourFile.adtg")
Aprire un file di persistenza con RDS.DataControl:
In questo caso, la proprieta' Server non e' impostata.
Dim dc As New RDS.DataControl
dc.Connection = "Provider=MSPersist"
dc.SQL = "c:\yourFile.adtg"
dc.Refresh