1、问题描述

最近在写vb.net的时候，碰到了一个有点棘手的问题。就是在vb里面去解决一对多的关系。

对应关系如下，一个合同会对应多个开票。

最简单暴力的方法就是循环查询了，但是这样子肯定不行的。如果是java的话可以写个合同BO类，然后里面有个List<开票类>，但我用的语言是vb，没有java这么好用。后来我去和其他同事请教，才知道在vb.net  ADO里面有个操作，可以操控sql语句的返回形式叫：shape append relate。

2、解决方法

wsc

Public Function ListAAA()

	dim cn,rs,sSQL

	Set cn = CreateObject("ADODB.Connection")

	Set rs = CreateObject("ADODB.Recordset")

	cn.Open CS_RS

	cn.CursorLocation = 3

	sSQL = sSQL & "SHAPE{"

	sSQL = sSQL & "select top 100 A.ID,A.ContractNumber from Intranet..tbTestSaleContract A "

	sSQL = sSQL & "}"

	sSQL = sSQL & "APPEND"

	sSQL = sSQL & "({"

	sSQL = sSQL & "select B.ID as invoiceId,B.contractId,B.InvoiceType from Intranet..tbTestInvoiceApply B where B.contractId=? "

	sSQL = sSQL & "}"

	sSQL = sSQL & "RELATE ID TO PARAMETER 0"

	sSQL = sSQL & ") as rsBillingInfo"

	rs.Open sSQL,cn

	Set ListAAA = rs

End Function

asp

<%

Response.Charset="gb2312"

Set dbTest = CreateObject("dbTest.wsc")

Set rs=dbTest.ListAAA()

do while not rs.eof

    Set rs1=rs("rsBillingInfo").value

    do while not rs1.eof

    Response.write "合同号："&rs("ContractNumber")&"，"&"开票类型："&rs1("InvoiceType")&"，"&"开票ID："&rs1("invoiceId")&"<br/>"

    rs1.MoveNext

    loop

rs.MoveNext

loop

%>

或者我把wsc和asp合并一下，直接在前端asp使用ADO技术操作数据库

<%

Response.Charset="gb2312"

dim cn,sSQL,CS_RS

Set cn = CreateObject("ADODB.Connection")

CS_RS="Driver={SQL Server};Server=127.0.0.1;Uid=xxx;Pwd=xxxx;Provider=xxx;Database=xxxx;"

sSQL = sSQL & "SHAPE{"

	sSQL = sSQL & "select top 100 A.ID,A.ContractNumber from Intranet..tbTestSaleContract A "

	sSQL = sSQL & "}"

	sSQL = sSQL & "APPEND"

	sSQL = sSQL & "({"

	sSQL = sSQL & "select B.ID as invoiceId,B.contractId,B.InvoiceType from Intranet..tbTestInvoiceApply B where B.contractId=? "

	sSQL = sSQL & "}"

	sSQL = sSQL & "RELATE ID TO PARAMETER 0"

	sSQL = sSQL & ") as rsBillingInfo"

cn.Open CS_RS

Set rs=cn.Execute(sSQL)

do while not rs.eof

    Set rs1=rs("rsBillingInfo").value

    do while not rs1.eof

    Response.write "合同号："&rs("ContractNumber")&"，"&"开票类型："&rs1("InvoiceType")&"，"&"开票ID："&rs1("invoiceId")&"<br/>"

    rs1.MoveNext

    loop

rs.MoveNext

loop

rs.Open sSQL,cn

%>

test页面输出

说明：

shape append relate的基本语法为：

shape {select ...} append ({select ...} RELATE ID TO PARAMETER 0,ID TO PARAMETER 1) 

3、总结

ADO是.NET操作数据库的一种技术，和java中常用的jdbc类似。不过现在除了一些比较老的系统还在用.NET技术，IIS搭建网站以外，基本比较少见了。.NET正在逐渐慢慢地开始被其他技术取代了。从我日常工作的感觉确实vb不如java，python，c++这类的语言方便，没有那么多的开源库支持，网上能找到的资料也很有限。

4、参考资料

ADO中的多层次数据集,类似于dataset_weixin_30808575的博客-CSDN博客

参数化命令的操作 | Microsoft Docs

ADO 教程 | 菜鸟教程 (runoob.com)

shape {select ...} append ({select ...} RELATE ID TO PARAMETER 0,ID TO PARAMETER 1)的相关教程结束。