R语言学习-数据导入数据库-MYSQL

#将变量中的数据导入数据库
conn <- dbConnect(MySQL(),dbname = "NETWORKS",username = "root") # 建立数据库连接
dbSendQuery(conn, "SET @@sql_mode=ANSI;") # 启动非严格模式
dbSendQuery(conn, "SET NAMES GBK")        # win7环境下如果汉字乱码，就运行这条命令
dbWriteTable(conn,"table_name",data1,append=T,row.names=F)       # 如果表名用的变量，怎不需要“”，否则需要用“”指明
dbDisconnect(conn)

#从文件直接写入数据库
conn <- dbConnect(MySQL(),dbname = "NETWORKS",username = "root")  #建立数据库连接
dbSendQuery(conn, "SET @@sql_mode=ANSI;")      # 启动非严格模式
dbSendQuery(conn, "SET NAMES GBK")             # win7环境下如果汉字乱码，就运行这条命令
full.path <- "E:/.../srcdata.txt"              # txt,csv等都可以
table_name <- 表名
sql <- paste("load data infile '",full.path,"' into table ",table_name," character set GBK fields terminated by ',' lines terminated by '\n'", sep="")
res1 <-dbSendQuery(conn, sql)
dbClearResult(res1) 
dbDisconnect(conn) #断开连接,否则超过16个连接会断开