database - 使用 Sqlite 数据填充 Tcl Treeview

Question

我正在构建一个读取 Sqlite 数据库的 Tcl 应用程序。目前，我可以使用 Tcl 前端将数据输入数据库。现在，我正在尝试弄清楚如何从 Tcl 前端在 Sqlite Db 中显示数据。

经过一些研究，我发现 TreeView 小部件可以很好地满足我的需要。我现在有以下代码:

set z1 [ttk::treeview .c1.t1 -columns {1 2} -show headings]
$z1 heading #1 -text "First Name"
$z1 heading #2 -text "Last Name"

proc Srch {} {global z1
    sqlite3 db test.db
    pack $z1
    db close
}

当执行“Srch”过程(按钮事件)时， TreeView (z1) 出现，标题为 First Name 和 Last Name。此外，Sqlite Db 获得连接，然后关闭。

我想添加代码，在连接到 Db 和打包 TreeView (z1) 之间从 Sqlite Db 填充 TreeView 。有谁知道用来自 Sqlite 的数据填充 Tcl TreeView 的正确语法？

Answer 1

最好这样做:

proc Srch {} {
    global z1
    pack $z1
    foreach col {first last} name {First Last} {
        $z1 heading $col -text $name
    }
    sqlite3 db test.db
    db eval {SELECT first,last FROM t1} {
        $z1 insert {} end -values [list $first $last]
    }
    db close
}

这利用了 SQLite 确实与 Tcl 很好地集成的事实。