# NOT RUN {
library(RJDBC)
con <- dbConnect(H2(), "jdbc:h2:~/test", "sa", "")
# create table, populate it and display it
s <- 'create table tt("id" int primary key, "name" varchar(255))'
dbSendUpdate(con, s)
dbSendUpdate(con, "insert into tt values(1, 'Hello')")
dbSendUpdate(con, "insert into tt values(2, 'World')")
dbGetQuery(con, "select * from tt")
# transfer a data frame to H2 and then display it from the database
dbWriteTable(con, "BOD", BOD)
dbGetQuery(con, "select * from BOD")
dbDisconnect(con)
# connect to a different version of H2 and show version
con <- dbConnect(H2(jars = "c:/tmp2/h2-1.3.155.jar"))
s <- "select VALUE from INFORMATION_SCHEMA.SETTINGS where NAME = 'info.VERSION'"
dbGetQuery(con, s)
dbDisconnect(con)
# }
Run the code above in your browser using DataLab