ローカルファイル(ADTG)で作業する

レコードセットをファイルに保存する

Sub レコードセットを保存()
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String, ADTGName As String
FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "伝票一覧", myCon, adOpenDynamic, adLockOptimistic

'保存先のパスとファイル名
ADTGName = ThisWorkbook.Path & "\adtg\伝票一覧.adtg"
'ADTG形式で保存
myRS.Save ADTGName, adPersistADTG

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

Recordsetオブジェクトの内容を保存する Save メソッド
Recordsetオブジェクト.Save Destination, PersistFormat

引数　PersistFormat に指定する定数

定数	値	説明
adPersistADTG	0	Microsoft Advanced Data TableGram (ADTG)フォーマットであることを表します。
adPersistXML	1	Extensible Markup Language (XML) フォーマットであることを表します。

ADOでは、作業中のレコードセットを一時的に独立したファイルとして保存することができる。
ファイルサーバーや DB サーバーとの接続が切れた状態でも、ローカル環境にファイルを保存しておいて、作業を行い、更新したデータをサーバー側に反映させることが可能。