---

EOFプロパティ

適用対象

OraDynasetオブジェクト

説明

ダイナセットのカレント・レコードの位置が最後のレコードより後かどうかを示します。設計時には使用できません。実行時は読取り専用です。

使用方法

eof_status = oradynaset.EOF

データ型

Integer(ブール)

備考

MoveNextメソッドを使用してダイナセットの最後のレコードより後に移動しようとした場合はTRUEを戻します。それ以外の場合はFALSEを戻します。

レコードセットが空の場合、BOFとEOFは両方ともTRUEを戻します。

例

この例では、BOFおよびEOFプロパティを使用して、レコードセットの範囲を検出する方法を示します。このコードをコピーして、フォームの定義セクションに貼り付けてください。次に[F5]を押します。

Sub Form_Load ()
 
 'Declare variables 
 Dim OraSession As OraSession 
 Dim OraDatabase As OraDatabase 
 Dim OraDynaset As OraDynaset 
 
 'Create the OraSession Object
 Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 
 'Create the OraDatabase Object by opening a connection to Oracle
 Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
 
 'Create the OraDynaset Object
 Set OraDynaset = OraDatabase.CreateDynaset("select empno, ename from emp", 0&)
 
 'Traverse until EOF is reached
 Do Until OraDynaset.EOF
  OraDynaset.MoveNext
  Loop
 MsgBox "Reached EOF"
 
 'When EOF is True there is no current record. The current recordset
 ' position is now AFTER the last record
 OraDynaset.MoveLast
 
 Do Until OraDynaset.BOF
  OraDynaset.MovePrevious
 Loop
 MsgBox "Reached BOF"
 
 'When BOF is True there is no current record. The current recordset 
 'position is now BEFORE AFTER the last record.
 
 OraDynaset.MoveFirst
 
 'The recordset is now positioned at the first record.
 
End Sub

関連項目: BOFプロパティ MoveFirst、MoveLast、MoveNextおよびMovePreviousメソッド