如何把下面的VBA函数改写成SQL函数?

yodong

把下面的VBA函数改写成SQL函数,如何写?

'各层的材料取出来加入到临时表中

Function NodeAdd1(parentID As String) '叠代函数

On Error GoTo aa

    Dim strSQL As String

    Dim sql1 As String

    Dim kk As String

    Dim rst As New ADODB.Recordset

    Dim cn As ADODB.Connection

    Set cn = CurrentProject.Connection

     strSQL = "select BOMID, 产品编号, 产品名称" & _

             " FROM dbo.CL_tblbom表 " & _

             " WHERE 父项 ='" & parentID & "'" & _

             " ORDER BY 产品名称"

     rst.Open strSQL, cn, adOpenDynamic, adLockReadOnly

    If rst.RecordCount = 0 Then Exit Function

    rst.MoveFirst

    On Error Resume Next

    Do While Not rst.EOF()

        '==============加入各层的材料

                 kk = rst("BOMID")

                 sql1 = "SELECT 物品编码,物品名称,单位,标准用量,层次,BOMID FROM  dbo.CL_tblbomsub WHERE BOMID ='" & kk & "'"

                 cn.Execute ("INSERT INTO dbo.展开临时表 (物品编号, 物品名称, 单位, 标准用量, 层次,BOMID) " & sql1)

        '=============='加入各层的材料

        NodeAdd1 (kk)

    rst.MoveNext

    Loop

    rst.Close

bb:

  Exit Function

aa:

MsgBox Err.Description, , sysstr

Resume bb

End Function

各位朋友,我想把上面这个函数改写成sql函数.

如下面:

ALTER FUNCTION dbo.bomjk

(

@bomid varchar(50)

)

RETURNS @bom table (

id int identity primary key,

BOMID varchar(50),

产品名称 varchar(150),

物品编号 varchar(150),

物品名称 varchar(150),

标准用量 int,

单位 varchar(50),

层次 int

)

AS

BEGIN

declare @bom1 varchar(50)--声明一个接受变量的值

INSERT INTO @bom (物品编号, 物品名称, 单位, 标准用量, 层次,BOMID) SELECT 物品编码,物品名称,单位,标准用量,层次,BOMID FROM  dbo.CL_tblbomsub WHERE BOMID = @bomid

declare mybom_cu cursor fast_forward for  --声明游标

select  BOMID FROM dbo.CL_tblbom表  WHERE 父项 =@bomid

         open mybom_cu  

     fetch next from mybom_cu into @bom1

         while @@fetch_status=0

  BEGIN

            INSERT INTO @bom (物品编号, 物品名称, 单位, 标准用量, 层次,BOMID)

                  SELECT 物品编码,物品名称,单位,标准用量,层次,BOMID FROM  dbo.CL_tblbomsub WHERE BOMID = @bom1

              --Execute BOMJK @BOM1

                 fetch next from mybom_cu into @bom1

             END

       RETURN

END



qwer(124242234) 17:19:41

是不是SQL函数不能执行它本身.

Execute BOMJK @BOM1

yodong

看来后台比较难,只能在前台完成了.

ADAM

你的BOM表體系是怎麼設計的呢.交流一下.

我的是這樣的.三個表BOM1(主表),BOM2(子表),ITEMMASTER(材料表,放置成品,半成品,原材料等)

BOM1結構(父編號,建檔日期,修改日期)

BOM2結構(父編號,行號,子編號,單位用量,損耗率,備注)

ITMEMASTE結構(編號,品名,規格,單位,庫存類別,單價,備注...)

做一個叫做材料BOM的查詢.結構為(父編號,最底層子編號,最底層單位用量,第1層子編號,第1層單位用量,...第4層單位用量)這里的子編號是展開至最底層的材料.

展開時,直接套用展開的父編號產量*BOM查詢,就可以知道最底層需要哪些材了.

1.我覺得對材料定義層次有點行不通,因為在我的BOM表中,每個半成品或材料都可能在每一個層次.

2.還有,為什麼要將展開的追加至臨時表中呢,會讓速度很慢的啊?

3.追加時不對用量進行換算嗎,如:第三層用量=第1層用量*第2層用量*第三層用量才對啊.

你是怎麼做的呢?????

[此贴子已经被作者于2005-10-8 10:14:50编辑过]

yodong

哈哈,ADAM你好,还记得我以前向你请教过吗?我正是根据你的贴子的方法来做的呀.表的结构跟你的差不多,只不过加多了几个版本呀,建立人什么的字段.你说的做个查询我不会做呀,所以只能每一层的追加到临时表中.慢,不是很慢呀

ADAM

給你看看比較暈的,這是我的查詢,你將其中的表名,字段替換成你的.再試試看.就知查詢怎麼做.這是材料BOM(bom2_base你把它當成bom2得了)SELECT BOM2_Base.父編號, CASE WHEN BOM2_BASE1.子編號 IS NULL

      THEN BOM2_BASE.子編號 WHEN BOM2_BASE2.子編號 IS NULL

      THEN BOM2_BASE1.子編號 WHEN BOM2_Base3.子編號 IS NULL

      THEN BOM2_BASE2.子編號 ELSE BOM2_BASE3.子編號 END AS 子編號0,

      round(CASE WHEN BOM2_BASE1.子編號 IS NULL

      THEN ISNULL(BOM2_Base.單位用量, 1) * (1 + ISNULL(BOM2_Base.損耗率, 0))

      WHEN BOM2_BASE2.子編號 IS NULL THEN ISNULL(BOM2_Base.單位用量, 1)

      * (1 + ISNULL(BOM2_Base.損耗率, 0)) * ISNULL(BOM2_Base1.單位用量, 1)

      * (1 + ISNULL(BOM2_Base1.損耗率, 0)) WHEN BOM2_Base3.子編號 IS NULL

      THEN ISNULL(BOM2_Base.單位用量, 1) * (1 + ISNULL(BOM2_Base.損耗率, 0))

      * ISNULL(BOM2_Base1.單位用量, 1) * (1 + ISNULL(BOM2_Base1.損耗率, 0))

      * ISNULL(BOM2_Base2.單位用量, 1) * (1 + ISNULL(BOM2_Base2.損耗率, 0))

      ELSE ISNULL(BOM2_Base.單位用量, 1) * (1 + ISNULL(BOM2_Base.損耗率, 0))

      * ISNULL(BOM2_Base1.單位用量, 1) * (1 + ISNULL(BOM2_Base1.損耗率, 0))

      * ISNULL(BOM2_Base2.單位用量, 1) * (1 + ISNULL(BOM2_Base2.損耗率, 0))

      * ISNULL(BOM2_Base3.單位用量, 1) * (1 + ISNULL(BOM2_Base3.損耗率, 0)) END, 4)

      AS 單位用量0, BOM2_Base.子編號 AS 子編號1, BOM2_Base.單位用量 AS 單位用量1,

      BOM2_Base.損耗率 AS 損耗率1, BOM2_Base1.子編號 AS 子編號2,

      BOM2_Base1.單位用量 AS 單位用量2, BOM2_Base1.損耗率 AS 損耗率2,

      BOM2_Base2.子編號 AS 子編號3, BOM2_Base2.單位用量 AS 單位用量3,

      BOM2_Base2.損耗率 AS 損耗率3, BOM2_Base3.子編號 AS 子編號4,

      BOM2_Base3.單位用量 AS 單位用量4, BOM2_Base3.損耗率 AS 損耗率4

FROM dbo.BOM2_Base LEFT OUTER JOIN

      dbo.BOM2_Base BOM2_Base1 ON

      dbo.BOM2_Base.子編號 = BOM2_Base1.父編號 LEFT OUTER JOIN

      dbo.BOM2_Base BOM2_Base3 RIGHT OUTER JOIN

      dbo.BOM2_Base BOM2_Base2 ON BOM2_Base3.父編號 = BOM2_Base2.子編號 ON

      BOM2_Base1.子編號 = BOM2_Base2.父編號

yodong

呵呵,真的比较晕

yodong

你有没有加权平均法的算法模块,共享一下.