無法打開登錄請求的數據庫「MSSQLSERVER」。登錄失敗。用戶sa登錄失敗

Question

我對SQL Server以及VBA都很陌生。我嘗試使用VBA連接到我們的SQL Server，並在解決了幾個問題後，終於遇到了障礙。我收到以下錯誤消息：

無法打開登錄所請求的數據庫「MSSQLSERVER」。登錄失敗。登錄失敗的用戶sa

我知道使用sa用戶名不安全的理想，但這是我現在要處理的。我已經嘗試重新啓動SQL Server，我確保混合模式身份驗證已啓用。我使用的代碼如下所示，我現在只是使用測試查詢從數據庫中提取一行數據。任何幫助將不勝感激

Dim conn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim sConnString As String 

' Create the connection string. 
sConnString = "Provider=SQLNCLI11;Server=servername;Database=MSSQLSERVER;Uid=sa;Pwd=password;" 

' Create the Connection and Recordset objects. 
Set conn = New ADODB.Connection 
Set rs = New ADODB.Recordset 

' Open the connection and execute. 
conn.Open sConnString 
Set rs = conn.Execute("SELECT IM_BARCOD.BARCOD FROM IM_BARCOD WHERE BARCOD = '793661061274';") 

' Check we have data. 
If Not rs.EOF Then 
    ' Transfer result. 
    Sheets(1).Range("A1").CopyFromRecordset rs 
' Close the recordset 
    rs.Close 
Else 
    MsgBox "Error: No records returned.", vbCritical 
End If 

' Clean up 
If CBool(conn.State And adStateOpen) Then conn.Close 
Set conn = Nothing 
Set rs = Nothing 

Answer 1

無法打開數據庫「MSSQLSERVER」請求登錄。登錄 失敗。用戶sa登錄失敗

數據庫MSSQLSERVER不存在，所以無法打開。

只需在連接字符串中傳遞數據庫，或傳遞master或任何您應該使用的現有數據庫。

Answer 2

由默認的日誌sa用戶被禁用，則需要啓用它，試試這個：

https://sudeeptaganguly.wordpress.com/2010/04/20/how-to-enable-sa-account-in-sql-server/