R语言之MYSQL数据库获取及输出

R语言之MYSQL数据库获取及输出

在这里我们使用ODBC连接，连接之前请先配置ODBC

MYSQL  ODBC下载地址:http://dev.mysql.com/downloads/connector/odbc

配置方法请参照：http://blog.csdn.net/hongweigg/article/details/49779943

library(RODBC)
#建立一个到ODBC 数据库的连接
channel <- odbcConnect("mysql_data", uid="root", pwd="12345678")
#在这里我的真实连接信息
#查看数据库中的表 
sqlTables(channel)

   #返回结果

TABLE_CAT TABLE_SCHEM       TABLE_NAME     TABLE_TYPE REMARKS

1 my_firstsql                                        infor                                  TABLE        

2 my_firstsql                                 my_firsttable                         TABLE        

3 my_firstsql                                      provinces                           TABLE        

4 my_firstsql                                  rename_table                       TABLE        

5 my_firstsql                                   tdb_goods                             TABLE        

6 my_firstsql                            tdb_goods_brands                     TABLE        

7 my_firstsql                                tdb_goods_cates                     TABLE        

#读取ODBC数据库中的某个表到一个数据框中
data <- sqlFetch(channel,"infor")
#向ODBC 数据库提交一个查询并返回结果
query = 'SELECT * FROM infor WHERE age < 19' #mysql查询语句
my_select <- sqlQuery(channel,query)
#将数据框写入或更新（append=TRUE）到ODBC数据库的某个表中
r_df <- data.frame(x  = seq(0, 8, 2), y = letters[1:5])
sqlSave(channel,  # 创建的数据连接
        r_df, #R数据框名称
        tablename = "r_sql_data", # 数据库表名
        rownames = FALSE, # 不存储数据框的行名
        append = TRUE) # 添加新记录到数据库表中

#删除ODBC 数据库中的某个表
sqlDrop(channel,'r_sql_data') 
#关闭连接
close(channel)