---

OriginalName

適用対象

OraFieldオブジェクト

説明

(Nameプロパティによって戻されてサーバーに表示されるフィールド名ではなく)ダイナセットのSELECT文で使用された元の列名を戻します。設計時には使用できません。実行時は読取り専用です。

使用方法

field_name = Orafield.OriginalName

備考

orafield.OriginalNameメソッドは、指定したOraFieldオブジェクトの名前を戻します。このメソッドにより、ダイナセットの作成時にSQL文に指定された元の列名が戻されます。このプロパティは、SQL文に、フィールドのNameとして'schema.table.col'が含まれている場合に便利です。これにより、重複した列名を参照できるようになります。これにより、重複した列名を参照できるようになります (SQL文で別名を使用することによって、列名の重複を回避する方法もあります)。

例

次の例では、OriginalNameプロパティの使用方法を示します。このコードをコピーして、フォームの定義セクションに貼り付けてください。次に[F5]を押します。

Sub Form_Load ()
 
 'Declare variables 
 Dim OraSession As OraSession 
 Dim OraDatabase As OraDatabase 
 Dim OraDynaset As OraDynaset 
 Dim OraFields As OraFields
 
 '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&)
 
 Set OraDynaset = OraDatabase.CreateDynaset("select scott.emp.deptno," & _ 
    "dept.deptno from scott.emp, scott.dept where dept.deptno = emp.deptno", 0&)
 
 Set OraFields = OraDynaset.Fields
 
 'Returns "DEPTNO"  
 MsgBox OraFields(0).Name   
 
 'Returns "scott.emp.deptno" 
 MsgBox OraFields(0).OriginalName   
   
 'Returns "dept.deptno" 
 MsgBox OraFields(1).OriginalName  
 
End Sub