Encrypt excel-vba ADODB接続

Question

私はいくつかのExcelレポートを作成中で、SQL接続を暗号化しようとしています。サーバー側では、私はすべて適切にセットアップし、Microsoft管理スタジオで私は安全な接続を確立することができます。しかし、私は何のための解決策を見つけることはできません。私はEncrypt = yesのようなものが必要だと思うか、SSLをサポートしていないこのADODB.Connectionですか？事前

Answer 1

で

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 

おかげで私のSQL Server上の強制暗号化オプションは、トリックを行いました。

おかげラルフ:)

Answer 2

あなたはSSLやTLSを使用して、SQL Serverへのすべての接続を確保したい場合は、サーバー上のプロトコルのセットのためにyesに強制暗号化オプションを設定してもインストールする必要がありますドメインCAまたはパブリックCAによって生成された証明書。 Force Encryptionをyesに設定すると、SQL Serverから生成された自己署名証明書を使用するすべての接続が暗号化されます。これにより、中間の攻撃の男性が開かれる可能性が残されます。 CA（Certificate Authority）は、ユーザー、コンピュータ、組織のIDを証明したり、証明書を生成、管理、更新するために使用されるサービスまたはアプリケーションです。

ドメインCAによって生成された証明書を使用していると仮定します。 SQL ServerとドメインCAシステムとクライアントシステムが互いに通信できる限り、クライアントはSQL Serverとのセッションを開始し、その後、セキュアセッションの要求に応答し、生成された証明書を提示します検証のためにドメインCAサーバをクライアントに送信する。次に、クライアントは、有効な証明書であることをドメインCAシステムで検証し、デジタル署名を使用して修正されていないことを検証することによって、証明書を2つの方法で検証する必要があります。

SQL ServerでSSLを有効にする方法の基本は、データベースエンジンを実行しているサービスアカウントの証明書ストアに証明書と秘密キーをインポートしてから、サーバープロトコルのプロパティで[Force Encryption]プロパティを[ SQL Server Configuration Managerの[証明書]タブで、ドメインCAまたはパブリックCAから生成された証明書を選択します。