install.packages（"RODBC"）#安装RODBC包
library（RODBC） #载入RODBC包
mycon<-odbcConnect（"mydsn"，uid="user"，pwd="rply"） #通过一个数据源名称（mydsn）和用户名（user）以及密码（rply，如果没有设置，可以直接忽略）打开了一个
data（USArrests） #将R自带的“USArrests”表写进数据库里
sqlSave（mycon， USArrests，rownames="state"，append=TRUE） #将数据流保存，这时打开SQL Server就可以看到新建的USArrests表
rm（USArrests） #清除USArrests变量
sqlFetch（mycon， "USArrests" ，rownames="state"） #输出USArrests表中的内容
sqlQuery（mycon，"select *from USArrests"） #对USArrests表执行了SQL语句select，并将结果输出
sqlDrop（channel，"USArrests"） #删除USArrests表
close（mycon） #关闭连接