install.packages（"RODBC"） #安裝RODBC包

library（RODBC） #載入RODBC包

mycon<-odbcConnect（"mydsn"， uid="user"， pwd="rply"）

#通過(guò)一個(gè)數(shù)據(jù)源名稱（mydsn） 和用戶名（user） 以及密碼（rply， 如果沒(méi)有設(shè)置， 可以直接忽略） 打開(kāi)了一

data（USArrests）

#將R自帶的“USArrests” 表寫(xiě)進(jìn)數(shù)據(jù)庫(kù)里

sqlSave（mycon， USArrests， rownames="state"， append=TRUE）

#將數(shù)據(jù)流保存， 這時(shí)打開(kāi)SQL Server就可以看到新建的USArrests表

rm（USArrests）

#清除USArrests變量

sqlFetch（mycon， "USArrests" ， rownames="state"）

#輸出USArrests表中的內(nèi)容

sqlQuery（mycon， "select *from USArrests"）

#對(duì)USArrests表執(zhí)行了SQL語(yǔ)句select， 并將結(jié)果輸出

sqlDrop（channel， "USArrests"）

#刪除USArrests表

close（mycon）

#關(guān)閉連接