文書番号: 222145 - 最終更新日: 2004年2月6日 - リビジョン: 3.0

[ADO] ADODC のイベントでコンパイル エラーが発生する

対象製品
お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。
この記事は、以前は次の ID で公開されていました: JP222145
すべて展開する | すべて折りたたむ

現象

Visual Basic 6.0 のプロジェクトで ADO 2.1 に参照設定をして ADO データ コントロール (ADODC) のイベントを使用すると、次のコンパイル エラーが発生することがあります。
Compile Error:
Procedure declaration does not match description of event or procedure havingthe same name.
エラーが発生するのは、次の ADODC のイベントを使用したときです。

EndOfRecordset
FieldChangeComplete
MoveComplete
RecordChangeComplete
RecordsetChangeComplete
WillChangeField
WillChangeRecord
WillChangeRecordset
WillMove

上記のイベントはすべて、その宣言の中で ADODB.Recordset を引数にとります。

例: ADODC の WillMove イベント プロシージャの宣言の場合: 
  Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus
  As ADODB.EventStatusEnu ByVal pRecordset As ADODB.Recordset
注意: プロジェクト内で ADODC のイベントを使用していなければ、エラーは発生しません。
先頭へ戻る

原因

ADO 2.1 およびそれ以降のインターフェイスは、ADO 2.0 から変更されました。コントロールがコンパイルされない限り、旧バージョンの ADO を使っていても、インターフェイス変更に伴う問題はありません。
先頭へ戻る

解決方法

ADO 2.1 を使って ADODC のイベントを動作させるには、イベント プロシージャの宣言に次の変更を行います。 
  ADODB.Recordset20
  Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus
  As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset20)
pRecordset 引数の ADODB.Recordset に、"20" が付加されていることに注意してください。
先頭へ戻る

状況

この動作は仕様です。
先頭へ戻る

関連情報

この資料は米国 Microsoft Corporation から提供されている Knowledge Base の Article ID 222145  (http://support.microsoft.com/kb/222145/EN-US/ ) (最終更新日 2000-10-12) をもとに作成したものです。

先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft ActiveX Data Objects 2.6
  • Microsoft ActiveX Data Objects 2.1
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 6.0 Enterprise Edition
先頭へ戻る
キーワード: 
kbinfo KB222145
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"