如何使用odbc执行“Select * from”查询

Question

我在R中使用odbc package，我有一个SQL Server数据库，其中一个表有一个Name列，它是nvarchar(max)，PublishStatus列是一个整数。

此代码不起作用：

library(odbc)
library(DBI)
library(tidyverse)
con_string="Driver=ODBC Driver 11 for SQL Server;Server=myServer; Database=MyDatabase; trusted_connection=yes"
con=dbConnect(odbc::odbc(), .connection_string =con_string)
query="select * from MyTable"
result=NULL
result=dbSendQuery(con,query) %>% dbFetch
head(result)

它只是产生错误消息

result_fetch中的错误（res @ ptr，n，...）：nanodbc / nanodbc.cpp：2890：07009：[Microsoft] [SQL Server的ODBC驱动程序11]无效的描述符索引

如果我再次尝试查询，我会收到一条不同的错误消息，而且我可以告诉他们没有关闭R并重新打开就无法恢复：

错误：'select PublishStatus，MyTable中的名称'nanodbc / nanodbc.cpp：1587：HY000：[Microsoft] [SQL Server的ODBC驱动程序11]连接正忙于另一个命令的结果

因为R和R的odbc都非常有名，所以在这个软件包中很难出现谷歌错误。在this SO中，似乎列的顺序很重要，它需要在查询中首先指定整数列。

这样可行

query="select PublishStatus,Name from MyTable"
result=NULL
result=dbSendQuery(con,query) %>% dbFetch
head(result)

但这不是：

query="select Name,PublishStatus from MyTable"
result=NULL
result=dbSendQuery(con,query) %>% dbFetch
head(result)

并且select *查询没有。

所以我的问题是：

1. 有没有办法让它这样我可以做select *查询？
2. 当我得到Invalid Descriptor Index错误时，有没有办法恢复而不重新启动R？

如果没有，这似乎是这个包的一个非常奇怪的交易破坏者。

编辑：使用较旧的RODBC库，它没有这个缺陷，即使使用相同的ODBC驱动程序。这适用于select * from查询，并不关心列的顺序

library(RODBC)
con=odbcDriverConnect(ConnectionString_Hemonc)  
result=sqlQuery(con,query,stringsAsFactors=FALSE)
close(con)
head(result)

我以前放弃了RODBC，因为it is unable (in practice) to write data to a database, as I discovered here。

看起来发生的事情是他们建立了odbc以更快地读取数据，这样的副作用是它现在对于读取数据的顺序非常挑剔。不幸的是，这拆除了我的用例 - 我不能要求只知道基本SQL的人使用一种将完全有效的SQL视为无效的工具。

我想这是RODBC用于读取数据，odbc用于写入数据。让人惊讶。

编辑2：我在连接字符串而不是ODBC Driver 13 for SQL Server中尝试了ODBC Driver 11并且它没有解决问题，但是至少它的速度要快得多。

Answer 1

我希望下面的代码和文章可以帮到你。 Getting Data From Excel and SQL Server using ODBC

set-psdebug -strict
$ErrorActionPreference = "stop" 

$ExcelFilePath='MyPath\pubs.xlsx' #the full path of the excel workbook
if (!(Test-Path $ExcelFilePath))
 {
 Write-Error "Can't find '$($ExcelFilePath)'. Sorry, can't proceed because of this"
 exit
 }

try {
$Connection = New-Object system.data.odbc.odbcconnection
$Connection.ConnectionString = 'Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ='+$ExcelFilePath+'; Extended Properties="Mode=ReadWrite;ReadOnly=false; HDR=YES"' 
$Connection.Open()
}
catch
{
 $ex = $_.Exception
 Write-Error "whilst opening connection to $ExcelFilePath : Sorry, can't proceed because of this"
 exit
}

try { 
$Query = New-Object system.data.odbc.odbccommand
$Query.Connection = $connection
$Query.CommandText = @'
SELECT title, SUM(qty) AS sales,
 COUNT(*) AS orders
 FROM [titles$] t
 INNER JOIN [sales$] s ON t.title_id=s.title_id
 WHERE title like '%?'
 GROUP BY title
 ORDER BY SUM(qty) DESC
'@ 

$Reader = $Query.ExecuteReader([System.Data.CommandBehavior]::SequentialAccess) #get the datareader and just get the result in one gulp
}
catch
{
 $ex = $_.Exception
 Write-Error "whilst executing the query '$($Query.CommandText)' $ex.Message Sorry, but we can't proceed because of this!"
 $Reader.Close()
 $Connection.Close()
 Exit;
}

Try
{
$Counter = $Reader.FieldCount #get it just once
$result=@() #initialise the empty array of rows
 while ($Reader.Read()) {
 $Tuple = New-Object -TypeName 'System.Management.Automation.PSObject'
 foreach ($i in (0..($Counter - 1))) {
 Add-Member `
 -InputObject $Tuple `
 -MemberType NoteProperty `
 -Name $Reader.GetName($i) `
 -Value $Reader.GetValue($i).ToString()
 }
 $Result+=$Tuple
 }
 $result | Format-Table 
 }
catch
{
 $ex = $_.Exceptio
 Write-Error "whilst reading the data from the datatable. $ex.Message"
}
$Reader.Close()
$Connection.Close()