发信人: johnnyxu()
整理人: (1999-08-25 23:55:14), 站内信件
|
VB Tip(10) -- 存取分层记录集(Hierarchical Recordset)
1、向VB项目添加一个Data Environment Desinger(以下简称DED)
2、在DED中,右击Connection1,在快捷菜单中选'Properties...',
打开Data Link Properties对话框
3、在对话框的Provider页中选MSDataShape,在Connection页中输入:
Data Source : '数据库服务器名称'
User : '用户名'
Enter the ini Catalog to use: '数据库名称'
选中'Blank Pas'和'Allow saving Password'后关闭对话框
4. 在DED中添加一Command(Command1),右击Command1,在快捷菜单中
选'Properties...'.
5. 在SQL Statements中输入Shape SQL语句:
SHAPE {select * from table1} AS rsTable1
APPEND ({select * from table2} AS rsChildTable2
RELATE 'ID' TO 'ID') AS rsChildTable2
以上语句中,Table1和Table2以字段ID连接,在DED中,Table2以
rsChildTable2出现在Command1的字段列表中,因此Table2可视为
Table1的一个字段。
用以下代码引用分层Recordset:
DataEnvironment1.Command1
set Rs=DataEnvironment1.rsCommand1
set ChildRs=Rs.Field("rsChildTable2").Value
Rs的字段rsChildTable的值是一个子Recordset。如果一个字段是
一个Recordset,则该字段的Type属性为adChapter:
Rs.Field("rsChildTable2").Type=adChapter
接下来您就可以用一般的方法存取分层Recordset了。
John
[email protected]
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.253.137]
|
|