# 使用RMySQL操作数据库

# 载入DBI和RMySQL包

#library(DBI)

library(RMySQL)

mysql_con <- function(sql){

  # 创建数据库连接

  con <- dbConnect(MySQL(),host ="localhost",dbname="cars",user="root",password="123456")

  #说明用什么字符集来获取数据库字段

  dbGetQuery(con, "SET NAMES gbk")

  #dbSendQuery(con, "SET NAMES gbk"); 

  # 验证连接

  #print(summary(con)) 

  # SQL查询

  results <- dbGetQuery(con,sql)

  #断开连接

  dbDisconnect(con) 

  return(results)

}

# 引入脚本文件

source('E:/workspace/RStudio/codeSpace/cars/Helper/mysql_con.R', encoding = 'UTF-8')

print(mysql_con("select count(*) from discretized_data"))