You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
943 B
28 lines
943 B
library(rJava)
|
|
library(RJDBC)
|
|
con <- dbConnect(JDBC(driverClass = "oracle.jdbc.OracleDriver",
|
|
classPath = "/home/ducj/설정파일/ojdbc11-full/ojdbc11.jar"),
|
|
"jdbc:oracle:thin:@ducj3.iptime.org:1521/xe",
|
|
"ducj", Sys.getenv('db_key'))
|
|
#dbWriteTable(con, "mtcars", mtcars[1:5, ])
|
|
tables=RJDBC::dbListTables(con)
|
|
grep('MTCARS',tables,value=T)
|
|
|
|
dbRemoveTable(con,'mtcars')
|
|
dbWriteTable(con,'mtcars',mtcars[1:5,])
|
|
dbReadTable(con,'mtcars')
|
|
|
|
#단일행
|
|
query <- paste0("INSERT INTO mtcars VALUES(",
|
|
paste0(mtcars[6,],collapse = ','),")")
|
|
dbSendQuery(con, query)
|
|
dbReadTable(con,'mtcars')
|
|
|
|
# 다중
|
|
sqls <- sprintf("INSERT INTO mtcars VALUES (%s)",
|
|
apply(mtcars[7,], 1, function(i) paste(i, collapse=",")))
|
|
lapply(sqls, function(s) dbSendQuery(con, s))
|
|
dbReadTable(con,'mtcars')
|
|
#dbAppendTable(con,'mtcars',mtcars[8:9,])
|
|
|
|
dbRemoveTable(con,'mtcars')
|