测试环境:win10+RStudio
(1)在Console加载两个插件
>install.packages('DBI')
Installing package into ‘C:/Users/lmei/Documents/R/win-library/3.5’
(as ‘lib’ is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.5/DBI_1.0.0.zip'
Content type 'application/zip' length 884354 bytes (863 KB)
downloaded 863 KB
package ‘DBI’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\lmei\AppData\Local\Temp\Rtmp6Fwdfk\downloaded_packages
>install.packages('RMySQL')
Installing package into ‘C:/Users/lmei/Documents/R/win-library/3.5’
(as ‘lib’ is unspecified)trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.5/RMySQL_0.10.15.zip'Content type 'application/zip' length 2371644 bytes (2.3 MB)downloaded 2.3 MB
package ‘RMySQL’ successfully unpacked and MD5 sums checked The downloaded binary packages are in
C:\Users\lmei\AppData\Local\Temp\Rtmp6Fwdfk\downloaded_packages
(2)编写R测试脚本ConnectMySQL.R,然后点击RUN
library(RMySQL)
conn <- dbConnect(MySQL(), dbname = "test", username="root", password="",client.flag=CLIENT_MULTI_STATEMENTS)
users = dbGetQuery(conn, "SELECT * FROM tb_user")
dbDisconnect(conn)
print(users)
Console输出
> library(RMySQL)
> conn <- dbConnect(MySQL(), dbname = "test", username="root", password="",client.flag=CLIENT_MULTI_STATEMENTS)
> users = dbGetQuery(conn, "SELECT * FROM tb_user")
> dbDisconnect(conn)
[] TRUE
> print(users)
id name
Tom
mysql连接读取成功!