3

所以我有一个使用以下方法创建的表：

dbGetQuery(conn, "CREATE TABLE Data (DataID integer primary key autoincrement, 
           DataTypeID integer, DataName varchar)")

在一些代码之后，我创建了一个名为“insertdata”的数据框，如下所示：

    type    name
1   1   Data1
2   1   Data2
3   1   Data3
4   1   Data4
5   1   Data5

我使用以下内容将其插入我的表中：

dbWriteTable(conn, "Data", insertdata, append=TRUE)

稍后我创建另一个数据框以插入不同类型的数据，如下所示：

    type    name
1   2   OtherData1
2   2   OtherData2
3   2   OtherData3
4   2   OtherData4
5   2   OtherData5

但是当我使用与以前相同的 dbWriteTable 时，它​​会告诉我

"Warning message:
In value[[3L]](cond) :
  RS-DBI driver: (RS_SQLite_exec: could not execute: PRIMARY KEY must be unique)"

这是为什么？我的表设置为自动递增主键。我不明白非唯一字符来自哪里。是因为每个行名都相同吗？

4

1 回答 1

6

是的，发生错误是因为每行的行名相同。您已经创建了一个带有自动增量 ID 或 ROWID 的表。当向 SQLite 表中插入新行时，可以将 ROWID 指定为 INSERT 语句的一部分，也可以由数据库引擎自动分配。

当你使用

 dbWriteTable(conn, "Data", insertdata, append=TRUE)

在这里您使用 option row.names = TRUE，因此行名用作增量 ID。由于您的 2 data.frame 具有相同的 rownames ，因此您会收到错误消息。通常的解决方法是给新创建的行一个比插入语句之前表中最大的 ROWID 大一的 ROWID。

例如，您可以这样做：

driver <- dbDriver("SQLite")
conn <- dbConnect(driver, dbname='DB_KEY')
## I read all the table to get rows number, you can optimize this with a clever select
index <- nrow(dbReadTable(conn,'Data'))
rownames(mydf) <- 1:nrow(mydf) +index
dbWriteTable(conn, "Data", mydf, append=TRUE)
dbDisconnect(conn)
于 2013-03-12T05:27:10.387 回答