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

保存しておいたレコードセットの変更をサーバー側に反映させる

Sub レコードセットを保存3()
'変更をサーバーに反映させる
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"

'保存先のパスとファイル名
ADTGName = ThisWorkbook.Path & "\adtg\伝票一覧.adtg"
'ローカルに保存したファイルを開く
myRS.Open ADTGName

'サーバーへの接続を確立
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
'Recordset オブジェクトの ActiveConnection を設定
myRS.ActiveConnection = myCon

'変更を反映
myRS.UpdateBatch

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

End Sub

「伝票一覧」テーブル

実行結果

ローカル環境で更新したレコードセットの内容をサーバーに反映するには、UpdateBatch メソッドを使用する。
手順は以下の通り。

1. 保存したレコードセットを開く。
2. サーバー側への接続を確立し、Recordset オブジェクトの ActiveConnection プロパティに指定する。
3. UpdateBatch メソッドを実行する。