適用先: Access 2013、Office 2013
次の 3 つの例では、Save メソッドと Open メソッドを組み合わせて使用する方法を示します。
出張先に、データベースに含まれているテーブルを持っていく必要があるとします。 この場合、出かける前に Recordset としてデータにアクセスし、持ち出し可能な形式で保存します。 出張先では、接続されていないローカルな Recordset として Recordset にアクセスします。 そして Recordset に変更を加え、再度保存します。 最後に、会社に戻ってから、データベースに再度接続し、出張中に加えた変更でデータベースを更新します。
まず、 Authors テーブルにアクセスして保存します。
'BeginSaveVB
'To integrate this code
'replace the data source and initial catalog values
'in the connection string
Public Sub Main()
On Error GoTo ErrorHandler
'recordset and connection variables
Dim rstAuthors As ADODB.Recordset
Dim Cnxn As ADODB.Connection
Dim strCnxn As String
Dim strSQLAuthors As String
' Open connection
Set Cnxn = New ADODB.Connection
strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
Cnxn.Open strCnxn
Set rstAuthors = New ADODB.Recordset
strSQLAuthors = "SELECT au_id, au_lname, au_fname, city, phone FROM Authors"
rstAuthors.Open strSQLAuthors, Cnxn, adOpenDynamic, adLockOptimistic, adCmdText
'For sake of illustration, save the Recordset to a diskette in XML format
rstAuthors.Save "c:\Pubs.xml", adPersistXML
' clean up
rstAuthors.Close
Cnxn.Close
Set rstAuthors = Nothing
Set Cnxn = Nothing
Exit Sub
ErrorHandler:
'clean up
If Not rstAuthors Is Nothing Then
If rstAuthors.State = adStateOpen Then rstAuthors.Close
End If
Set rstAuthors = Nothing
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndSaveVB
ここで出張先に到着しました。 Authors テーブルには、ローカルの切断された Recordset としてアクセスします。 保存したファイル a:\Pubs.xml にアクセスするためには、使用するコンピューターで MSPersist プロバイダーが使用可能になっている必要があることに注意してください。
'BeginSave2VB
Public Sub Main()
On Error GoTo ErrorHandler
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
'For sake of illustration, we specify all parameters
rst.Open "c:\Pubs.xml", "Provider=MSPersist;", adOpenForwardOnly, adLockBatchOptimistic, adCmdFile
'Now you have a local, disconnected Recordset - Edit as you desired
'(In this example the change makes no difference)
rst.Find "au_lname = 'Carson'"
If rst.EOF Then
Debug.Print "Name not found."
Exit Sub
End If
rst!city = "Chicago"
rst.Update
'Save changes in ADTG format this time, purely for sake of illustration.
'Note that the previous version is still on the diskette, as a:\Pubs.xml.
rst.Save "c:\Pubs.adtg", adPersistADTG
' clean up
rst.Close
Set rst = Nothing
Exit Sub
ErrorHandler:
'clean up
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
End If
Set rst = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndSave2VB
会社に戻ってきました。 出張中に加えた変更でデータベースを更新します。
'BeginSave3VB
Public Sub Main()
On Error GoTo ErrorHandler
'To integrate this code
'replace the data source and initial catalog values
'in the connection string
Dim Cnxn As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim strCnxn As String
Set rst = New ADODB.Recordset
' The lock mode is batch optimistic because we are going to
' use the UpdateBatch method.
rst.Open "c:\Pubs.adtg", "Provider=MSPersist;", adOpenForwardOnly, adLockBatchOptimistic, adCmdFile
' Connect to the database, associate the Recordset with the connection
' then update the database table with the changed Recordset
strCnxn = "Provider=SQLOLEDB;Data Source=MySqlServer;Integrated Security=SSPI;Initial Catalog=pubs;"
Cnxn.Open strCnxn
rst.ActiveConnection = Cnxn
rst.UpdateBatch
' clean up
rst.Close
Cnxn.Close
Set rst = Nothing
Set Cnxn = Nothing
Exit Sub
ErrorHandler:
'clean up
If Not rst Is Nothing Then
If rst.State = adStateOpen Then rst.Close
End If
Set rst = Nothing
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
'EndSave3VB