# NOT RUN {
data(USArrests)
con <- dbConnect(SQLite(), dbname=":memory:")
dbWriteTable(con, "t1", USArrests)
dbWriteTable(con, "t2", USArrests)
dbListTables(con)
rs <- dbSendQuery(con, "select * from t1 where UrbanPop >= 80")
dbGetStatement(rs)
dbHasCompleted(rs)
info <- dbGetInfo(rs)
names(info)
info$fields
fetch(rs, n=2)
dbHasCompleted(rs)
info <- dbGetInfo(rs)
info$fields
dbClearResult(rs)
# DBIConnection info
names(dbGetInfo(con))
dbDisconnect(con)
# }
Run the code above in your browser using DataLab