向高手求解多站点数据提交的SCRIPT！！！100分

[pigherd]

向高手求解多站点数据提交的SCRIPT！！！


提出问题：
在C/S中多站点同时提交的情况下，如何同步地完整地提交保存多个表A，B，C，D，E...中的数据？

保存要求：
1.保存方式要包含用DW的UPDATE（）函数和直接用UPDATE语句修改表中数据两种方式。
2.所有表必须同步保存，即要么所有表都保存成功，要么就都保存失败。
3.要有防止其中某一表用DW的UPDATE（）函数保存时由于已有其他站点修改了该表的数据而 导致保存失败的情况发生的解决办法。
4.尽最大可能令数据能够成功提交，尽量减少提交失败的几率。

兄弟的SCRIPT远未能达到上述要求，如下：

if dw_a.update() = 1 and dw_b.update() = 1 and ... then//保存用UPDATE（）函数提交的表
update C SET ... ; //保存用UPDATE语句提交的表
update D SET ... ;
.
.
.
if sqlca.sqlcode = 0 then //
commit;
mesagebox('','所有表均保存完毕!')
else
rollback;
mesagebox('','UPDATE语句提交导致失败!')
end if
else
rollback;
mesagebox('','UPDATE（）函数提交导致失败!')
end if



请有兴趣的高手改一下SCRIPT，希望能有脚本注释！
若能指出兄弟SCRIPT中的不当之处，当十分感激!
谢谢！

[zhanwei]

sqlca.autocommit = false

//^^^^
if dw_a.update() = 1 and dw_b.update() = 1 and ... then//保存用UPDATE（）函数提交的表
update C SET ... ; //保存用UPDATE语句提交的表
update D SET ... ;
.
.
.
if sqlca.sqlcode = 0 then //
commit;
mesagebox('','所有表均保存完毕!')
else
rollback;
mesagebox('','UPDATE语句提交导致失败!')
end if
else
rollback;
mesagebox('','UPDATE（）函数提交导致失败!')
end if


sqlca.autocommit = true
//^也可不要

[pigherd]

楼上的回答似乎也不完整,在线等待!

[pbsql]

把上面的改一改：
integer n1,n2,n3...
sqlca.autocommit = false
if dw_a.update() = 1 and dw_b.update() = 1 and ... then//保存用UPDATE（）函数提交的表
update C SET ... ; //保存用UPDATE语句提交的表
n1=sqlca.sqlcode
update D SET ... ;
n2=sqlca.sqlcode
......
if n1=0 and n2=0 and ... then //
commit;
mesagebox('','所有表均保存完毕!')
else
rollback;
mesagebox('','UPDATE语句提交导致失败!')
end if
else
rollback;
mesagebox('','UPDATE（）函数提交导致失败!')
end if


sqlca.autocommit = true
//^也可不要

[2000pinbo]

要有防止其中某一表用DW的UPDATE（）函数保存时由于已有其他站点修改了该表的数据而 导致保存失败的情况发生的解决办法。

解决办法：数据窗口放宽更新条件，update where clause 选择 key columns即可，不知道行不行

[pbsql]

你update后不commit别人就不能修改表的，自己锁住了

[pigherd]

希望有高手给出完整的解决方案!

[pigherd]

to pbsql(风云):
我update后有commit呀!

[pigherd]

哎，自己GZ一下！

[china_hfz]

if dw_a.update() = 1 and dw_b.update() = 1 and ... then改为:
if dw_a.update(true,false) = 1 and dw_b.update(true,false) = 1 and ... then

[liulee]

其实,dw的update函数和 update table .... 的原理是一样的,你在一个事务内处理都不会有问题的.
譬如
if dw_1.update(True,false) = 1 then
　　Update table set .....
　　if sqlca.sqlcode = 0 then
　　　　commit;
　　　　dw_1.resetupdate()
　　else
　　　　rollback;
　　end if
else
　　rollback;
end if

[liulee]

我的缩进是用全角空格做的，需要的话这里粘贴
下面一行包含了一个全角空格
　
上面一行包含了一个全角空格

[pigherd]

问题解决！放分！

感谢诸位热心捧场！

[ALLTEC]

int rtncode
rtncode = dw_2.Update(TRUE, FALSE)
IF rtncode = 1 THEN
rtncode = dw_4.Update(TRUE, FALSE)
IF rtncode = 1 THEN
rtncode = dw_log.Update(TRUE, FALSE)
END IF
END IF

IF rtncode = 1 THEN
COMMIT USING gnv_trans; // Commit them
dw_2.ResetUpdate()
dw_4.ResetUpdate()
dw_log.ResetUpdate()
ELSE
ROLLBACK USING gnv_trans;
END IF

[ALLTEC]

!!!!!!!!!!!!!!!!!

格式全变了 ?????????????