library(RMySQL)
con = dbConnect(MySQL(), user='root', password='root', dbname='test', host='192.168.0.100')
dbListTables(con)
#[1] "score" "student" "t_permission" "t_role" "t_user" "t_user_role"
result <- dbSendQuery(con, 'select * from score where id>3')
print(fetch(result, n=-1))
con = dbConnect(MySQL(), user='root', password='root', dbname='test', host='192.168.0.100')
dbListTables(con)
#[1] "score" "student" "t_permission" "t_role" "t_user" "t_user_role"
result <- dbSendQuery(con, 'select * from score where id>3')
print(fetch(result, n=-1))