備考
MovePrevious
メソッドを使用してダイナセットの最初のレコードより前に移動しようとした場合は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