错误3709当通过ADODB.connection连接到SQL Server 2008在Excel中

Question

我想在Excel中使用下面的代码在SQL Server上打开记录集，但得到3709 - The connection cannot be used to perform this operation. It is either closed or invalid in this context.错误。我要去哪里错了？：

编辑：

它现在的工作，我会更新代码如下：

'Declare variables' 
    Set objMyConn = New ADODB.Connection 
    Set objMyRecordset = New ADODB.Recordset 
    Dim strSQL As String 

'Open Connection' 
    objMyConn.ConnectionString = "Driver={SQL Server};Server=SERVER\SERVER; Database=we_ci_db; Trusted_Connection=Yes" 
    objMyConn.Open 

'Set and Excecute SQL Command' 
    strSQL = "select * from tblUsers" 

'Open Recordset' 
    Set objMyRecordset.ActiveConnection = objMyConn 
    objMyRecordset.Open strSQL 

'Copy Data to Excel' 
    ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset) 

Answer 1

Remou指出我在替代连接字符串的方向，但我仍然得到了同样的结果。我用Google搜索周围了一下，与其他太问题LINK有不同的实现，这导致了上来：

'Declare variables' 
    Set objMyConn = New ADODB.Connection 
    Set objMyRecordset = New ADODB.Recordset 
    Dim strSQL As String 

'Open Connection' 
    objMyConn.ConnectionString = "Driver={SQL Server};Server=SERVER\SERVER; Database=we_ci_db; Trusted_Connection=Yes" 
    objMyConn.Open 

'Set and Excecute SQL Command' 
    strSQL = "select * from tblUsers" 

'Open Recordset' 
    Set objMyRecordset.ActiveConnection = objMyConn 
    objMyRecordset.Open strSQL 

'Copy Data to Excel' 
    ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset) 

Answer 2

那是不是你所需要的连接字符串。应改为类似：

Provider=sqloledb;Data Source=SERVER\SERVER;Initial Catalog=cs_db;Integrated Security=SSPI; 

见http://connectionstrings.com