使用Tcl和sqlite为SQL事务生成命令

我无法理解如何在列表中创建SQL命令批处理并将其传递给sqlite以便在事务中执行.

基本上我现在做的是:

sqlite3 db1 $dbFile
db1 eval BEGIN
foreach Key [array names myArray] {
    db1 eval {SQL statement involving $Key}
}
db1 eval COMMIT

我正在考虑使用SQL INSERT生成列表然后将其传递给db1事务或db1 eval的方法,但这对我来说似乎不起作用.也许我只是犯了一些stupin语法错误.有人有一个工作的例子吗？

谢谢!

我对"愚蠢的错误"是正确的.

db1 transaction {
    foreach Key [array names myArray] {
        db1 eval {SQL statement involving $Key}
    }
}