标题: [原创] 一个常见Sql问题的解决 [打印本页]

---

作者: 网事如风    时间: 2007-1-4 15:30     标题: [原创] 一个常见Sql问题的解决

一个常见Sql问题的解决

很多时候我们都需要实现如下的功能：

表TableM
结构如下：



数据如下：


表TableD
         结构如下：

数据如下：

         
需要实现的功能如下：
      

具体的就不说了，大家仔细看了这几张图就知道实现什么了^-^

实现起来最直接方法就是用游标了，而且是嵌套游标，这个当然效率相当低了，不过随后会给出更好的实现方法^-^

这个方法需要建立一个临时表TableResult，它只有一个字段AllStr!!

SQL代码如下:

--方法一：嵌套游标

--表名            字段名

--TableD        AStr        BStr    CStr
--TableM        AStr        BStr   
--TableResult        AllStr

--符合条件的数据放到表TheSameRecord
Select     TableD.AStr,TableD.BStr,TableD.CStr
Into     TheSameRecord
From     TableM,TableD
Where     TableM.AStr = TableD.AStr And TableM.BStr = TableD.BStr

Declare @AStr VarChar(50)
Declare @BStr VarChar(50)
Declare @CStr VarChar(50)

Declare @AllCStr VarChar(500)
Set @AllCStr = ''

Declare @iNext Bit
Set @iNext = 0


--外层游标
Declare Outer_Cursor Cursor For
Select Distinct AStr,BStr From TheSameRecord

Open Outer_Cursor

Fetch Next From Outer_Cursor Into @AStr, @BStr

While @@Fetch_Status = 0
Begin
    --内层游标
    Declare Inner_Cursor Cursor For
    Select CStr From TheSameRecord Where AStr = @AStr And BStr = @BStr
   
    Set @AllCStr = ''
   
    Open Inner_Cursor
   
    Fetch Next From Inner_Cursor Into @CStr
    While @@Fetch_Status = 0
    Begin
        Set @AllCStr = @AllCStr + @CStr + ','
        Fetch Next From Inner_Cursor Into @CStr
    End

    if (@iNext = 0)
    Begin
        Delete TableResult
        Set @iNext = 1
    End

    Insert Into TableResult (AllStr) Values (SubString( @AllCStr,1, Len(@AllCStr)-1))
   
    Print SubString( @AllCStr,1, Len(@AllCStr)-1 )

    Close         Inner_Cursor
    DealLocate     Inner_Cursor

    Fetch Next From Outer_Cursor Into @AStr, @BStr
End
Close         Outer_Cursor
DealLocate     Outer_Cursor


--删除表TheSameRecord
Drop Table TheSameRecord

Select * From TableResult


结果如下:

但是马上又想到了另外一种方法实现，因为函数本身就可以对数据进行循环，那么如果用函数来实现的话，
一则效率高，
二则代码量少

那么就有如下实现了：
--方法二：函数
Create Function AddStr(@AStr VarChar(50), @BStr VarChar(50))
Returns VarChar(8000)
As
Begin
    Declare @ALLStr Varchar(8000)
    Set @ALLStr=''

    Select @ALLStr = @ALLStr + ',' + Cast(CStr As VarChar) From TheSameRecord
    Where AStr  = @AStr And BStr = @BStr

    Set @ALLStr = Right(@ALLStr,Len(@ALLStr)-1)
    Return(@ALLStr)
End

Go

Select     TableD.AStr,TableD.BStr,TableD.CStr
Into     TheSameRecord
From     TableM,TableD
Where     TableM.AStr = TableD.AStr And TableM.BStr = TableD.BStr

Go

Select Distinct AStr,BStr,dbo.AddStr(AStr,BStr) As AllStr From TheSameRecord

Drop Table TheSameRecord



结果如下:



Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1420050

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0