R語言使用RMySQL串連及讀寫Mysql資料庫 測試通過

標籤：inno   tool   www   strong   row   _for   select   app   派生   

R語言使用RMySQL串連及讀寫Mysql資料庫

簡單說下安裝過程，一般不會有問題，重點是RMySQL的使用方式。

系統內容說明

Redhat系統：Linux 460-42.6.32-431.29.2.el6.x86_64

系統編碼：LANG=zh_CN.UTF-8（中文UTF-8格式）

MySQL版本：mysql  Ver 14.14 Distrib 5.1.73, forredhat-linux-gnu (x86_64) using readline 5.1

 

安裝mysql

1.      查看是否安裝

yum list installed mysql*

2.      查看現有安裝包

 yumlist mysql*

3.      安裝mysql伺服器端

 yuminstall mysql-devel

 yuminstall mysql-server

4.      設定mysql預設字元和引擎

 vim/etc/my.cnf

在[mysqld]下添加

 default-character-set=utf8

 default-storage-engine=INNODB

5.      mysql啟動和關閉

/etc/init.d/mysqld start

/etc/init.d/mysqld stop

6.      設定開機mysql啟動

/sbin/chkconfig - - list

/sbin/chkconfig add mysqld

/sbin/chkconfig mysqld on

參考：redhat下mysql安裝與使用

 

安裝RMySQL

install.packages(“RMySQL”)

 

使用RMySQL操作資料庫

[plain] view plain copy  print?

1. library(RMySQL)  
2. help(package=”RMySQL”) #查看RMySQL的說明文檔，裡面有RMySQL所有可用的方法  
3. #建立資料庫連接  
4. con <- dbConnect(MySQL(),host="host",dbname="test_dw",user="user",password="password")  
5. #擷取串連資訊，查看database下所有表，以及刪除testname表  
6. summary(con)  
7. dbGetInfo(con)  
8. dbListTables(con)  
9. dbRemoveTable(con,"test")  

[plain] view plain copy  print?

1. #寫資料庫表  
2. fruits <-data.frame(id=1:5,name=c("蘋果","香蕉","梨子","玉米","西瓜"),price=c(8.8,4.98,7.8,6,2.1),status=c("無","打折","無","售罄","批發"))  
3. dbListTables(con)  
4. dbWriteTable(con,"fruits",fruits)  
5. dbListTables(con)  

[plain] view plain copy  print?

1. #讀資料庫  
2. dbReadTable(con,"fruits")#中文出現亂碼，這是因為字元編碼格式不統一的問題  
3. dbSendQuery(con,‘SET NAMES utf8‘)    #修正，原為：dbSendQuery(con,‘SET NAMES uft8‘)  

dbReadTable(con,"fruits")#沒有亂碼問題了

dbSendQuery(con,‘SET NAMES uft8‘)這個設定一老會提示錯誤，可能會需要多試幾次才行，不知道為什麼。

 

注意：應為：dbSendQuery(con,‘SET NAMES utf8‘)

 

 

[plain] view plain copy  print?

1. #寫資料表，覆蓋追加  
2. testA <-data.frame(id=1:6,e=c("a","b","c","d","e","f"),c=c("我","的","世","界","變","得"))  
3. testB <-data.frame(id=7:13,e=c("g","h","i","j","k","l","m"),c=c("奇","妙","跟","難","以","言","喻"))  
4. #直接寫testA寫入test表中  
5. dbWriteTable(con,"test",testA,row.names=F)  
6. dbReadTable(con,"test")  
7. #追加寫testB追加在test表後  
8. dbWriteTable(con,"test",testB,append=T,row.names=F)  
9. dbReadTable(con,"test")  
10. #覆蓋寫testB覆蓋test表  
11. dbWriteTable(con,"test",testB,overwrite=T,row.names=F)  
12. dbReadTable(con,"test")  

[plain] view plain copy  print?

1. #用SQL語句查詢dbGetQuery()和dbSendQuery()兩種方法  
2. dbGetQuery(con, "SELECT * FROM fruits limit 3")  
3.    
4. res <- dbSendQuery(con, "SELECT *FROM fruits")  
5. data <- dbFetch(res, n=2) #取前2條資料，n=-1時是擷取所有資料  
6. data  
7. data <- dbFetch(res, n=-1) #取餘下所有資料  
8. data  
9. dbClearResult(res)  
10. dbDisconnect(con) #中斷連線  

[plain] view plain copy  print?

1. #用SQL語句批量查詢  
2. con <- dbConnect(MySQL(),host="host",dbname="test_dw",user="user",password="password",client.flag= CLIENT_MULTI_STATEMENTS) #client.flag設定這樣支援批量查詢  
3. dbSendQuery(con,‘SET NAMES uft-8‘)  
4. sql <- "SELECT * FROM fruits;SELECT * FROM test"  
5. res1 <- dbSendQuery(con,sql)  
6. dbFetch(res1, n = -1)  
7. if (dbMoreResults(con)) {  
8.   res2 <- dbNextResult(con)  
9.   dbFetch(res2, n = -1)  
10. }  
11. dbListResults(con)  
12. dbClearResult(res1)  
13. dbClearResult(res2)  
14.    
15. dbDisconnect(con)  

參考：RMySQL資料庫編程指南

R語言使用RMySQL串連及讀寫Mysql資料庫 測試通過