Save メソッドと Open メソッドの使用例 (VB)

これらの 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としてアクセスします。 保存されたファイルへのアクセスに使用するコンピューターに、MSPersist プロバイダーが必要です。a:\Pubs.xml。

Attribute VB_Name = "Save"  

最後に、あなたは家に帰ります。 次に、変更内容でデータベースを更新します。

Attribute VB_Name = "Save"  

関連項目

Open メソッド (ADO Recordset)
Recordset オブジェクト (ADO)
レコードセットの永続化 の詳細を する
Save メソッドの