StayInSync 属性范例 (VB)

本范例演示 StayInSync 属性如何方便地访问分级 Recordset 的行。

外循环显示每个作者的姓名、州/省别和标识。每行追加的 Recordset 都从 Fields 集合进行检索，一旦父 Recordset 移至新行，StayInSync 属性即自动将其分配给 rsttitleAuthor。内循环显示追加的记录集中每行的四个字段。

Public Sub Main()
    StayInSyncX
End Sub

Public Sub StayInSyncX()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rstTitleAuthor As New ADODB.Recordset

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "DSN=Pubs;Provider=MSDataShape;Data Provider=MSDASQL;"
rst.StayInSync = True
rst.Open "SHAPE  {select * from Authors} " & _
                    "APPEND ({select * from titleauthor}" & _
                    "RELATE au_id TO au_id) AS chapTitleAuthor", _
                    cnn, , , adCmdText
Set rstTitleAuthor = rst("chapTitleAuthor").Value
While Not rst.EOF
    Debug.Print rst!au_fname & " " & rst!au_lname & " " & _
                    rst!state & " " & rst!au_id
    While Not rstTitleAuthor.EOF
        Debug.Print rstTitleAuthor(0) & " " & rstTitleAuthor(1) & " " & _
                    rstTitleAuthor(2) & " " & rstTitleAuthor(3)
        rstTitleAuthor.MoveNext
    Wend
    rst.MoveNext
Wend
End Sub