对数据构型的小测试

状态一 使用数据构型

<!-- METADATA TYPE="TypeLib" UUID="00000200-0000-0010-8000-00AA006D2EA4" -->
<%
Set Connection = Server.CreateObject("ADODB.Connection")
ConnectionString = "Provider=MSDataShape;DATA PROVIDER=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=123;Initial Catalog=Northwind;Data Source=(local)"
Connection.Open(ConnectionString)

SQL = _
"SHAPE {SELECT CustomerID FROM Customers} "&_
"APPEND ({SELECT OrderID,CustomerID FROM Orders} AS chapOrders "&_
"RELATE customerID TO customerID)"

Set Rs = Connection.Execute(SQL)

Do While not Rs.Eof
Response.Write(Rs(0) &" - "& Rs.Fields.Count)
Response.Write("<br>")
  Set RsChild = Rs("chapOrders").Value
  Do While Not RsChild.EOF
    Response.Write( RsChild(0) &"