跨过程调用场景下的错误传播与数据库事务回滚问题咨询

背景 #

最初为实现功能，我为所有数据库代码大量使用if [catch {db eval {...}} result catchDict]语句，随后尝试将其包裹在事务中。

为重新抛出捕获的错误，我尝试了以下代码：

if [catch {db eval {...}} result catchDict] {
  dict incr catchDict -level 2
  return -options $catchDict $result
}

这段代码能将错误向上传播至调用过程，但搭配db transaction {...}时无效。我曾尝试：

if [catch {db transaction immediate {::DOCS::AppendToUndoChain $request}} result catchDict] {
puts "rolling back"
puts $result
puts $catchDict
}

此代码会在AppendToUndoChain出错时停止执行，但不会回滚该过程及其下层调用过程中已执行的数据库变更。

而以下代码可正常工作，无论错误发生在哪个调用层级，都能回滚所有操作：

db eval {begin immediate;}
if [catch {::DOCS::AppendToUndoChain $request} result catchDict] {
 db eval {rollback;}
 puts "Rolled back."
 puts $result
} else {
  db eval {commit;}
}

问题 #

1. 我在使用db transaction {...}或错误重抛时是否存在操作错误，导致无法跨所有过程回滚？
2. 是否真的需要为每个db eval {...}添加catch？还是仅在::DOCS::AppendToUndoChain调用外层添加一个catch即可，使该过程及其下层过程的所有错误都向上传播至这个catch，从而处理错误并回滚事务，让所有查询可写成set result [db eval {...}]而非if [catch {db eval {...}} result]？

我已尝试在不同层级的过程中引入各类错误，外层catch似乎能捕获所有错误并回滚完整事务，但想确认该方案是否可靠，以及可能存在哪些遗漏点。

解答 #

针对问题1：db transaction用法的问题 #

你遇到的db transaction不回滚的问题，核心是错误重抛时的层级处理破坏了db transaction的自动回滚逻辑。

Tcl的db transaction命令（以SQLite3的Tcl绑定为例）的工作机制是：代码块正常执行完毕自动commit，若代码块抛出未被捕获的错误，则自动触发rollback。但你在下层过程中用dict incr catchDict -level 2调整错误层级后返回，相当于篡改了错误的来源层级，导致db transaction的内部错误捕获逻辑无法识别代码块执行失败，因此没有触发自动回滚。

另外，当你用catch包裹db transaction本身时，若下层捕获错误并调整层级后返回，db transaction会误以为代码块已正常执行，不会触发内部的回滚流程。

而你手动使用begin/rollback/commit的方案能正常工作，是因为完全接管了事务的生命周期，错误直接触发你手动调用rollback，绕过了db transaction的自动处理逻辑。

针对问题2：不需要每个db eval都加catch #

完全不需要为每个db eval添加catch，只需要在事务的最外层添加一个catch（或依赖db transaction的自动错误处理）即可，理由如下：

• Tcl的错误会自动向上冒泡，只要下层过程没有捕获错误并吞掉，所有db eval抛出的错误都会传播到最外层的catch或db transaction的错误处理逻辑中。
• 只要事务处于活跃状态，任何未被捕获的错误触发的回滚（无论是手动还是db transaction自动触发），都会回滚整个事务周期内的所有数据库变更，不管错误发生在哪个调用层级。

可靠的方案建议

如果你想继续用db transaction的自动处理，需要调整错误重抛逻辑，不要修改错误的-level参数，直接原封不动地抛出错误：

# 下层过程中的错误处理，无需修改-level
if [catch {db eval {...}} result catchDict] {
  return -options $catchDict $result
}

然后外层调用：

if [catch {db transaction immediate {::DOCS::AppendToUndoChain $request}} result catchDict] {
  puts "事务已回滚"
  puts "错误信息: $result"
} else {
  puts "事务已提交"
}

这样db transaction会在代码块抛出错误时自动执行回滚，无需手动调用rollback。

需要注意的遗漏点

• 禁止在下层过程中手动调用commit或rollback：这会提前结束事务，导致后续数据库操作不在事务范围内，外层回滚逻辑失效。
• 确保所有数据库操作共用同一个连接：如果db句柄是全局共享的则没问题；若每个过程创建新连接，事务无法跨连接生效。
• 不要吞掉非数据库错误：业务逻辑抛出的错误同样要确保能正常冒泡到外层，触发回滚，禁止在下层用catch吞掉错误却不重新抛出。
• 确认事务隔离级别：你设置的immediate隔离级别要符合业务需求，避免脏读或锁竞争导致的隐性问题。

内容的提问来源于stack exchange，提问作者Gary