[nscerqueira] Some examples of tcl and sqlite usage:

NOTE: the name of the database is opendb

   * Retrieve the names of the tables stored in a sqlite database:

======
   package require sqlite3

   sqlite3 opendb "database.db" ; # Open up an existing database or create a new empty one.
   set tableNames [opendb eval {SELECT tbl_name FROM sqlite_master}]
   puts $tableNames
======


   * Retrieve the names of the columns stored in a sqlite database(variable columnName):
====== 
   opendb eval "SELECT * FROM $tableName LIMIT 1" x {set columnName $x(*)} 
   puts $columnName
======

[jnc] You can also use the `PRAGMA` statement `table_info(table_name`) to retrieve column information. See http://sqlite.org/pragma.html for a list of all `PRAGMA` statements.

====== 
   set columns [opendb eval "PRAGMA table_info($tableName)"]
   puts $columns
======

   * Retrieve the row data from a table
======
   opendb eval "Select * FROM $i" values {
      set columnNames $values(*)
      foreach column $columnNames {
         set rowList $values($column)
      }
      puts $rowValues
   }
======

[JOB] Anyone interested in some date arithmetics - the sqlite database can do it all!
The classical '''days between date''' function the SQL way goes like this:

======
  -- note: sqlite doesn't need select ... from dual
  SELECT julianday ( current_date ) - julianday( DATE('....-09-25'));
======


----
!!!!!!
%|[Category Example]|[Category Database]|%
!!!!!!