##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-13/23:37-0400 ##+ # # sql.icn, demonstrate SQL statements passed to a ODBC database # # tectonics: ~/.odbc.ini setup required for [unicon] # assuming the [unicon] ODBC setup, SQLite3 # procedure main() # mode 'o' open, ODBC SQL, default table and connection at defaults db := open("unicon", "o", "", "") | stop("no ODBC for \"unicon\"") # Information below was created as part of examples/odbc.icn # sql(db, "create table contacts (id integer primary key, name, phone)") # make a query write("SELECT name, phone") sql(db, "SELECT name, phone FROM contacts") while row := fetch(db) do { write("Contact: ", row.name, ", ", row.phone) } # make an ordered query write() write("ORDER BY name") sql(db, "SELECT name, phone FROM contacts ORDER BY name") while row := fetch(db) do { write("Contact: ", row.name, ", ", row.phone) } close(db) end