3

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
4

2 に答える 2

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

"[COMPUTERNAME]\[SQL SERVER INSTANCE]" (たとえば、 SSMSsDataSourceと同じ、"MyHomePC\SQLEXP" のようなもの)sDBNameは、既定のカタログ、つまり開く既定の DB です。、およびオブジェクトMicrosoft ActiveX Data Objectsを使用できるように、への参照を追加する必要があります (Access VB ウィンドウ: [ツール] --> [参照...])。必須ではありませんが、階層グリッドに便利です。編集：ところで、connstrから。サイト: (繰り返しますが、SQL Server 2012 の場合、2008 の場合は「...クライアント 10」です。)ADODB ConnectionCommandRecordset
MSDataShape


Driver={SQL Server Native Client 11.0};Server=myServerAddress;Database=myDataBase; Uid=myUsername;Pwd=myPassword;

于 2013-05-08T13:49:14.240 に答える