update sql 的难题，请高手支招。

Question

我想把Rs.Update 改写成 cnMain.Execute "sql语句"前提：我把Fld12设为字符串数据类型。Rs.Update 语句如下：Rs1.open ......
Rs1("Fld12") = CStr(Val(Rs1("Fld12") & "") + Jifen) '会员积分增加
Rs1.Update现想改写成cnMain.Execute "sql语句"strSQL = "Update Tlb001 Set Fld12=' & CAST((case Fld12 when null then 0 else cast(Fld12 as money) end) + Jifen) as VARCHAR) &'"cnMain.Execute  strSQL求strSQL准确的值，要排除Fld12为空，不为数值等异常情况。谢谢。

Answer 1

这样就可以：
Update Tlb001 
Set Fld12= cast(case when Fld12 IS null 
                          then 0 
                     else cast(Fld12 as money) 
                end + Jifen as VARCHAR) 

Answer 2

这样写更简洁一点：Update Tlb001 
Set Fld12= cast(isnull(cast(Fld12 as money),0) + Jifen as VARCHAR) 

Answer 3

要排除Fld12为空，不为数值等异常情况。求strSQL="???"
cnMain.Execute  strSQL