ä¸ã å®è£
RODBCåº
1ãè¿å
¥Rè¯è¨çGUIçé¢ï¼RGUI.EXE)ï¼å¨èåæ éæ©âç¨åºå
/å®è£
ç¨åºå
2ãå¨å¼¹åºççªå£éå¾ä¸æï¼éæ©RODBCå¦å¾ï¼ç¹å»ç¡®å®
3ãå¨ODBCæ°æ®æºç®¡çå¨éå°éè¦çæ°æ®åºæ·»å è¿å»ï¼è¿éç¬è
使ç¨çæ¯SQL Server2008ï¼é©±å¨ç¨åºéæ©Native Client10.0
3ãå¨Rè¯è¨çªå£è¾å
¥è¿æ¥è¯å¥
> library(RODBC)
**è¿éæ¯è½½å
¥RODBCåº
> channel<-odbcConnect("MyTest",uid="ripley",case="tolower")
**è¿æ¥åææ·»å è¿æ°æ®æºçâMyTestâæ°æ®åº
**ch <- odbcConnect("some dsn ", uid = "user ", pwd = "**** ")
**表示ç¨æ·å为userï¼å¯ç æ¯****ï¼å¦æ没æ设置ï¼å¯ä»¥ç´æ¥å¿½ç¥
> data(USArrests)
**å°âUSArrestsâ表åè¿æ°æ®åºéï¼è¿ä¸ªè¡¨æ¯Rèªå¸¦çï¼
> sqlSave(channel,USArrests,rownames = "state",addPK = TRUE)
**å°æ°æ®æµä¿åï¼è¿æ¶åæå¼SQL Serverå°±å¯ä»¥çå°æ°å»ºçUSArrests表äº
> rm(USArrests)
> sqlTables(channel)
**ç»åºæ°æ®åºä¸ç表
> sqlFetch(channel,"USArrests",rownames = "state")
**è¾åºUSArrests表ä¸çå
容
> sqlQuery(channel,"select * from USArrests")
**è°ç¨SELECTæ¥è¯¢è¯å¥å¹¶è¿åç»æï¼å¦å¾ï¼
> sqlDrop(channel,"USArrests")
**å é¤è¡¨
> odbcClose(channel)
**æåè¦è®°å¾å
³éè¿æ¥
å½ç¶ï¼éè¿è¿ä¸ªåæ³ä¹å¯ä»¥è¯»åExcelãAccess表ä¸çå
容ï¼å
·ä½æ¹æ³ç±»ä¼¼ï¼è¿éä¸åéå¤
温馨提示:答案为网友推荐,仅供参考