Data 607 Week2

library(kableExtra)
library(RMySQL)

## Loading required package: DBI

Connect to SQL

Connect to database

myLocalPassword <- 'root'
my.database = dbConnect(MySQL(), user='root', password = myLocalPassword, dbname='movies', host='localhost')
dbListTables(my.database)

## [1] "movie"         "ratingdetails" "ratings"       "viewers"

Display Viewers

Viewers <- dbSendQuery(my.database, "SELECT * FROM viewers;")
dbFetch(Viewers)

Display Movies

Movies <- dbSendQuery(my.database, "SELECT * FROM movie;")
dbFetch(Movies)

Display Rating Details

RatingDetails <- dbSendQuery(my.database, "SELECT * FROM ratingdetails;")
dbFetch(RatingDetails)

Display Movie Ratings

MovieRatings <- dbSendQuery(my.database, "SELECT * FROM ratings;")
dbFetch(MovieRatings)