HW07db <- dbConnect(RSQLite::SQLite(), "HW07-db.sqlite")
dbListTables(HW07db)
getwd()
CUSTOMER <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/CUSTOMER.txt")
DEPARTMENT <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/DEPARTMENT.txt")
EMPLOYEE_PHONE <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/EMPLOYEE_PHONE.txt")
EMPLOYEE <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/EMPLOYEE.txt")
INVOICES <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/INVOICES.txt")
PRODUCT <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/PRODUCT.txt")
SALES_ORDER_LINE <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/SALES_ORDER_LINE.txt")
SALES_ORDER <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/SALES_ORDER.txt")
STOCK_TOTAL <- read.csv("/Users/nwillows/Desktop/UCSB-F21/PSTAT10/Labs/Lab13.14/tinyclothes/STOCK_TOTAL.txt")
#将数据框添加到您的数据库
下面出现错误。
Error: disk I/O error
Error: no such savepoint: dbWriteTable_59538_usblbmbhlq
dbWriteTable(HW07db, "CUSTOMER", CUSTOMER)
dbWriteTable(HW07db, "DEPARTMENT", DEPARTMENT)
dbWriteTable(HW07db, "EMPLOYEE_PHONE", EMPLOYEE_PHONE)
dbWriteTable(HW07db, "EMPLOYEE", EMPLOYEE)
dbWriteTable(HW07db, "INVOICES", INVOICES)
dbWriteTable(HW07db, "PRODUCT", PRODUCT)
dbWriteTable(HW07db, "SALES_ORDER_LINE", SALES_ORDER_LINE)
dbWriteTable(HW07db, "SALES_ORDER", SALES_ORDER)
dbWriteTable(HW07db, "STOCK_TOTAL", STOCK_TOTAL)