ActiveX Controls Guide (v11)

GetGreater (ActiveX メソッド)

適用対象

VAccess

説明

現在のインデックス パスのキーよりも大きい最初のレコードを取得し、Pervasive PSQL ステータス コードを整数値で返します。

構文

object.GetGreater [vLockBias] 

GetGreater メソッドの構文は次のような要素で構成されます。

要素
説明
object
必須。object プレースホルダーは、[適用対象]のオブジェクトを評価するオブジェクト式を表します。
vLockBias
省略可能。レコードを取得する際にセットするレコード ロックの種類を表す値です。デフォルトは 0 で、ロックなしです。次のいずれかの定数を指定できます。
Const BTO_SingleNoWait = 200
Const BTO_MultiNoWait = 400

備考

このメソッドは、現在選択されているインデックス フィールドが、オペレーションの実行前にそのフィールドに指定された値よりも大きい値を含んでいる最初のレコードを、コントロールに関連付けられたファイルから取得します。このオペレーションを実行する前に、IndexNumber プロパティで指定されたインデックスを構成するフィールドの値を設定する必要があります。

キー フィールドがフィールド コントロールにバインドされている場合、その値はバウンド コントロールの内容を修正することによって設定されます。これらの値をコードから設定するには、FieldValue プロパティを使用します。

オペレーションのステータス コードはこのメソッドから返され、コントロールの Status プロパティに設定されます。ステータスがゼロの場合は正常に実行されたことを示します。ステータス コード 9 は、ファイル内のレコードには、オペレーションの前に指定された値より大きいキー値のレコードがないことを示します。

'姓が S で始まる最初のレコードを検索する 
Customers.IndexNumber = 1    '姓 
Customers.FieldValue("last_name") = "S" 
Customers.GetGreater 
Select Case Customers.Status 
   Case 0 
      'レコードを取得したが、条件に一致するかテストする 
      '必要がある。 
      'GetGreater メソッドはこのテストを行わない。 
      'ファイルに "S" のレコードがない場合、このレコードは 
      '"T"、"U"、"V" などである可能性がある。 
      If Left$(Customers.FieldValue _ 
         ("last_name"), 1) = "S" Then 
         MsgBox "Found:" & Customers.FieldValue _ 
            ("last_name") 
      Else 
         MsgBox "No record was found." 
      End If 
   Case Else 
      MsgBox "No record was found." 
End Select 

GetFirst (ActiveX メソッド)

GetGreaterOrEqual (ActiveX メソッド)