R中的sqlSave和sqlDrop

Question

这是我的代码：

library('RODBC')
db.handle <- odbcDriverConnect('driver={SQL Server Native Client 11.0};server=server_name;database = db_name;trusted_connection=yes')
sql_table <- 'db_name.table_name'
sqlDrop(db.handle, sql_table, errors = TRUE)
sqlSave(db.handle,df_small,tablename = sql_table,safer=FALSE,append=TRUE,
        rownames = FALSE)
close(db.handle)

当我执行行时：

sqlDrop(db.handle, sql_table, errors = TRUE)

我收到错误消息：

odbcTableExists 中的错误（通道、sqtable、中止 = 错误）：
‘db_name.table_name’: 在频道上找不到表

当我执行行时：

sqlSave(db.handle,df_small,tablename = sql_table,safer=FALSE,append=TRUE,
            rownames = FALSE)

我收到以下错误消息：

sqlSave 中的错误（db.handle，df_small，tablename = sql_table，更安全 = 错误，：42S01 2714 [Microsoft][SQL Server Native Client 11.0][SQL 服务器] 数据库中已经有一个名为“table_name”的对象。

[RODBC] 错误：无法 SQLExecDirect 'CREATE TABLE db_name.table_name ("State_rename" varchar(255), "CoverageType" varchar(255))'

我连续执行代码，无法理解这两条错误消息是如何为真的。

Answer 1

考虑从 SQL Server 与句点限定符一起使用的 sqltable 变量中删除架构。具体来说，将db_name.table_name 更改为table_name。您不需要此架构的原因是您的连接句柄已经指定了数据库。使用此连接，您无法访问指定服务器中的其他数据库模式。

library('RODBC')

db.handle <- odbcDriverConnect(paste0('driver={SQL Server Native Client 11.0};',
                               'server=server_name;database=db_name;trusted_connection=yes'))

sql_table <- 'table_name'
sqlDrop(db.handle, sql_table, errors = TRUE)
sqlSave(db.handle, df_small, tablename = sql_table, safer = FALSE,
        append = TRUE, rownames = FALSE)
close(db.handle)

顺便说一句，您可以简单地使用append=FALSE 来覆盖表（先删除它然后重新创建它），而无需调用sqlDrop：

sqlSave(db.handle, df_small, tablename = sql_table, safer = FALSE,
        append = FALSE, rownames = FALSE)