मान लें कि आर डेटाफ्रेम कॉलम बिल्कुल वही कॉलम हैं और ओरेकल में उसी क्रम में (अधिक या कम नहीं), लागू करें पर विचार करें करने के लिए चिपकाएं पतन . के साथ प्रत्येक पंक्ति में सभी मान:
sqls <- sprintf("INSERT INTO MYTABLE VALUES (%s)",
apply(df, 1, function(i) paste(i, collapse=",")))
sqls
# [1] "INSERT INTO MYTABLE VALUES (2,10,9,50,34,37,29)"
# [2] "INSERT INTO MYTABLE VALUES (7,24,33,21,21,20,3)"
# [3] "INSERT INTO MYTABLE VALUES (39,38,2,33,43,33,7)"
# [4] "INSERT INTO MYTABLE VALUES (30,11,33,1,29,26,11)"
# [5] "INSERT INTO MYTABLE VALUES (50,45,13,27,3,35,36)"
# [6] "INSERT INTO MYTABLE VALUES (41,5,39,17,5,22,5)"
# [7] "INSERT INTO MYTABLE VALUES (21,50,39,30,2,11,49)"
# RECOMMENDED APPROACH TO SPECIFY COLUMNS
sqls <- sprintf("INSERT INTO MYTABLE (Col1, Col2, Col3, Col4, Col5, Col6, Col7) VALUES (%s)",
apply(df, 1, function(i) paste(i, collapse=",")))
connHandle <- odbcConnect("DBName", uid="user", pwd="password")
lapply(sqls, function(s) sqlQuery(connHandle, s))
close(connHandle)
और इससे भी बेहतर तरीका यह है कि RODBCext
जहाँ आप बिना लूप के मूल डेटाफ़्रेम में पास होते हैं:
library(RODBCext)
connHandle <- odbcConnect("DBName", uid="user", pwd="password")
query <- "INSERT INTO MYTABLE (Col1, Col2, Col3, Col4, Col5, Col6, Col7) VALUES (?, ?, ?, ?, ?, ?, ?)"
sqlExecute(connHandle, query, df)
odbcClose(connHandle)
