- #-------------------------------------方式1-------------------------------------
- #加载包
- library(DBI)
- library(RMySQL)
- con=dbConnect(RMySQL::MySQL(),
- dbname='数据库名称',
- username='root',
- password='数据库密码',
- host='服务器IP')
- 设置格式
- dbSendQuery(con, "SET @@sql_mode=ANSI;") # 启动非严格模式
- dbSendQuery(con, "SET NAMES utf8") #切换字符格式,避免中文字符乱码
- #将数据写入数据库(接口,新建表名,数据框,参数设置)
- dbWriteTable(con,"data",data,overwrite =TRUE) #数据可以写入,表头正常显示,但是数据框内容的中文显示乱码
- #将表格中文从gbk转为UTF8格式
- for (i in names(data)){
- data[,i] <- iconv(data[,i],from="gbk",to="UTF8")
- }
- #-------------------------------------方式2-------------------------------------
- library(RODBC)
- con <- odbcConnect('ODBC数据源名称',uid='root',pwd='数据库密码') #设置ODBC时,Details为GBK
- sqlSave(con,data,tablename = "data",append = TRUE) #显示报错,只能导入表头变量名,无法导入含中文的数据框内容