为什么事务提交失败？挂机等。。。

Dim   cn           As   ADODB.Connection  
  Dim   rs           As   ADODB.Recordset  
  Dim   sql           As   String  
  Dim   intTrans           As   Integer  
  rs.CursorLocation   =   adUseClient  
  cn.ConnectionTimeout   =   10  
  cn.open  
  cn.open   "Provider=MSDAORA.1;Password=1234;User   ID=system;Data   Source=whjk;Persist   Security   Info=True"  
  rs.open   "select   *   from   SYSTEM.DATA_CDC_ALL",   cn,   adOpenStatic,   adLockReadOnly  
   
  'dgData.Refresh   '   DBGrid刷新  
   
  On   Error   GoTo   Err_ProInfo  
   
  intTrans   =   cn.BeginTrans                       '开始更新事务  
  sql   =   "Delete   From   SYSTEM.DATA_CDC_ALL       "  
  cn.Execute   sql  
   
   
  cn.CommitTrans           '提交事务  
  intTrans   =   0  
  MsgBox   "数据提交成功!",   vbOKOnly   +   vbExclamation  
  Exit   Sub  
                                           
  Exit_ProInfo:  
                      Set   rs   =   Nothing  
                      Exit   Sub  
                                           
  Err_ProInfo:  
                      If   intTrans   =   1   Then   cn.RollbackTrans                           '错误回滚  
                      MsgBox   "数据提交失败!",   vbOKOnly   +   vbExclamation  
                      Resume   Exit_ProInfo  
   
  提示:数据提交失败!"   这段代码也是在CSDN上好心的兄弟提供的，不知道为什么？请指点一下 问题点数：20、回复次数：5Top

1 楼peterfcc（）回复于 2006-06-03 14:35:18 得分 0

自己顶一下Top

2 楼peterfcc（）回复于 2006-06-03 15:43:44 得分 0

期待好心的人。。。Top

3 楼yuvotesyg518（青出于蓝）回复于 2006-06-03 19:37:55 得分 10

定义对象的时候没有使用New？Top

4 楼yuvotesyg518（青出于蓝）回复于 2006-06-03 19:38:37 得分 0

如果真是那样的话连打开数据库连接都会出错啊。Top

5 楼fj182（阿花）回复于 2006-06-04 13:37:33 得分 10

执行第一句代码就发生错误了。Top

相关问题

• 帖主：peterfcc
• yuvotesyg518
• fj182

• Visual Basic类图书
• Visual Basic类源码下载