sqlÓï¾ä²éѯÎÊÌâ Çë´óÏÀÖ¸µã

ÓÐÁ½¸ö±í
±íA
id bigtype
1    2222
2    3333
3    4444
4    5555
 
±íB
id bigtype smalltype
5    2222    8888
6    2222    9999
7    2222    0000
8    4444    0123
9    4444    5252

±íBÖеÄbigtypeÊǵ÷ÓõıíAÖеÄ

ÏëÊä³ö
2222
    8888  9999  0000
4444
    0123  5252
¾ÍÊDzúÆ·´óÀàСÀàÎÊÌâ

ÎÒ¸ÃÔõÑùÊä³ö  дsqlÓï¾ä  Çë¸÷λ´óÏÀ°ï°ïæ

ÎÒµÄQQ£º342542470
ÔÚÏߵȠ лл

---

VBScript code:

<%
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "MSDataShape"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AA.mdb;"
conn.Open
sql = "SHAPE {SELECT DISTINCT bigtype from A} " &_
"APPEND({SELECT bigtype, smalltype from B } AS DE " &_
"RELATE bigtype TO bigtype)"

Set de = Nothing
Set rs = CreateObject("ADODB.Recordset")
rs.Open sql, conn

Do While Not rs.eof
Response.Write rs(0).Value & "<br>"
Set de = rs(&