使用tdbc::mysql的prepare方法报错Exit code:3221225477，evaldirect正常

架构老林

2026-8-21

问题解答

问题回顾

测试了如下Tcl脚本（参数为示例）：

package require tdbc::mysql

tdbc::mysql::connection create test_conn -user test_admin -passwd test_passw -db test -host www.test.com -port 3306
set consulta "SELECT * FROM entes"
set sentencia [test_conn prepare $consulta ]
$sentencia foreach row {
puts $row
}
$sentencia close
test_conn close

执行后返回错误：Exit code:3221225477；但使用语句：

puts [test_conn evaldirect $consulta ]

却能正常得到正确结果。请问是prepare方法存在问题，还是使用有误？

首先，错误码3221225477对应Windows系统下的访问违规（Access Violation），属于内存读写错误，结合你的代码来看，大概率是prepare配合foreach的使用方式存在疏漏，而非方法本身的bug。

具体修正方案

规范结果集遍历的脚本格式
TDBC的statement foreach对代码块的执行逻辑有严格要求，直接输出字典类型的行对象在部分环境下可能触发内存问题。建议改用更稳妥的遍历方式：

$sentencia foreach row {
    # 遍历行内的字段和值，避免直接输出字典的内存引用问题
    dict for {column value} $row {
        puts "$column: $value"
    }
    puts "---"
}

如果需要快速输出整行内容，也可以用dict print格式化后输出：

$sentencia foreach row {
    puts [dict print $row]
}

提前判断结果集是否为空
部分旧版tdbc::mysql驱动在遍历空结果集时会触发内存错误，建议先检查结果集行数：

set sentencia [test_conn prepare $consulta]
if {[$sentencia rowcount] > 0} {
    $sentencia foreach row {
        puts [dict print $row]
    }
}
$sentencia close