Compartilhar via

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

  • Artigo

Aplica-se ao: Access 2013, Office 2013

O objeto Recordset do ADO oferece suporte ao repositório do conteúdo de um objeto Recordset em arquivo por meio de seu método Save. O arquivo armazenado persistentemente pode existir em uma unidade local, servidor de rede ou como uma URL em um site. Posteriormente, o arquivo poderá ser restaurado com o método Open do objeto Recordset ou com o método Execute do objeto Connection.

O método GetString também converte um objeto Recordset em uma forma na qual as colunas e as linhas são delimitadas pelos caracteres especificados.

Para manter um Recordset, comece convertendo-o em uma forma que possa ser armazenada em um arquivo. Os objetos Recordset podem ser armazenados no formato ADTG (Advanced Data TableGram) proprietário ou no formato XML aberto. Os exemplos de ADTG são mostrados a seguir. Para obter mais informações sobre a persistência XML, consulte Mantendo registros em formato XML.

Salve todas as alterações pendentes no arquivo persistente. Esse procedimento permitirá emitir uma consulta que retorna um objeto Recordset, edita o Recordset, salva esse objeto e as alterações pendentes, restaura posteriormente o Recordset e, em seguida, atualiza a fonte de dados com as alterações pendentes salvas.

Para obter informações sobre como armazenar objetos Stream de forma persistente, consulte Objetos Stream e persistência no capítulo 10.

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

Exemplo

Salvar um Recordset:

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

Abrir um arquivo persistente com Recordset.Open:

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

Opcionalmente, se Recordset não tiver conexão ativa, você poderá aceitar todos os padrões e simplesmente gerar este código:

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

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

Abrir um arquivo persistente com RDS.DataControl:

Neste 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