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