Kroc - Cette page regroupe des Trucs et astuces pour SQLite
Récupérer le nom des tables d'une base :
proc Tables {fichier} {
sqlite3 DB $fichier
set RES [DB eval [list SELECT name FROM SQLITE_MASTER WHERE type='table' ORDER BY name]]
DB close
return $RES
}Récupérer le nom des colonnes d'une table :
proc Colonnes {fichier table} {
sqlite3 DB $fichier
set RES ""
DB eval [list SELECT * FROM SQLITE_MASTER WHERE type='table' AND name='$table'] r {
foreach ligne [split [string range $r(sql) [string first ( $r(sql)]+1 [string last ) $r(sql)]-1] ,] {
lappend RES [string map {\[ ' \] '} [lindex $ligne 0]]
}
}
DB close
return $RES
}