備考
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