如何使用Ado的Shape命令

Question

如何使用Ado的Shape命令就是如何操作主子表的问题
http://community.csdn.net/Expert/topic/4518/4518394.xml?temp=.3160517

Answer 1

在MSSQL联机丛书中，索引查找框中输入Shape，选中Shape Language，可显示非常详细的说明，你仔细看看。其中有一例子Writing sGetTitleAuthors Code，使用Shape指令，可取出父记录集
rstParent的相关信息，父记录集中title_chap对应子记录集，即Set rstChild = rstParent("title_chap").Value，由此可访问子记录集

Answer 2

Rst2.Open "shape { select tCardID from tUser} append ({select * from sUser} relate tcardID to sCardID)", Cnn2, 3, 2
参考参考吧

Answer 3

比如，你人一个产品基本信息表(product),一个产品库存表(product_sku),由product的主键coid关联。那么试试如下代码：
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Sql As String
    
'连接数据库(Access)
    Set cn = New ADODB.Connection
    With cn
        .Provider = "MSDataShape"     '一定要这句
        .Open "Data Provider=Microsoft.Jet.OLEDB.4.0 ;" & _
            "Data Source=" & App.Path & "\db1.mdb;" & _
            "Persist Security Info=False"
    End With    Sql = "SHAPE {SELECT * FROM product} " & _
          "APPEND ({SELECT * FROM product_sku } " & _
          "RELATE coid TO coid)"    Set rs = New ADODB.Recordset
    rs.Open Sql, cn, adOpenStatic, adLockReadOnly    Set fg.DataSource = rs
    Set rs = Nothing
    Set cn = Nothingfg是MSHFlexGrid控件。这只是一个简单的示例，相关父子集的操作看看SHAPE帮助

Answer 4

使用数据环境能帮助你简便地创建Shape命令

Answer 5

建一个data project然后建command 和 child command在command上点右键，选最下面一项