解决上一个问题:写入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)