excel - 加密excel-vba ADODB连接

Question

我正在创建一些 Excel 报告，我正在尝试加密我的 SQL 连接。在服务器端，我已正确设置所有内容，并且通过 Microsoft Management Studio，我能够建立安全连接。但是我找不到任何适用于 excel 的解决方案。我想我需要类似 Encrypt = yes 的东西，或者这个 ADODB.Connection 不支持 SSL？

Private Function GetDataFromADO(ByVal Sel As String) As ADODB.Recordset

'Declare variables'
    Dim objMyConn As ADODB.Connection
    Dim objMyCmd As ADODB.Command
    Dim objMyRecordset As ADODB.Recordset

    Set objMyConn = New ADODB.Connection
    Set objMyCmd = New ADODB.Command
    Set objMyRecordset = New ADODB.Recordset

'Open Connection'
    objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=" & sqlServer & ";Database=" & _
        sqlDB & ";User ID=" & sqlUsername & ";Password=" & sqlPassword & ";"
    Dim s As String
    s = objMyConn.ConnectionString
    objMyConn.Open


'Set and Excecute SQL Command'
    Set objMyCmd.ActiveConnection = objMyConn
    objMyCmd.CommandText = Sel
    objMyCmd.CommandType = adCmdText

'Open Recordset'
    Set objMyRecordset.Source = objMyCmd
    objMyRecordset.Open


Set GetDataFromADO = objMyRecordset

提前致谢

Answer 1

我的 SQL Server 上的强制加密选项起到了作用。

谢谢拉尔夫 :)