使用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插入生成一个列表，然后将其传递给db1事务或db1 eval，但这似乎对我不起作用。也许我只是犯了一些愚蠢的语法错误。有人有一个有效的例子吗

谢谢

关于“愚蠢的错误”我是对的

---

+1：这是处理数组中每个元素的SQL语句的事务的正确方法。

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