VBA Connection String - Аутентификация Windows

Question

Я хочу изменить свои SQL-соединения, чтобы использовать проверку подлинности Windows вместо имени пользователя и пароля базы данных. Какие изменения мне нужно сделать в приведенном ниже коде?

strSQL = "" 
strSQL = strSQL & "OLEDB;" & vbCrLf 
strSQL = strSQL & "Provider=SQLOLEDB.1;" & vbCrLf 
strSQL = strSQL & "Integrated Security=SSPI;" & vbCrLf 
strSQL = strSQL & "Initial Catalog=" & wshQuery.Range("B2").Value & ";" & vbCrLf 
strSQL = strSQL & "Data Source=" & wshQuery.Range("A2").Value & ";" & vbCrLf 
strSQL = strSQL & "Use Procedure for Prepare=1;" & vbCrLf 
strSQL = strSQL & "Auto Translate=True;" & vbCrLf 
strSQL = strSQL & "Packet Size=4096;" & vbCrLf 
strSQL = strSQL & "Workstation ID=W-TPL-3275;" & vbCrLf 
strSQL = strSQL & "Use Encryption for Data=False;" & vbCrLf 
strSQL = strSQL & "Tag with column collation when possible=False" 

strCon = strSQL 

Спасибо!

Answer 1

Посмотрите, работает ли этот код. Кроме того, каждый раз, когда вам нужно соединение, вы можете использовать this website

Option Explicit 

Sub test() 

    Dim strCon As String 

    strCon = vbNullString 
    strCon = strCon & "OLEDB;" 
    strCon = strCon & "Provider=SQLOLEDB.1;" 
    strCon = strCon & "Integrated Security=SSPI;" 
    strCon = strCon & "Initial Catalog=" & wshQuery.Range("B2").Value & ";" 
    strCon = strCon & "Data Source=" & wshQuery.Range("A2").Value & ";" 
    strCon = strCon & "Use Procedure for Prepare=1;" 
    strCon = strCon & "Auto Translate=True;" 
    strCon = strCon & "Packet Size=4096;" 
    strCon = strCon & "Workstation ID=W-TPL-3275;" 
    strCon = strCon & "Use Encryption for Data=False;" 
    strCon = strCon & "Tag with column collation when possible=False;" 

    'Added this two 
    strCon = strCon & "Uid=" & UserName & ";" 
    strCon = strCon & "Pwd=" & UserPassword & ";" 

End Sub 

Спасибо Я надеюсь, что это помогает :)