---

PinOption(OraRef)プロパティ

適用対象

OraRefオブジェクト

説明

PIN操作での参照可能オブジェクトに対するPinオプションを取得および設定します。

使用方法

pin_option = OraRef.PinOptionOraRef.PinOption = pin_option

引数

引数	説明
[in] PinOption	Pinオプションを表す整数。

データ型

Integer(ブール)

備考

pin_optionプロパティの戻り値は、次のとおりです。

定数	値	説明
ORAREF_READ_ANY	3	オブジェクトがすでにオブジェクト・キャッシュにある場合はキャッシュから戻し、それ以外の場合はデータベースから取り出します(デフォルト)。
ORAREF_READ_RECENT	4	トランザクション中にオブジェクトがキャッシュに取り出される場合は、キャッシュから戻します。それ以外の場合はデータベースからオブジェクトを取り出します。
ORAREF_READ_LATEST	5	常にデータベースから最新の値を取り出します。

例

次の例では、PinOptionプロパティの使用方法を示します。サンプル・コードを実行する前に、必要なデータ型と表がデータベース内にあることを確認してください。「OraObjectおよびOraRefの例で使用されているスキーマ・オブジェクト」を参照してください。

Dim OraSession as OraSession
Dim OraDatabase as OraDatabase
Dim OraDynaset as OraDynaset
Dim Person as OraRef
 
'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 a dynaset object from customers
set OraDynaset = OraDatabase.CreateDynaset("select * from customers",  0&)
 
'retrieve a aperson column from customers. Here Value 
'property of OraField object returns Person OraRef
set Person = OraDynaset.Fields("aperson").Value
 
'set the ORAREF_READ_LATEST read option on the Person object. 
Person.PinOption = ORAREF_READ_LATEST 
 
'pin the Person Ref and get the latest copy of referenceable 
'object for Ref from the database
MsgBox Person.Name
MsgBox Person.Age