| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
ADSL如何秒变专线,公网IP盒子了解一下千里之行 始于足下
共有 217 人关注过本帖
标题:关于远程访问数据,如何完善事物管理
只看楼主 加入收藏
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:328
专家分:10
注 册:2014-1-16
结帖率:92.45%
  问题点数:20  回复次数:9   
关于远程访问数据,如何完善事物管理
我有一个小程序,需要同时远程添加记录到一个表和修改另外一个表,我的要求是两个操作必须都执行成功,如果一个失败了,则另外一个也取消,请问应该怎么做,能否帮我完善下,我的代码如下:
程序代码:
                   thisform.Enabled=.f.  &&查询期间不能再点击
                  WAIT "请稍等,正在上传数据" WINDOW AT 25,85 nowait
                  thisform.lianjie  &&生成字符串
                  IF  nhandle<=0    &&连接不成功
                       wait clear
                       MESSAGEBOX("数据库连接失败!!!",0,"错误信息") 
                             
                  ELSE     &&连接成功
                                  PUBLIC ac1,ac2
                                  Ac2=SQLEXEC(nhandle,"insert into jl (dw,ch,wz,qf) values (?dw_mc,?ch_value,?ziduan_name,?ziduan_value)")
                          Ac1=SQLEXEC(nhandle,"update ygc set &ziduan=?ziduan_value,sj=?shijian_value  where id=?ygc_id ")
                               
                                
                                  IF  Ac1>0 AND ac2>0
                                       = SQLDISCONNECT(nhandle) &&关闭连接
                                      wait CLEAR  &&清除等待窗口
                                      success=.t.
                                      RELEASE thisform
                                  ELSE
                                       = SQLDISCONNECT(nhandle) &&关闭连接
                                       wait CLEAR  &&清除等待窗口
                                       success=.f.
                                       MESSAGEBOX("返填数据失败!",0,"错误信息") 
                                       thisform.refresh        
                          
                                  ENDIF
                              
                    
                  endif   &&连接结束
                
                    thisform.Enabled=.t.  &&恢复正常状态
搜索更多相关主题的帖子: 远程 数据 thisform WAIT 连接 
2019-08-08 13:57
厨师王德榜
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:82
帖 子:515
专家分:1944
注 册:2013-2-16
  得分:0 
去看一下帮助文件,查一查 SQLCOMMIT( ) 和 SQLROLLBACK( )  两个的用法,你这个适合用事务管理,如果以前没有这方面的积累,需要你自己静下来看看.
一个是提交,另一个是回滚.
所以事务处理,最好包裹在try...end try 结构中进行,示例代码:
 SQLSETPROP(gnHandle, 'Transactions', 2)  && 定义事务处理的方式是通过"提交"或"回滚"
try
= SQLEXEC(gnHandle, "INSERT INTO authors (au_id, au_lname);
   VALUES ('aupoe', 'Poe')")  &&  
= SQLCOMMIT(gnHandle)  && 提交
catch ...
SQLROLLBACK( )  && 回滚
end try


[此贴子已经被作者于2019-8-13 13:31编辑过]

6 天前 13:27
wcx_cc
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:24
帖 子:235
专家分:589
注 册:2015-10-2
  得分:0 
使用连接的预编译语句!不要直接使用这种‘一步到位’式的操作, 比如:Ac1=SQLEXEC(nhandle, ...)"),Ac2=SQLEXEC(nhandle, ...)")。这2步都是一次到位的模式,想1次性同时进行两步处理,但还是分成了先后2次。请再仔细查阅帮助文件里的‘连接预编译语句’,应该能实现要求。(注:回滚与事务提交,比较适合于单次处理)


 
6 天前 22:10
radiofan
Rank: 2
等 级:论坛游民
帖 子:50
专家分:44
注 册:2006-7-30
  得分:0 
学习了
5 天前 08:41
xinjie
Rank: 6Rank: 6
等 级:贵宾
威 望:18
帖 子:247
专家分:484
注 册:2007-8-11
  得分:0 
以下是引用厨师王德榜在2019-8-13 13:27:29的发言:

去看一下帮助文件,查一查 SQLCOMMIT( ) 和 SQLROLLBACK( )  两个的用法,你这个适合用事务管理,如果以前没有这方面的积累,需要你自己静下来看看.
一个是提交,另一个是回滚.
所以事务处理,最好包裹在try...end try 结构中进行,示例代码:
 SQLSETPROP(gnHandle, 'Transactions', 2)  && 定义事务处理的方式是通过"提交"或"回滚"
try
= SQLEXEC(gnHandle, "INSERT INTO authors (au_id, au_lname);
   VALUES ('aupoe', 'Poe')")  &&  
= SQLCOMMIT(gnHandle)  && 提交
catch ...
SQLROLLBACK( )  && 回滚
end try

确定在执行出错时可以抛出错误?
5 天前 12:02
xuminxz
Rank: 8Rank: 8
等 级:贵宾
威 望:10
帖 子:307
专家分:879
注 册:2011-5-8
  得分:0 
回复 5楼 xinjie
似乎不能100%保证吧?我一直用笨办法,更新远程,用远程刷新本地视图,比较结果。

dBase有人接盘了。
4 天前 15:44
ljc2020
Rank: 2
等 级:论坛游民
威 望:1
帖 子:124
专家分:79
注 册:2019-7-25
  得分:0 
进来 学习一下
4 天前 15:46
radiofan
Rank: 2
等 级:论坛游民
帖 子:50
专家分:44
注 册:2006-7-30
  得分:0 
开始事物,完成所有数据操作,无误,完成事务并更新本地数据,其中任何一个有问题就回滚事务并不更新本地数据。我的系统就是这样做的。
3 天前 09:45
radiofan
Rank: 2
等 级:论坛游民
帖 子:50
专家分:44
注 册:2006-7-30
  得分:0 
以下是引用厨师王德榜在2019-8-13 13:27:29的发言:

去看一下帮助文件,查一查 SQLCOMMIT( ) 和 SQLROLLBACK( )  两个的用法,你这个适合用事务管理,如果以前没有这方面的积累,需要你自己静下来看看.
一个是提交,另一个是回滚.
所以事务处理,最好包裹在try...end try 结构中进行,示例代码:
 SQLSETPROP(gnHandle, 'Transactions', 2)  && 定义事务处理的方式是通过"提交"或"回滚"
try
= SQLEXEC(gnHandle, "INSERT INTO authors (au_id, au_lname);
   VALUES ('aupoe', 'Poe')")  &&  
= SQLCOMMIT(gnHandle)  && 提交
catch ...
SQLROLLBACK( )  && 回滚
end try



没错,就是这样的!
3 天前 09:46
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:328
专家分:10
注 册:2014-1-16
  得分:0 
这几天没有看帖子,以为没有人回帖,没有想到有这么多回帖,非常感谢,但我对这个还不怎么懂,要慢慢消化几天,等有疑问再出来,所以不能结贴,再次感谢
昨天 15:23







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024613 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved