Mais informações sobre a persistência do conjunto de registros

Artigo
05/30/2023

O objeto Recordset do ADO 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, um servidor ou como uma URL em um site. 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 possa ser armazenado em um arquivo. Objetos Recordset podem ser armazenados no formato ADTG (Advanced Data TableGram) proprietário ou no formato XML (Extensible Markup Language) aberto. Os exemplos do ADTG são mostrados na próxima seção. Para obter mais informações sobre a persistência de XML, consulte Persistir registros no formato XML.

Salve as alterações pendentes no arquivo persistente. Fazer isso permite que você emita uma consulta que retorna um objeto Recordset, edita o Recordset, salva esse objeto e as alterações pendentes, restaura o Recordset posteriormente 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 e persistência.

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

Exemplo

Salve um Recordset:

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 Recordset 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ços do ADO)
Objeto Recordset (ADO)
Fluxos e persistência

Compartilhar via