无法在 R 中使用 sqlSave 追加到 SQL Server 表

Posted 2023-05-07

【中文标题】无法在 R 中使用 sqlSave 追加到 SQL Server 表

【英文标题】：Unable to append to SQL Server table using sqlSave in R

【发布时间】：2016-05-15 16:05:53

【问题描述】：

我正在尝试使用 R 中 RODBC 包的 sqlSave 函数更新 SQL 表。 数据存在于数据框中。 当我尝试运行命令时：

sqlSave(DBConn, dat=df, verbose=T, tablename='table', append=T)

我收到以下错误：

Query: INSERT INTO "table" ( "col1", "col2", "col3", "col4" ) VALUES ( ?,?,?,?,? )
sqlwrite returned
42000 -131 [Sybase][ODBC Driver][Sybase IQ]Syntax error near 'table' on line 1
[RODBC] ERROR: Could not SQLPrepare 'INSERT INTO "table" ( "col1", "col2", "col3", "col4" ) VALUES ( ?,?,?,?,? )'

我在这里做错了什么，所以我没有得到 SQLQuery 中的值？

提前感谢您的帮助

EDIT 1 在@Gordon 评论之后：

错误显示 5 个占位符，但我的 data.frame 只有 4 列。我做了 dim(df) 并得到了 4。它是否与 df 的行索引有关？

编辑 2

关于执行以下操作：

sqlSave(DBConn, dat=df, verbose=T, tablename='table', append=T)

现在我得到的错误仍然与 4 个占位符相同，但所有值仍然是 (?,?,?,?)

编辑 3

我也尝试使用 sqlUpdate

sqlUpdate(DBConn, dat=df, verbose=T, tablename='table')

我现在得到的错误是：

Query: UPDATE "table" SET "col2"=?, "col3"=?, "col4"=? WHERE "col1"=?
Error in sqlUpdate(DBConn, t, tablename = "table", verbose = T) :
  42000 -131 [Sybase][ODBC Driver][Sybase IQ]Syntax error near 'table' on line 1[RODBC] ERROR: Could not SQLPrepare 'UPDATE "table" SET "col2"=?, "col3"=?, "col4"=? WHERE "col1"=?'

【问题讨论】：

一方面，您有四列和五个占位符。

@GordonLinoff ：很好的观察。但是做 dim(t) 只给出 4。会不会是因为 row inde 或与之相关的原因？

FWIW 我从来没有能够让这个命令正确地附加现有的表；对我来说这似乎是一个错误。

@nrussell 我也试过 sqlUpdate。命令和我得到的错误在 EDIT 3 下。你能看看它还是建议一种你喜欢将 R 的数据框上传到 sql server 的方式？

假设sqlSave 写得正确（WRT 创建新表），它应该使用准备好的语句来创建/填充临时表，而不 i> 执行单个插入。我目前无权访问数据库，但您可以执行sqlSave(DBConn, dat = df, tablename = '#temp_table', append = FALSE) 之类的操作来上传数据，然后按照我之前评论中的说明继续操作。

【参考方案1】：

数据类型和列名可能存在问题。 所以最好获取表的数据类型和列名，并分配给数据框。

ColumnsOfTable       <- sqlColumns(conn, tablename)
varTypes             <- as.character(ColumnsOfTable$TYPE_NAME) 
names(varTypes)      <- as.character(ColumnsOfTable$COLUMN_NAME) 
colnames(dataObject) <- as.character(ColumnsOfTable$COLUMN_NAME)

sqlSave(conn, dataObject, tableNames, fast=TRUE,append=TRUE,  rownames=FALSE, varTypes=varTypes )

【参考方案2】：

我遇到此问题的原因是：我试图追加到具有自动递增标识列的表。如果我从数据框中省略了这一列，它会给我这个错误missing columns in 'data'。如果我创建了这个专栏NA 它会给我Invalid character value for cast specification 我可以使用verbose=TRUE 进行故障排除。要解决此问题，请从包含除主键之外的所有列的表中创建一个 VIEW，以便您可以附加到此 VIEW 而不是表，然后您不需要附加主键。在我的例子中，视图被称为“insert_view”

var_Types <- as.character(as.character(c("int","int","varchar(50)","nvarchar(MAX)")))

names(var_Types) <- as.character(ColumnsOfTable$COLUMN_NAME)

sqlSave(ch, dataframe, "dbo.insert_view",rownames=FALSE,append = TRUE,varTypes=var_Types,verbose = TRUE)

【参考方案3】：

如果插入查询中的任何列名与原始表中的列名相同，请在 sqlSave 参数中使用 verbose=TRUE 检查。

在我的表格中，我曾经有一个带空格的列名（如果它有数字或不同的字符，则相同）。它不会起作用，因为 sqlSave 在创建查询时会删除这些字符。