Praktikum 2

data & library

library(RMySQL)

## Warning: package 'RMySQL' was built under R version 4.2.3

## Loading required package: DBI

## Warning: package 'DBI' was built under R version 4.2.3

library(RPostgres)

## Warning: package 'RPostgres' was built under R version 4.2.3

library(RSQLite)

## Warning: package 'RSQLite' was built under R version 4.2.3

## 
## Attaching package: 'RSQLite'

## The following object is masked from 'package:RMySQL':
## 
##     isIdCurrent

Orders <- read.csv("Orders.csv")
Supplier <- read.csv("Supplier.csv")
categori <- read.csv("categori.csv")
Emplloyes <- read.csv("Emplloyes.csv")
Product <- read.csv("Product.csv")
Ordersdetail <- read.csv("Ordersdetail.csv")
Shippers <- read.csv("shippers.csv")
Supplier <- read.csv("supplier.csv")

MySQl

MySQL <- dbConnect(MySQL(), 
                  user='root',
                  password='', 
                  dbname='coba coba', 
                  host='localhost')
dbListTables(MySQL)                               # table list on your database

dbWriteTable(MySQL,"Orders",Orders,append=T)
dbWriteTable(MySQL,"Suplier",Supplier,append=T)
dbWriteTable(MySQL,"categori",categori,append=T)
dbWriteTable(MySQL,"Emplloyes",Emplloyes,append=T)
dbWriteTable(MySQL,"Product",Product,append=T)
dbWriteTable(MySQL,"Ordersdetail",Ordersdetail,append=T)
dbWriteTable(MySQL,"shippers",Shippers,append=T)

Postgres

postgres <- dbConnect(RPostgres::Postgres(), 
                  user='postgres',
                  password='1234', 
                  dbname='postgres', 
                  host='localhost')

dbWriteTable(postgres,"Orders",Orders,append=T)
dbWriteTable(postgres,"Suplier",Supplier,append=T)
dbWriteTable(postgres,"categori",categori,append=T)
dbWriteTable(postgres,"Emplloyes",Emplloyes,append=T)
dbWriteTable(postgres,"Product",Product,append=T)
dbWriteTable(postgres,"Ordersdetail",Ordersdetail,append=T)
dbWriteTable(postgres,"shippers",Shippers,append=T)

SQLite

#RSQLite
RSQLite <- dbConnect(RSQLite::SQLite(), "MySQLite.sqlite")
dbListTables(RSQLite)                             # table list on your database

dbWriteTable(RSQLite,"Orders",Orders,append=T)
dbWriteTable(RSQLite,"Suplier",Supplier,append=T)
dbWriteTable(RSQLite,"categori",categori,append=T)
dbWriteTable(RSQLite,"Emplloyes",Emplloyes,append=T)
dbWriteTable(RSQLite,"Product",Product,append=T)
dbWriteTable(RSQLite,"Ordersdetail",Ordersdetail,append=T)
dbWriteTable(RSQLite,"shippers",Shippers,append=T)