0
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)
4

0 回答 0