##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:48-0400 ##+ # # dbkeys.icn, ODBC table column information # # tectonics: ~/.odbc.ini setup required for [unicon] # assuming the [unicon] ODBC setup, SQLite3 # link ximage 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)") # display table key information write("\nODBC table contacts key information:") write(ximage(dbkeys(db, "contacts"))) write("contacts first key: ", dbkeys(db, "contacts")[1].col) close(db) end