Как создать соединение ODBC с SQL Server?

Question

Я пытаюсь использовать Access для вызова хранимой процедуры в SQL Server. Но у меня возникли проблемы с подключением ODBC , я не знаю, что я чего-то не хватает? Или просто нужно сделать какой-то набор в sql-сайте?

У меня есть экран, как это:

и код позади кнопки ОК это:

 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 является "[COMPUTERNAME] \ [SQL SERVER INSTANCE]" (так же, как SSMS в например, это как "MyHomePC \ SQLEXP") и sDBName является каталогом по умолчанию, то есть стандартным DB для открытия. Вам нужно будет добавить ссылку на Microsoft ActiveX Data Objects, чтобы вы могли использовать ADODBConnection, Command и Recordset объектов (в окне доступа VB: «Инструменты» -> «Ссылки ...»).
MSDataShape не является обязательным, но подходит для иерархических сеток.


EDIT: BTW, from connstr. сайт: Driver={SQL Server Native Client 11.0};Server=myServerAddress;Database=myDataBase; Uid=myUsername;Pwd=myPassword; (опять же, для SQL Server 2012, для 2008 года это «... Клиент 10.»)