日期:2013-10-03  浏览次数:20414 次


一次在做到多个表同时更新的时候,出了些问题。

有必要写出来,惹起留意。

虽然多个DW(3个)各自对应的都是一个表,但这些表间存在着 关系,而且DW是同时更新。

比如:table_1 : ID ,   name ,sex .......

          table_2: ...ID(与table_1有对应关系), pro_1 ,pro_2......

          table_3: ...ID(与table_1有对应关系), reg_time.....

由于没有经验:

第一次,后两个DW里在设计的时候,没有选择与第一个表相关的 项----ID。

后来,发现无法更新。

只能从新设计,将table_2 和 table_3的ID项都分别选在各自的DW中,

但在界面中又不想让其出现,最好的办法---

设置他们的visable属性为False,也就是去掉属性里visable前的“钩”。

设计好后的编码中,我先开始的编码是:

if dw_1.update() = 1 then

    if dw_2.update() = 1 then

       if dw_3.update() = 1 then

            commit;

       else

            rollback;

       end if

    end if

end if

----------------------------

但最好还是写成下面比较好:

file://加的SQLCA属性的处理(通用目的)
boolean lb_Tran
lb_Tran = sqlca.AutoCommit
sqlca.AutoCommit = false

IF dw_1.Update() <> 1 THEN
   MessageBox("操作提示","dw_1 数据保存失败!")
   ROLLBACK;
   sqlca.AutoCommit = lb_Tran
   RETURN
ELSEIF dw_2.Update() <> 1 THEN
   MessageBox("操作提示","dw_2 数据保存失败!")
   ROLLBACK;
   sqlca.AutoCommit = lb_Tran
   RETURN
ELSEIF dw_3.Update() <> 1 THEN
   MessageBox("操作提示","dw_3 数据保存失败!")
   ROLLBACK;
   sqlca.AutoCommit = lb_Tran
   RETURN
ELSE
   COMMIT
END IF

------------------------------------------------------------------------