R通过RJDBC连接外部数据库

1、连接hive

library(RJDBC)
drv=JDBC(“org.apache.hive.jdbc.HiveDriver”,list.files("/home/Hadoop/hive/lib",pattern="jar$ ",full.names=TRUE,recursive=TRUE))
conn=dbConnect(drv,sprint(‘jdbc:hive2://$ {IP}: ${port}/default’),‘username’,‘passwd’)

2、连接MySQL

library(RJDBC)
drv<-JDBC(“com.mysql.jdbc.Driver”,"/etc/jdbc/mysql-connector-Java-3.1.14-bin.jar",identifier.quote="`")
conn<-dbConnect(drv,“jdbc:mysql://localhost/test”,“user”,“pwd”)
dbSendUpdate(conn,“LIBNAME DEMO SASSPDS schema=‘demoschema’ USER=‘demo’ PASSWORD=’{sas001}ZM0’ HOST=‘127.0.0.1’ Serv=‘5000’”) #注释：dbSendUpdate可以执行所有的sql语句，包括建表、查询、增删改等。
dbGetQuery(conn,“select * from DEMO.TEST WHERE DATE_CODE= ‘201211’”) #注释：dbGetQuery()函数只能执行select语句
d<-dbReadTable(conn,“DEMO.TEST”)#查看表的内容
dbDisconnect(conn)#关闭连接

3、连接oracle

library(RJDBC)
drv<-JDBC(“oracle.jdbc.driver.OracleDriver”,“E:/oracle/jdbc/lib/ojdbc14.jar”, identifier.quote=""") #注释：identifier.quote用来作写入数据库中表的列名的分隔符，与names(数据框)中显示的相一致
conn <- dbConnect(drv, “jdbc:oracle:thin:@127.0.0.1:1521:demo”,“demo”,“demo”)
data(iris)
dbWriteTable(conn, “iris”, iris, overwrite=TRUE)

4、连接DB2

library(RJDBC)
drv<-JDBC(“com.ibm.db2.jcc.DB2Driver”,“E:/IBM/SQLLIB/java/db2jcc.jar”,identifier.quote=""")
conn <- dbConnect(drv, “jdbc:db2://127.0.0.1:1521/demo”,“test”,“test”)
data(iris)
dbWriteTable(conn, “iris”, iris, overwrite=TRUE)

RJDBC常用函数：
1、 JDBC(驱动,jar包,分隔符)：加载数据库驱动
2、 dbConnect(驱动参数,url,用户名,密码,其他)：连接数据库
3、 dbListTables(conn)：显示连接中的所有表
4、 dbWriteTable(conn, “iris”, iris, overwrite=TRUE)：将数据框iris写入表iris中，overwrite覆盖原表
（append=TRUE追加,dbWriteTable(conn, “IRIS”, d, overwrite=FALSE,append=TRUE)且d要与表iris的结构一致。）
5、 dbGetQuery(conn, “select count(*) from iris”)：查询语句
6、 dbSendUpdate(conn,”sql语句”)：执行任何非查询sql语句
7、 dbReadTable(conn, “iris”)：读取表中数据
8、 dbDisconnect(conn)：关闭连接
9、 dbExistsTable(conn,”iris”)：是否存在表iris
10、 dbRemoveTable(conn,”iris”)：删除表iris

例子：
连接MySQL数据库
首先要下载加载RMySQL这个包。
加载的时候可以使用
require(RMySQL)
或者 library(RMySQL)
这两个语句的功能是一样的。
现在是建立连接：

con<-dbConnect(MySQL(),host=‘localhost’,port=3306,dbname=“XXX”,user=“root”,password=“XXXXX”)

这里连接的是本地数据库，host=‘localhost’，也可以写成host=‘127.0.0.1’，port为端口，如果不知道的话可以在mysql控制台输入 status来查看数据库的当前配置。其中就包括端口。user为用户名，一般为root，password是你的数据库的密码。
若数据库中的信息是中文，我们就要修改此连接的编码，否则就会出现乱码。

dbSendQuery(con,“set character_set_result=gbk”)
dbSendQuery(con,“set character_set_connection=gbk”)
dbSendQuery(con,“set character_set_database=gbk”)
dbSendQuery(con,“set character_set_client=gbk”)

Sql Server数据库
#需要密码的链接

library(RODBC)
dbhandle <- odbcDriverConnect(‘driver={SQL Server};server=ip地址;database=数据库名称;uid=用户名称;pwd=密码’)
r <- sqlQuery(dbhandle, ‘select top 1 * from table_name’)
print®
odbcClose(dbhandle)