代码之家 › 专栏 › 技术社区 › aSystemOverload

通过ADODB.连接到Excel中的SQL Server 2008时出现错误3709

vba adodb excel sql-server-2008

aSystemOverload · 技术社区 · 14 年前

我正试图使用以下代码在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)

2 回复 | 直到 8 年前

Community Mohan Dere 9 年前

Remou为我指明了另一个连接字符串的方向,但我仍然得到了相同的结果。我在谷歌上搜索了一会儿,想出了另一个SO问题 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)

Fionnuala 14 年前

这不是您需要的连接字符串。它应该读成这样:

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

看见 http://connectionstrings.com

推荐文章

Error_2646 · 新的ADODB记录集是否创建了新的连接?

9 年前

Erik Bender · VBS使用ADODB从INI文件中获取节名,该文件只有一个唯一的键名。流动

9 年前

Hamees A. Khan · 用于同步两个数据库对象的程序MS Access

9 年前

Wayne Barron · 对象关闭时不允许操作(对象未关闭)

10 年前

iabbott · ADODB命令.执行超时

11 年前

acolls_badger · VBA用户定义类型未定义错误

11 年前

Hank · 使用两个mdb选择第三个

12 年前

Ben Z. · VBA:将表格从Excel导入SQL

13 年前

Ilia Ross · ADOdb中的SQL注入与一般网站安全

14 年前

aSystemOverload · 通过ADODB.连接到Excel中的SQL Server 2008时出现错误3709

14 年前