Access Tips #449 ストアドプロシージャの呼び出し例（編集系、パラメータあり）

Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command

Set cnn = CurrentProject.Connection
Set cmd = New ADODB.Command
With cmd
  .ActiveConnection = cnn
  .CommandText = "ストアドプロシージャ名"
  .CommandType = adCmdStoredProc
  .Parameters.Refresh
  .Parameters("@パラメータ名１") = パラメータ値１
  .Parameters("@パラメータ名２") = パラメータ値２
  ・・・・・・（パラメータの数だけパラメータ代入を列挙）・・・・・・

  .Execute , , adExecuteNoRecords
End With
Set cmd = Nothing


#449	ストアドプロシージャの呼び出し例（編集系、パラメータあり）	VBA
Accessプロジェクト（.ADP）などにおいて、VBAを使ってストアドプロシージャを呼び出す例です。ここでは、UPDATEやINSERT、DELETEなどのレコード編集系の処理を行うもので、レコードを返さないストアドプロシージャ、かつパラメータを持ったストアドプロシージャの呼び出しパターンのひとつを紹介します（他にもいろいろなオブジェクトを使ったコーディング方法があり、あくまでもその中の１つです）。 Dim cnn As ADODB.Connection Dim cmd As ADODB.Command Set cnn = CurrentProject.Connection Set cmd = New ADODB.Command With cmd .ActiveConnection = cnn .CommandText = "ストアドプロシージャ名" .CommandType = adCmdStoredProc .Parameters.Refresh .Parameters("@パラメータ名１") = パラメータ値１ .Parameters("@パラメータ名２") = パラメータ値２・・・・・・（パラメータの数だけパラメータ代入を列挙）・・・・・・ .Execute , , adExecuteNoRecords End With Set cmd = Nothing
\| Index \| Prev \| Next \| この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら...... T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件～でご支援します。 Access（アクセス）によるソフト開発ならおまかせください！スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします https://accdev.tsware.jp/