Mais sobre a persistência do conjunto de registros

Artigo
01/19/2017

O objeto ADO Recordset dá suporte ao armazenamento do conteúdo de um objeto Recordset em um arquivo usando seu método Save. O arquivo armazenado persistentemente pode existir em uma unidade local, servidor ou como uma URL em um site da Web. Posteriormente, o arquivo pode ser restaurado com o método Open do objeto Recordset ou o método Execute do objeto Connection.

Além disso, o método GetString converte um objeto Recordset em um formulário no qual as colunas e linhas são delimitadas com caracteres especificados.

Para persistir um Recordset, comece convertendo-o em um formulário que pode ser armazenado em um arquivo. Objetos do Conjunto de Registros podem ser armazenados no formato proprietário ADTG (Advanced Data TableGram) ou no formato aberto XML (Extensible Markup Language). Os exemplos do ADTG são mostrados na próxima seção. Para obter mais informações sobre persistência XML, consulte Persisting Records in XML format.

Salve as alterações pendentes no arquivo persistente. Isso permite que você emita uma consulta que retorna um objeto Recordset, edita o Recordset, salva-o e as alterações pendentes, restaura posteriormente o conjunto de registros e atualiza a fonte de dados com as alterações pendentes salvas.

Para obter informações sobre o armazenamento persistente de objetos Stream, consulte Streams and Persistence.

Para obter um exemplo de persistência Recordset, consulte o cenário de persistência do conjunto de registros XML.

Exemplo

Salvar um conjunto de registros:

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

Abra um arquivo persistente com Recordset.Open:

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

Opcionalmente, se o conjunto de registros não tiver uma conexão ativa, você poderá aceitar todos os padrões e codificar o seguinte:

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

Abra um arquivo persistente com 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 um arquivo persistente com RDS. DataControl:

Nesse caso, a propriedade Server não está definida.

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

Consulte Também

método GetString (ADO)
Provedor de Persistência do Microsoft OLE DB (Provedor de Serviço ADO)
do objeto Recordset (ADO)
Fluxos e Persistência

Partilhar via