加密 excel-vba ADODB 连接

Question

我正在创建一些 Excel 报告，并且我正在尝试加密我的 SQL 连接。在服务器端，我已经正确设置了所有内容，并且通过 Microsoft 管理工作室，我能够建立安全连接。但是我找不到任何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 上的强制加密选项起到了作用。

谢谢拉尔夫 :)

Answer 2

如果您想使用 SSL 或 TLS 保护与 SQL Server 的每个连接，则应将服务器上的一组协议的强制加密选项设置为是，并安装由域 CA 或公共证书生成的证书加利福尼亚州。将 Force Encryption 设置为 yes 会使用从 SQL Server 生成的自签名证书对所有连接进行加密。这使得中间人攻击的可能性敞开。 CA 或证书颁发机构是用于证明用户、计算机和组织的身份以及生成、管理和更新证书的服务或应用程序。

假设您使用的是域 CA 生成的证书。只要您的 SQL Server、域 CA 系统和客户端系统可以相互通信，应该发生的是客户端启动与 SQL Server 的会话，然后 SQL Server 响应安全会话请求并提供从生成的证书域 CA 服务器到客户端进行验证。那么客户端应该通过两种方式来验证证书，通过域CA系统验证它是一个有效的证书，并通过使用数字签名来验证它没有被修改。

在 SQL Server 上启用 SSL 的基础是将证书和私钥导入运行数据库引擎的服务帐户的证书存储区，然后使用 SQL 在服务器协议的属性中将 Force Encryption 属性设置为 yes服务器配置管理器并在证书选项卡上选择从域 CA 或公共 CA 生成的证书。