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

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)