|
VAccess
現在のインデックス パスのキーよりも大きい最初のレコードを取得し、Pervasive PSQL ステータス コードを整数値で返します。
GetGreater メソッドの構文は次のような要素で構成されます。
このメソッドは、現在選択されているインデックス フィールドが、オペレーションの実行前にそのフィールドに指定された値よりも大きい値を含んでいる最初のレコードを、コントロールに関連付けられたファイルから取得します。このオペレーションを実行する前に、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
|