Я собираюсь создать несколько отчетов Excel, и я пытаюсь зашифровать мои SQL-соединения. На стороне сервера у меня все правильно настроено, и с помощью студии управления Microsoft я могу установить безопасное соединение. Однако я не могу найти решение для Excel. Я думаю, мне нужно что-то вроде Encrypt = yes
или это ADODB.Connection не поддерживает SSL?Encrypt excel-vba ADODB connection
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 не обрабатывается Excel, а Windows (с точки зрения безопасности, сети, шифрования, аутентификации и т. Д.). Вы даже не можете установить время ожидания соединения в Excel/ADO. Ну, конечно, вы можете использовать 'ADODB.Connection.ConnectionTimeout = 5000'. Но вы можете пропустить эту линию, так как она не окажет никакого влияния. Итак, если я не ошибаюсь, тогда вы должны сосредоточиться на своих настройках SQL и убедиться, что он разрешает только зашифрованные соединения: https://msdn.microsoft.com/en-us/library/ms191192.aspx Тогда вам все будет в порядке с 'Trusted_Connection = yes'. – Ralph