sqlSave和sqlDrop R中

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) 

我收到错误消息：

Error in odbcTableExists(channel, sqtable, abort = errors) :
‘db_name.table_name’: table not found on channel

当我执行行：

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

我收到以下错误信息：

Error in sqlSave(db.handle, df_small, tablename = sql_table, safer = FALSE, : 42S01 2714 [Microsoft][SQL Server Native Client 11.0][SQL Server] There is already an object named 'table_name' in the database.

[RODBC] ERROR: Could not SQLExecDirect 'CREATE TABLE db_name.table_name ("State_rename" varchar(255), "CoverageType" varchar(255))'

我连续执行代码和无法理解这两个错误消息怎么可能是真的。

Answer 1

考虑从sqltable变量中删除模式，该变量由SQL Server使用，并带有句号限定符。具体而言，将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)