Dictionaryの使用に先立って・・・

質問

いつもお世話になっています。

CreateObject("Scripting.Dictionary")を使用して、
DBから取得したレコードを格納したいのですが、VBのようにコレクションのプロパティを使用することは出来ないのでしょうか？

-------------------------------------------------
例）
レコード取得一覧：
Filds("ID"),Filds("NAME")

処理を行いたい構想：
Dim AAA 'コレクション
Dim gRst 'レコードセットオブジェクト
Set AAA = CreateObject("Scripting.Dictionary")

Do Until gRst.EOF
　　AAA.ID = gRst.Filds("ID")
　　AAA.NAME = gRst.Filds("NAME")
　　'次のレコード
　gRst.MoveNext
Loop

------------------------------------------------
大変お手数ですが、ご教授をお願いいたします。

回答No.1

mann555 · ベストアンサー

こんな感じかな

--------------------------------------------
dim ID,NAME
Do Until gRst.EOF
　　strID = gRst.Filds("ID")
　　strNAME = gRst.Filds("NAME")
　　if Not AAA.exists(strID) then
　　　　AAA.add strID,strNAME
　　end if
　gRst.MoveNext
Loop
------------------------------------------------