Save および Open メソッドの例 (VB)Save and Open Methods Example (VB)

次の3つの例は、 SaveメソッドとOpenメソッドを一緒に使用する方法を示しています。These three examples demonstrate how the Save and Open methods can be used together.

データベースからテーブルを使用して、事業旅行を行っているとします。Assume that you are going on a business trip and want to take along a table from a database. 前に、データをレコードセットとしてアクセスし、転送可能な形式で保存します。Before you go, you access the data as a Recordset and save it in a transportable form. 宛先に到達すると、レコードセットにローカルの切断されたレコードセットとしてアクセスします。When you arrive at your destination, you access the Recordset as a local, disconnected Recordset. レコードセットに変更を加え、再度保存します。You make changes to the Recordset, and then save it again. 最後に、home を返したときに、もう一度データベースに接続し、その時点で行った変更を反映して更新します。Finally, when you return home, you connect to the database again and update it with the changes you made on the road.

まず、 Authorsテーブルにアクセスして保存します。First, access and save the Authors table.

'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  

この時点で、宛先に到達しました。At this point, you have arrived at your destination. Authorsテーブルには、ローカルの接続されていないレコードセットとしてアクセスします。You will access the Authors table as a local, disconnected Recordset. 保存したファイルにアクセスするために使用しているコンピューターには、 Mspersistプロバイダーが必要です。 a:\Pubs.xml.You must have the MSPersist provider on the computer that you are using to access the saved file, a:\Pubs.xml.

Attribute VB_Name = "Save"  

最後に、[ホーム] を返します。Finally, you return home. 次に、変更を使用してデータベースを更新します。Now update the database with your changes.

Attribute VB_Name = "Save"  

参照See Also

Open メソッド (ADO Recordset) Open Method (ADO Recordset)
Recordset オブジェクト (ADO) Recordset Object (ADO)
レコードセットの永続性の詳細 More About Recordset Persistence
Save メソッドSave Method