测试环境：

操作系统Windows10专业版，64位

R：R version 3.2.3(2015-12-10)

Sql server: Microsoft SQL Server 2014 -12.0.2000.8 (X64)

第一步、下载安装JDBC driver。下载地址如下：

https://www.microsoft.com/zh-CN/download/details.aspx?id=11774

下载完成后双击sqljdbc_4.0.2206.100_chs.exe，点Unzip解压，这时候在sqljdbc_4.0.2206.100_chs.exe同目录下出现了解压后的文件夹。进入目录\Microsoft JDBC Driver 4.0 for SQL Server\sqljdbc_4.0\chs\auth\x64（32位的为x86）中找到sqljdbc_auth.dll，复制到C:\Windows\System32目录下。将\Microsoft JDBCDriver 4.0 for SQL Server\sqljdbc_4.0\chs中的sqljdbc4.jar复制到R的工作目录中。

第二步、安装并加载JRDBC包

install.packages(“RJDBC”)

library(RJDBC)

第三步、注册驱动类，并获取数据库连接

drv <- JDBC("com.microsoft.sqlserver.jdbc.SQLServerDriver","sqljdbc4.jar")

conn <- dbConnect(drv,"jdbc:sqlserver://localhost;database=Test", "sa", "123")

第四步、进行CRUD测试。

数据库Test中有Person表，表结构如下:

Person表中有pid跟pname两个字段，没有记录。

1、 向Person表中写入数据

dbSendUpdate(conn,"INSERT INTO Person (pname) VALUES('张三')")

dbSendUpdate(conn,"INSERT INTO Person (pname) VALUES('李四')")

dbSendUpdate(conn,"INSERT INTO Person (pname) VALUES('王五')")

dbSendUpdate(conn,"INSERT INTO Person (pname) VALUES('赵六')")

2、 查询Person表中所有数据

testData <-dbGetQuery(conn,"SELECT * FROM Person")

testData

3、 更新pname为“赵六”的名字为“王二麻子”

4、 删除pname为王五的记录