##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September 2016 # Modified: 2016-10-03/22:52-0400 ##+ # # fetch.icn, demonstrate retrieving rows from ODBC # # 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 sql(db, "SELECT name, phone FROM contacts") while row := fetch(db) do { write("Contact: ", row.name, ", ", row.phone) } close(db) end