如何使用 SQL Server 中的数据填充 Excel ComboBox？

Question

我正在尝试使用来自 SQL Server 的数据填充 Excel 文件中的组合框。

这里是事件代码：

Private Sub Workbook_Open()

ActiveWorkbook.Sheets("Generation").Activate

Set cn = New ADODB.Connection

On Error Resume Next

With cn
    .ConnectionString = "Provider=SQLOLEDB.1;" & _
                        "Integrated Security=SSPI;" & _
                        "Server=" & "192.160.160.150;" & _
                        "Database=" & "em_Consumer;" & _
                        "User Id= " & "User" & _
                        "Password = " & "server123"
    .Open
End With

Set rs = New ADODB.Recordset

sqltextexec = " SELECT name FROM sys.tables WHERE  schema_id = 7 AND name LIKE 'FinalCalculated%' ORDER BY create_date "

rs.Open sqltextexec, cn

rs.MoveFirst

With Sheets("Generation").ComboBox1
    .Clear
    Do
        .AddItem rs![Name]
        rs.MoveNext
    Loop Until rs.EOF

End With

End Sub

此代码在我的计算机和我同事的计算机上也有效（我们来自 DB 团队），但不使用 DB 的分析师不会在文件中填充列表。

程序是否可以使用 Windows 身份验证来连接数据库？

Answer 1

连接字符串错误

您的连接字符串中似乎有错误。用户 ID 后面需要有一个分号。 改变这个

With cn
 .ConnectionString = "Provider=SQLOLEDB.1;" & _
                        "Integrated Security=SSPI;" & _
                        "Server=" & "192.160.160.150;" & _
                        "Database=" & "em_Consumer;" & _
                        "User Id= " & "User" & _
                        "Password = " & "server123"

到这里

With cn
 .ConnectionString = "Provider=SQLOLEDB.1;" & _
                        "Integrated Security=SSPI;" & _
                        "Server=" & "192.160.160.150;" & _
                        "Database=" & "em_Consumer;" & _
                        "User Id= " & "User;" & _
                        "Password = " & "server123"

那是一个难以捉摸的小家伙。

---

编辑

我无法在此处查明问题，因此此时也许一个可行的示例会更好地帮助您...

Function getSqlData(queryString As String, myUsername As String, myPassword As String, database As String) As Recordset

Dim conn As New ADODB.Connection
Dim rst As Recordset
Dim serverName As String


serverName = "192.160.160.150"


With conn
        .ConnectionString = "Provider=SQLOLEDB.1;" & _
        "Data Source=" & serverName & ";" & _
        "Initial Catalog=" & database & ";User Id=" & myUsername & ";" & _
        "Password=" & myPassword & ";Trusted_Connection=no"
        .Open
End With


Set rst = conn.Execute(queryString)

Set getSqlData= rst

End Function

这将返回您的记录集。

Answer 2

今天我尝试使用@loplateral 帮助从头开始编写它。代码如下：

Private Sub Workbook_Open()

ActiveWorkbook.Sheets("generation").Activate
            
Dim rstt As Recordset

MsgBox "1"
                    
Set rstt = getData()
                         
End Sub

-------------------------------------------------

Private Function getData()

Dim conn As New Connection
Dim rst As Recordset
Dim sqlstring As String
Dim rwcnt As Integer


MsgBox "2"

sqlstring = "SELECT productname FROM dbo.products WHERE recalc = 1"
     
With conn

 .ConnectionString = "Provider=SQLOLEDB.1;" & _
                     "Data Source=192.160.160.150;" & _
                     "Initial Catalog=em_Consumer;" & _
                     "User Id=User;" & _
                     "Password=server!;" & _
                      "Trusted_Connection=no"

.Open

End With

MsgBox "3"

Set rst = conn.Execute(sqlstring)

rwcnt = rst.RecordCount

MsgBox rwcnt

MsgBox "5"

Set getData = rst

MsgBox "6"

End Function

所以当我打开文件时，我会收到消息：

1 表示程序已启动；

2表示进入函数；

3 表示连接没有问题；

！！然后我得到 -1 值作为记录计数，这意味着有问题

我尝试在 Management Studio 中运行此查询，它返回 50 行

然后程序更进一步，我得到 5 和 6 ...

你知道代码有什么问题吗？

---------------------------------------------- H1>

也许它可以提供帮助，代码可以正常工作但在同一文档中返回表而不是记录集：

Sub Button3_Click()

    ActiveSheet.Cells.Clear
               
    Dim qt As QueryTable
    
    sqlstring1 = "SELECT * FROM dbo.Report"
     
    With ActiveSheet.QueryTables.Add(Connection:=getConnectionStr2, Destination:=Range("A3"), Sql:=sqlstring1)

    .Refresh
    
    End With
           
End Sub

----------------------------------

Private Function getConnectionStr2()
'DRIVER={SQL Server};
getConnectionStr2 = "ODBC;DRIVER={SQL Server};" & _
                   "DATABASE=em_Consumer;" & _
                   "SERVER=192.160.160.150;" & _
                   "UID=user;" & _
                   "PWD=server!;"
End Function