using tcl, sqlite and dbedit

dbeditExample.tcl

package require Tk
package require sqlite3
source "dbedit.tcl"

# open example.db or create if absent
# dbhandle is how we access the db
set dbName ":memory:"
sqlite3 dbhandle $dbName

# set up sql to create & populate table
set createString { DROP TABLE IF EXISTS "rows";
DROP TABLE IF EXISTS "numbers";
CREATE TABLE "rows" (
  "col1" TEXT, 
  "col2" TEXT, 
  "col3" TEXT);

CREATE TABLE "numbers" (
  "number1" INTEGER, 
  "number2" INTEGER, 
  "number3" INTEGER);

INSERT INTO "rows"("col1", "col2", "col3") 
VALUES ('one', 'two', 'three')
,('four','five','six');

INSERT INTO "numbers"("number1", "number2", "number3") 
VALUES (1, 2, 3)
,(4,5,6);
}

# execute sql
dbhandle eval $createString

# create a 'UI' with a button which invokes dbedit on $dbhandle
set blurb "Example use of dbedit.tcl from 
https://www.sqlite.org/cvstrac/wiki?p=TclDbEdit"
pack [text .e1 -width 50 -height 2 ]
.e1 insert 1.0 $blurb
.e1 configure -relief flat
.e1 configure -bg gray80
.e1 configure -state disabled 
pack [label .l2 -text "Press the button to look at example.db
- this will open another window."]

# and this it where it happens
pack [button .b -text "view $dbName" -command "dbedit::start dbhandle"]

Looking for code examples pertinent to a CRUD tcl app I came across dbedit.tcl, explained here and downloadable from here

This is how I got it to work.