## Not run: ## example results from MySQL
# > channel <- odbcConnect("test")
# > sqlDrop(channel, "USArrests", errors = FALSE) # precautionary
# > sqlSave(channel, USArrests, addPK = TRUE)
# > sqlColumns(channel, "USArrests")
# TABLE_CAT TABLE_SCHEM TABLE_NAME COLUMN_NAME DATA_TYPE TYPE_NAME
# 1 ripley <NA> USArrests rownames 12 varchar
# 2 ripley <NA> USArrests Murder 8 double
# 3 ripley <NA> USArrests Assault 4 integer
# 4 ripley <NA> USArrests UrbanPop 4 integer
# 5 ripley <NA> USArrests Rape 8 double
# ... 12 more columns
#
# > sqlColumns(channel, "USArrests", special = TRUE)
# SCOPE COLUMN_NAME DATA_TYPE TYPE_NAME COLUMN_SIZE BUFFER_LENGTH
# 1 2 rownames 12 varchar 255 255
# DECIMAL_DIGITS PSEUDO_COLUMN
# 1 NA 1
#
# > sqlPrimaryKeys(channel, "USArrests")
# TABLE_CAT TABLE_SCHEM TABLE_NAME COLUMN_NAME KEY_SEQ PK_NAME
# 1 <NA> <NA> USArrests rownames 1 PRIMARY
# > sqlDrop(channel, "USArrests")
# > close(channel)
# ## End(Not run)
Run the code above in your browser using DataLab