關於Data Shaping技術,特急!!

[Jameszht]

我的工程用到data shaping.

數據源的提供者應是MsDataShape，但是在connecton.open中,系統提示，不能初始化數據源.

如果提供者是sqloledb.1，在recordset.open中則提示語法錯誤。請在這方面有經驗的同志們給予幫助.

[kevincomein]

以下范例说明了访问分级 Recordset 中的行的所需步骤：

authors 和 titleauthors 表中的 Recordset 对象通过 author ID 进行关联。


外循环显示每个作者的姓名、州/省别和身份。


每行所追加的 Recordset 都从 Fields 集合进行检索并分配给 rsChapter。


内循环显示追加的 Recordset 中每行的四个字段。
范例

Sub datashape()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rsChapter As Variant

cnn.Provider = "MSDataShape"
cnn.Open "Data Provider=MSDASQL;" & _
"DSN=vfox;uid=sa;pwd=vfox;database=pubs”
'步骤 1
rst.StayInSync = FALSE
rst.Open "SHAPE {select * from authors}
APPEND ({select * from titleauthor} AS chapter
RELATE au_id TO au_id)",
cnn
'步骤 2
While Not rst.EOF
Debug.Print rst("au_fname"), rst("au_lname"),
rst("state"), rst("au_id")
'步骤 3
Set rsChapter = rst("chapter")
'步骤 4
While Not rsChapter.EOF
Debug.Print rsChapter(0), rsChapter(1),
rsChapter(2), rsChapter(3)
rsChapter.MoveNext
Wend
rst.MoveNext
Wend
End Sub

[Jameszht]

但是系統不能初始化MSDateShape數據源，是怎麼回事?

[Jameszht]

up