library(pacman)
p_load(tidyverse,DBI,RSQLite,fs,dbplyr)
= dbConnect(RSQLite::SQLite(), "data/TYSQL_copy1.sqlite") c1
16 必知必会第16课:更新和删除数据
16.1 数据库的连接
本次实验会沿用之前保存的文件,因此直接对之前的副本进行连接。
16.2 基于SQL和tidyverse的数据操作
# 16.1
dbExecute(c1,"UPDATE Customers
SET cust_email = 'kim@thetoystore.com'
WHERE cust_id = 1000000005;")
[1] 1
dbExecute(c1,"UPDATE Customers
SET cust_contact = 'Sam Roberts',
cust_email = 'sam@toyland.com'
WHERE cust_id = 1000000006;")
[1] 1
dbExecute(c1,"UPDATE Customers
SET cust_email = NULL
WHERE cust_id = 1000000005;")
[1] 1
# 16.2
dbExecute(c1,"DELETE FROM Customers
WHERE cust_id = 1000000006;")
[1] 1
注意,函数返回值表示受到这一步操作影响的行数量。
16.3 练习
- 请使用SQL和R两种方式,解决课后的挑战题。
16.4 关闭数据库
这一步,我们会关闭数据库连接。
dbDisconnect(c1)