CreateObjectで作成したADODB.RecordsetのLockType指定方法

Question

今まで、次のコードを使っていて、動いていました。

'参照設定でMicrosoft ActiveX Data Ovjects 301 Libraryを参照
Set oRs = New ADODB.Recordset 'レコードセットの作成(Connectionは別途上で作成しています)
oRs.LockType = adLockReadOnly '読み取り専用に設定

諸都合あり、参照設定をやめてCreateObjectで書き直しました。

'参照設定なし
Set oRs = CreateObject("ADODB.Recordset") 'レコードセットの作成(Connectionは別途上で作成しています)
oRs.LockType = adLockReadOnly '読み取り専用に設定

ここで、Locktype指定のさい、

引数が間違った型、許容範囲外、または競合しています。

の旨エラー発生しました。

1. このトラブルを解消するためにはどのように指定を修正すればよいでしょうか。
2. ウォッチ式でoRSを見ると、LockTypeEnum型のLockTypeというプロパティが存在する事は理解できました。Enumであるからして指定可能な何等かの文字が決まっているのだと思われますが、どういう文字を指定可能なのかVBE上で確認する方法はあるでしょうか。

Answer 1

re1.
oRs.LockType = 1
と直値で記述するか

Const adLockReadOnly = 1
oRs.LockType = adLockReadOnly
事前に定数定義するか、で修正してください

余計な事かもしれませんが、モジュール冒頭にOption Explicit ステートメントを記述していれば
「変数が定義されていません」のコンパイルエラーになり、対処方法がもう少し解りやすくなります

re2.
VBE上なら、オブジェクトブラウザ（F2キーで表示）を活用されたほうが良いでしょう
ADODBの参照設定が必要です
未参照だと図の左のように検索できませんが参照するとADODBライブラリからLockTypeEnumのメンバーを調べることができます
オンラインなら
https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/locktypeenum
ここでADOの列挙定数を調べることができます

Comments

[tokita.]

回答ありがとうございます。
ADODBの参照設定を外したさいにADODBに含まれていたEnumの定義が全て消えたために
値なしになりエラーが起きていたということですね。

そしてEnumの実体はただの数字であるから、ADODBの参照設定をした状態のオブジェクトブラウザでConstの定義を調べることにって
実値が解るので、それを使うか、オンラインでValueを調べてそれを使うということですね。

なお「adOpenForwardOnly」の指定だけなぜかエラーが出ていなかったので不思議に思っていたのですが
同じく調べたところこれは実値が0のようでした。
もし読み取り権限が0を許容するような値だったらと思うとぞっとします。

Option Explicit ステートメントについて、これまで小規模だったこともあり使用していませんでしたが
今回の教訓として使用を検討します。

どうもありがとうございました。