For Each r As Row In Tables("SAP数据源").Rows
If r("表加载") = True Then
Dim qb As new QueryBuilder
qb.C
qb.TableName = r("表名")
qb.TableCaption = r("表描述")
qb.Selectstring = "select * f rom " & r("表名") & ""
qb.Build
Else
If DataTables.Contains(r("表名")) = True Then
DataTables.unload(r("表名"))
End If
End If
Next
此主题相关图片如下：加载数量过大时提出错误.png
我在运行上述代码加载表时，提示上述错误
（B2在.net里被中断，报错： [DB2/NT] SQL0952N 由于中断,处理被取消 SQLSTATE=57014
在DB2的开发过程中，今日运行了一个较为复杂的sql语句。使用DB2服务端的控制台，运行该sql大约需要1分钟左右。而，在.net下，开发的程序里，运行30秒后，就被打断了，爆出异常 [DB2/NT] SQL0952N 由于中断,处理被取消 SQLSTATE=57014。找了网上好多的资料，都没有结果。只在一篇ADO开发DB2的文章里找到了线索：
我们开发时，只注意到了connection的连接时长。事实上，connection过期时间属性，已经被设置为0了，且只读。所以默认是永不过期的。
而对于我们每次SQL语句的执行，事实上是和DB2.DBCommand直接相关的。有意思的是，DBCommand也有个CommandTimeout 属性，且可读可写。将其设置为0后，就不会爆出处理被中断的问题了。呵呵！）
那我现在将上述代码修改为
For Each r As Row In Tables("SAP数据源").Rows
If r("表加载") = True Then
Dim cmd As new SQLCommand
cmd.CommandTimeOut = 0
cmd.ExecuteNonQuery
Dim qb As new QueryBuilder
qb.C
qb.TableName = r("表名")
qb.TableCaption = r("表描述")
qb.Selectstring = "select * f rom " & r("表名") & ""
qb.Build
Else
If DataTables.Contains(r("表名")) = True Then
DataTables.unload(r("表名"))
End If
End If
Next
为什么上还要出现上述错误，应怎样修改代码
[此贴子已经被作者于2018/8/15 14:25:51编辑过]
加好友 
发短信
Post By：2018/8/13 23:04:00 [只看该作者]
