library(RMySQL)
con <- dbConnect(MySQL(), user="root", password="votre mot de passe", dbname="QCBSWORK");
lakes <- dbGetQuery(con,'SELECT * FROM Lakes');