library(RMySQL)
library(DBI)
con<-dbConnect(MySQL(),user="",password="",dbname="powerloaddata",host="192.168.1.11")
#显示表
dbListTables(con)
dbListFields(con,"raw_p_bus_zx")
dbListFields(con,"DataZX")
#调整数据列与建立的表相同,列名也要完全一样
test <- cbind(data_all[,2],data_all[,99],data_all[,3:98])
names(test)[1:2] <- c("date","MP_ID")
#row.names要False否则会多出一列
dbWriteTable(con,"DataZX",test,append=TRUE,row.names=F)