如何創建到SQL Server的ODBC連接？

Question

我嘗試使用Access調用SQL Server中的存儲過程。但有困難建立的ODBC連接，我不知道我錯過了什麼？或者只需要在SQL網站上做一些設置？

我有這樣一個畫面：

和OK按鈕後面的代碼是這樣的：

 Dim dbPUBS As dao.Database 
     Dim tdfPUBS As dao.TableDef 
     Dim qdfPUBS As dao.QueryDef 
     Dim strMsg As String 
     Dim strSQL As String 

    ' Check for existence of Server, Database and User Name. 
      ' If missing, inform user and exit. 

      If IsNull(Me!txtServer) Then 
     strMsg = "Enter name of your company's Server." & _ 
      & "(See your database administrator)" 
     MsgBox strMsg, vbInformation, "Missing Data" 
     Me!txtServer.SetFocus 
    ElseIf IsNull(Me!txtDatabase) Then 
     strMsg = "Enter name of database. (Example: xxxx)" 
     MsgBox strMsg, vbInformation, "Missing Data" 
     Me!txtDatabase.SetFocus 
    ElseIf IsNull(Me!txtUID) Then 
     strMsg = "Enter user login. (Example: xx)" = "" 
     MsgBox strMsg, vbInformation, "Missing Data" 
     Me!txtDatabase.SetFocus 
    Else 
     strServer = Me!txtServer 
     strDatabase = Me!txtDatabase 
     strUID  = Me!txtUID 
     ' Password may be NULL, so provide for that possibility 
     strPWD  = Nz(Me!txtPWD, "") 

     ' Prepare connection string 
     strConnect = "ODBC;DRIVER={SQL Server}" _ 
       & ";SERVER=" & strServer _ 
       & ";DATABASE=" & strDatabase _ 
       & ";UID=" & strUID _ 
       & ";PWD=" & strPWD & ";" 
    End If 


      Private Function ValidateConnectString() As Boolean 
      On Error Resume Next 

      Err.Clear 
      DoCmd.Hourglass True 

     ' Assume success 

     ValidateConnectString = True 

' Create test Query and set properties 

     Set qdfPUBS = dbPUBS.CreateQueryDef("") 
     qdfPUBS.Connect = strConnect 
     qdfPUBS.ReturnsRecords = False 
     qdfPUBS.ODBCTimeout = 5 

' Attempt to delete a record that doesn't exist 

      qdfPUBS.SQL = "DELETE FROM Authors WHERE au_lname = 'Lesandrini'" 

' Simply test one Pass Through query to see that previous 
' connect string is still valid (server has not changed) 

      qdfPUBS.Execute 

' If there was an error, connection failed 

      If Err.Number Then ValidateConnectString = False 

      Set qdfPUBS = Nothing 
      DoCmd.Hourglass False 

End Function 

Answer 1

這是錯誤的

strConnect = "ODBC;DRIVER={SQL Server}" _ 
      & ";SERVER=" & strServer _ 
      & ";DATABASE=" & strDatabase _ 
      & ";UID=" & strUID _ 
      & ";PWD=" & strPWD & ";" 

它應該閱讀

strConnect = "DRIVER={SQL Server Native Client 10.0}" _ 
      & ";SERVER=" & strServer _ 
      & ";DATABASE=" & strDatabase _ 
      & ";UID=" & strUID _ 
      & ";PWD=" & strPWD & ";" 

Answer 2

您應該訪問ConnectionStrings網站了解詳情，但是，如果我是您，我不會使用ODBC。
我的連接（用於SQL Server 2012）：

Private oCon As ADODB.Connection

Public Sub InitConnection(ByRef sDataSource As String, ByRef sDBName As String) 
Dim sConStr As String 

    Set oCon = New ADODB.Connection 
    sConStr = "Provider=MSDataShape;Data Provider=SQLNCLI11;" & _ 
       "Integrated Security=SSPI;Persist Security Info=False;Data Source=" & _ 
       sDataSource & ";Initial Catalog=" & sDBName 
    On Error Resume Next 
     Call oCon.Open(sConStr) 
     If (Err.Number = 0) Then 
      'all OK 
     Else 
      'Show Error Message/Throw/Sink/etc 
     End If 
    On Error GoTo 0 
End Sub

哪裏sDataSource是 「[計算機] \ [SQL Server實例]」（同例如SSMS，它就像 「MyHomePC \ SQLEXP」）和sDBName是默認目錄，即打開默認數據庫。您需要添加對Microsoft ActiveX Data Objects的引用，以便您可以使用ADODBConnection,Command和Recordset對象（在Access VB窗口中：「工具」 - >「參考...」）。
MSDataShape不是強制性的，但適用於分層網格。


編輯：順便說一句，從connstr。網站：Driver={SQL Server Native Client 11.0};Server=myServerAddress;Database=myDataBase; Uid=myUsername;Pwd=myPassword;（同樣，對於SQL Server 2012，對於2008，它是「...客戶端10」）。