超难问题

鱼儿游游

不用临时表的方法，如何用SQL语句从左图显示的数据表得到图1、图2的记录集（即查找指定节点的所有子节点）：

gxy1000

{:soso_e112:}

t小宝

????

todaynew

很简单的问题嘛。有两种解决办法：
方法一：定义个数组，其元素存放各类ParentID，比如A（1）=“2,12,11”,A(2)="3,7"，剩下怎么搞法你懂的。
方法二：在商品分类表中增加一个字段，比如叫做Class，该字段用于存放ParentID之上的大类数据，剩下怎么搞法你懂的。

鱼儿游游

t小宝 发表于 2012-7-18 11:56
????

小宝，你有什么好方法？

t小宝

搞不懂你什么意思，这个SQL语句不是很简单么。。。
Select CategoryID,CategoryLabel From 商品分类表 Where ParentID=2
Select CategoryID,CategoryLabel From 商品分类表 Where ParentID=3

todaynew

鱼儿游游

t小宝 发表于 2012-7-18 15:44
搞不懂你什么意思，这个SQL语句不是很简单么。。。
Select CategoryID,CategoryLabel From 商品分类表 Whe ...

是要列出指定节点下的所有节点呀。

鱼儿游游

todaynew 发表于 2012-7-18 16:33

多谢斑竹出手，但不能完全达到我的要求，因为，数据源是动态的。

鱼儿游游

我现在的方法是用了临时表（LSB、LSB1）：调用下面的过程(GetAllSub)，生成的数据表LSB就是我要的结果。
我想实现：不用临时表，只用SQL语句也能得到同样结果的记录集。

1. Sub test()
   
2.     GetAllSub 2
   
3. End Sub
   
4. 
   
5. Public Sub GetAllSub(ByVal intParentID As Integer)
   
6.     Dim strSQL    As String
   
7.     Dim blnSaerch As Boolean
   
8.     strSQL = "SELECT CategoryID,CategoryLabel INTO LSB FROM GoodsCategory WHERE ParentID=" + CStr(intParentID)
   
9.     DoCmd.SetWarnings False
   
10.     DoCmd.RunSQL strSQL
    
11.    
    
12.     blnSaerch = True
    
13.     While blnSaerch
    
14.         strSQL = "SELECT CategoryID,CategoryLabel INTO LSB1 FROM GoodsCategory WHERE ParentID IN (SELECT CategoryID FROM LSB) AND CategoryID NOT IN (SELECT CategoryID FROM LSB)"
    
15.         DoCmd.RunSQL strSQL
    
16.         If DCount("CategoryID", "LSB1") > 0 Then
    
17.             strSQL = "INSERT INTO LSB (CategoryID,CategoryLabel) SELECT CategoryID,CategoryLabel FROM LSB1"
    
18.             DoCmd.RunSQL strSQL
    
19.         Else
    
20.             blnSaerch = False
    
21.         End If
    
22.     Wend
    
23. End Sub
    

复制代码