Question

我正在拟定一份Tcl申请,全文见Sqlite Db。目前,我可以通过Tcl前线将数据输入数据库。现在,我试图说明如何从Tcl前线在Sqlite Db内部显示数据。

经过很少的研究,我发现,树木观植被将很好地满足我的需求。我现在有以下法典:

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
}

在实施“火rch”程序时(丁顿活动),树图(z1)以第一名称和最后名称为标题。此外,Sqlite Db接连,然后关闭。

我想添加一些法典,把Sqlite Db的树木概览从连接Db和包装树木概览(z1)。是否有任何人了解用Sqlite的数据来填满Tcl树苗的正确合成物?

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
}

这利用了这样一个事实,即Kallite与Tcl公司完全融为一体。

Answer 2

在经过几个小时的试验和错误之后,我最后想到如何用q子数据播种树苗。不幸的是,如果其他人有这一问题,我无法找到任何网络资源,答案是:

set z1 [ttk::treeview .c1.t1 -columns {first last} -show headings]

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

基本上,z1是多栏(树木)清单,火rch是按纽扣顺序排列的程序。树苗一生,一头和最后名字,与每栏对应。

友情链接