0

以下に説明するように、複数のストアドプロシージャを次々に（潜在的に）実行する必要がある設計があります。 

   Dim cn As ADODB.Connection: Set cn = New ADODB.Connection
   Dim srv As String: srv = GetValue("tblBrandDatabase", abbr)
   Dim db As String: db = GetValue("tblBrandDatabase", abbr, 3)
   Dim connstr As String
   connstr = "Provider=SQLNCLI10;Server=" & srv & _
               ";Database=" & db & _
               ";Trusted_Connection=yes"

   cn.Open connstr

   ProcessEmplData wb, cn
   If (cn.State = adStateOpen) Then cn.Close

   cn.Open connstr
   Dim cmd As ADODB.Command: Set cmd = New ADODB.Command
   With cmd
      Set .ActiveConnection = cn

      'Process the new Imported Employee Data
      .CommandText = "Process_EmplData"
      .CommandText = adCmdStoredProc
      .Execute
   End With

   If (cn.State = adStateOpen) Then cn.Close
   Set cn = Nothing

質問：

エラーコードを取得せずにこれを成功させるにはどうすればよいRun-time error -2147217900 (80040e14) - Incorrect syntax near '4'ですか？

両方のバージョンがまだ現場に配備されているため、2007/2010に適用する必要があります。

4

1 に答える 1

1

もう見ましたか？
4はの値ですadCmdStoredProc。あなたはそれで上書き.CommandTextします。.CommandType2番目の代わりに使用し.CommandTextます。

于 2012-11-03T20:32:36.540 に答える