|
VAccess
VAccess コントロールに関連付けられた Pervasive PSQL テーブルの現在のレコードの物理位置の値を返します。物理位置を必要とする、後続のメソッドが使用する物理位置を設定します。
このプロパティは設計時には使用できません。
Position プロパティは、Pervasive PSQL ファイルの個別レコードを一意に識別する Long 型整数です。GetDirect メソッドを呼び出す前にこのプロパティを設定して、ファイルのインデックス検索を行わずに、直接このプロパティで識別されるレコードを取得します。
データ ファイルのレコードを取得するときに、このプロパティの値を使って個々のレコードに「ブックマーク」を付けておくことができます。
データ コントロールは、Position プロパティ値が現在値かどうかを追跡します。プロパティ値が現在値でないときにプロパティを読み取ると、コントロールは GetPosition 呼び出しを行って現在の値を返します。コードでこのプロパティ値を設定すると、その値は内部的に現在値とマークされますが、現在のポジショニングの変更は行いません。これは、GetDirect メソッドを呼び出すことによって実行されます。
Dim bookmark As Long '多数の重複可能キー エントリの最初のエントリを取得し、 'レコードにブックマークを付ける Customer.IndexNumber = 3 'companyName Customer.FieldValue("companyName") = "Consolidated Inc" stat = Customer.GetEqual bookmark = Customer.Position '重複可能レコードの数をカウントする While stat = 0 And Customer.FieldValue("companyName") = "Consolidated Inc" dups = dups + 1 stat = Customer.GetNext Wend '最初の重複可能レコードのポジショニングを再確立し、ロックする Customer.Position = bookmark stat = Customer.GetDirect (BTO_SingleNoWait)
影響先:GetDirect
影響元:ExtendedOps、Row、GetDirect、GetEqual、GetFirst、GetGreater、GetGreaterOrEqual、GetLast、GetLess、GetLessOrEqual、GetNext、GetNextExtended、GetPrevious、GetPreviousExtended、StepFirst、StepLast、StepNext、StepNextExtended、StepPrevious、StepPreviousExtended
|