R语言dbSendQuery操作数据库

解决上一个问题：写入mysql中的表在查询出现乱码问题：

#链接数据库
conn <- dbConnect(MySQL(), dbname = "test", username="嘿嘿嘿", password="哈哈哈", host="嘻嘻嘻", port=3306)
#设置编码
dbSendQuery(conn,'SET NAMES gbk')
dbListTables(conn)   #显示所有表
#创建数据库
d0 <- dbGetQuery(conn, " CREATE TABLE t_user23(
+    id INT PRIMARY KEY AUTO_INCREMENT,
                 +    user varchar(12) NOT NULL UNIQUE
                 +    )ENGINE=INNODB DEFAULT CHARSET=utf8")

#查询
dbGetQuery(conn, "SELECT * FROM t_user23")
#插入数据
a = dbGetQuery(conn, "INSERT INTO t_user23(user) values('A1'),('AB'),('fens.me')")
a = dbGetQuery(conn, "INSERT INTO t_user23(user) values('小朋友'),('你好'),('正确了')")

#查询
a = dbSendQuery(conn, "SELECT * FROM t_user23")
daw <- dbFetch(a,n= -1)
View(daw)
print(daw)
#关闭数据库
dbDisconnect(conn) 

参考链接：http://blog.fens.me/r-mysql-rmysql/