階層式RecordSet物件--Shape...Append－Jiang Ying-Fu的部落格

階層式RecordSet物件

1.設定Connection物件的Provider屬性
(1)登錄「Microsoft Activex Data Objects 2.0 Library」
(2)將Connection物件的Provider屬性設定成「MS DataShape」
例：cn.Provider="MS DataShape"

2.設定Connection物件的ConnectionString屬性
把Connection物件的ConnectionString屬性，設定成各類資料庫所對應的OLE DB Provider
例：cn.ConnectionString="Data Provider=Microsoft.Jet.OLEDB.4.1;Data Source=Book.mdb"

3.執行Shape Append指令

語法：
Shape { parent-command } [[AS] table-alias]
Append ({child-command} [[AS] table-alias]
Relate parent-column To child-column

參數：

parent-command：產生父RecordSet物件的SQL敘述
child-command：產生子RecordSet物件的SQL敘述
table-alias：可省略，製成的RecordSet物件的名稱
parent-column：父RecordSet物件的關聯欄位
child-column：子RecordSet物件的關聯欄位

範例：

shpae { select 作者碼 , 作者名 from 作者 }
append ( { select 作者 , 書名 , 分類 , 售價 from 書籍 } as authorbook
relate 作者名 to 作者

引用子RecordSet物件
1.使用索引編號
rs.Fields(2)
2.使用子RecordSet物件名稱
rs.Fields("authorbook")
3.使用驚嘆號
rs.Fields!authorbook
4.省略Fields集合物件
rs.!authorbook

引用子RecordSet物件的欄位內容
1.使用索引編號
rs.Fields("authorbook").Value(1)
2.使用欄位名稱
rs.Fields("authorbook").Value("書名")
3.使用驚嘆號
rs.Fields("authorbook").Value!書名
4.省略Value屬性
rs.Fields("authorbook")!書名

以新的RecordSet物件引用子RecordSet物件
Dim rssub As ADODB.RecordSet
Set rssub = New ADODB.RecoreSet
Set rssub = rs.Fields("authorbook").Value
rssub!書名