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

library（RODBC） #載入RODBC包

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

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

data（USArrests）

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

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

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

rm（USArrests）

#清除USArrests變量

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

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

sqlQuery（mycon， "select *from USArrests"）

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

sqlDrop（channel， "USArrests"）

#刪除USArrests表

close（mycon）

#關(guān)閉連接