问题提出：
解决问题场景：
解决过程：
conn <- dbConnect(MySQL(), dbname = "test", username="呵呵", password="哈哈", host="娃娃", port=3306)
#操作数据库,解码
dbSendQuery(conn,'SET NAMES gbk')
#1.读取表
dbReadTable(conn, "tb_item")
#查看表
print(a)
View(a)
#关闭数据库
dbDisconnect(conn)
待解决的问题：
写进的中文字段表出现问题
参考：
https://blog.csdn.net/YAJUN0601/article/details/68487732