‘オラクルオブジェクト変数の宣言。 Dim OraDynaset As OraDynaset Dim OraFields As OraFields Dim OraField1 As OraField Dim OraField2 As OraField
strSql = "SELECT * FROM emp" ‘ダイナセットを作成し、データの読み込みを行う。
Set OraDaynaset = OraDatabase.DbCreateDynaset(strSql, ORADYN_ORAMODE) ‘Fieldsオブジェクトの階層を減らしたオブジェクトを作成する。 Set OraFields = OraDaynaset.Fields
‘特定のFieldsオブジェクトを指定したFieldsオブジェクトで作成する。 ‘これを使うとFieldsオブジェクトの参照を高速化出来る。 Set OraField1 = OraFields("ename") Set OraField2 = OraFields("job")
With OraDaynaset ‘データが無くなるまでループする。 Do While Not .EOF ‘オラクルデータを取得する。 strEname = OraField1.Value ‘階層を減らしたFieldオブジェクトなので高速に取得出来る。 strJob = IIf(IsNull(OraField2.Value), "", OraField2.Value) ‘カーソルを次の行にすすめる。 .DbMoveNext Loop End With
‘作成したオブジェクトを全て開放する。 ‘スコープを抜けると自動的に開放されるが、 ‘明示的に開放するコーディングを行う。 Set OraField1 = Nothing Set OraField2 = Nothing Set OraFields = Nothing