7,785
社区成员
发帖
与我相关
我的任务
分享SHAPE指令急
在VB中，如何写SHAPE指令，它有COMPUTE命令，如何在DATAREPORT用这SHAPE指令？
有详细的资料，请说或TO：hongley@peoplemail.com.cn
有详细的资料，请说或TO：hongley@peoplemail.com.cn
...全文
请发表友善的回复…
发表回复
playyuer 2001-12-14
- 打赏
- 举报
关于数据构形的问题
http://www.csdn.net/oldexpert/TopicView.asp?id=121270&table=200101
http://www.csdn.net/oldexpert/TopicView.asp?id=121270&table=200101
cuiyxy 2001-12-14
- 打赏
- 举报
看一看这个帮助
C:\WINNT\Help\ADO210.CHM
C:\WINNT\Help\ADO210.CHM
adafirst3219 2001-12-14
- 打赏
- 举报
市面上有一本《Visual Basic 6.0 数据库开发指南》，
richard_1 2001-12-14
- 打赏
- 举报
例子：
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
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
