Devart Forums

Code: Select all

Create type type1 as object(
	a_id1   number,
	a_date1 date,
	a_id2   number,
	a_date2 date 
) not final;

Create table table1 of type1;

Insert into table1 values (1,to_date( '2012','yyyy'),2,to_date( '2011','yyyy'));

Select value(x) from table1 x; --works

Drop table table1;
Drop type type1;

Code: Select all

Create type type1 as object(
	a_id1   number,
	a_date1 date 
) not final;

Create type type2 under type1(
	a_id2   number,
	a_date2 date 
) not final;

Create table table2 of type2;

Insert into table2 values (1,to_date( '2012','yyyy'),2,to_date( '2011','yyyy'));

Select *  from table2 x; -- ok
Select value(x) from table2 x; -- Invalid argument to date encode

Drop table table2;
Drop type type2;
Drop type type1;

Code: Select all

Create type type1 as object(
	a_id1   number,
	a_date1 timestamp 
) not final;

Create type type2 under type1(
	a_id2   number,
	a_date2 timestamp
) not final;

Create table table2 of type2;

Insert into table2 values (1,systimestamp, 2, systimestamp)

Select value(x) from table2 x; -- it works!

Drop table table2;
Drop type type2;
Drop type type1;

Code: Select all

Create type type1 as object(
  a_id1   number(18)
) not final;

Create type type2 under type1(
  a_id2   number(18),
  a_id3   number(18),
  a_date1 timestamp, 
  a_date2 timestamp,
  a_id4   number(18)
) not final;

Create type type3 under type2(
  a_id5   number(18)
) not final;

Create table table3 of type3;

Insert into table3 values (1, 2, 3, systimestamp,systimestamp, 4, 5)

Select value(x) from table3 x; -- Numeric Overflow on 2,3: got -1,0E126 -1,0E126

Drop table table3;
drop type type3;
Drop type type2;
Drop type type1;

Code: Select all

Create type type1 as object(
  a_id1   number(18)
) not final;

Create type type2 under type1(
  a_id2  number(18), 
  a_id3  number(18),
  a_id4  number(18),
  a_date1 timestamp,
  a_date2 timestamp
) not final;

Create type type3 under type2(
  a_id5   number(18)
) not final;

Create table table3 of type3;

Insert into table3 values (1, 2, 3, 4, systimestamp, systimestamp, 5)

Select value(x) from table3 x; -- OCI_INVALID_HANDLE

Drop table table3;
drop type type3;
Drop type type2;
Drop type type1;

Code: Select all

--…after Es6…
alter type type1 add attribute a_date0 timestamp cascade;
Select value(x) from table3 x; -- works

Code: Select all

Create type type1 as object(
   a_id1   number,
   a_date1 date
) not final;

Create type type2 under type1(
   a_id2   number,
   a_date2 date
) not final;

Create table table2 of type2;

Insert into table2 values (1,to_date( '2012','yyyy'),2,to_date( '2011','yyyy'));

Code: Select all

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 279
  ClientWidth = 475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 96
    Top = 112
    Width = 320
    Height = 120
    DataSource = OraDataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object OraSession1: TOraSession
    Username = 'user'
    Server = 'localhost'
    Left = 360
    Top = 72
    EncryptedPassword = '9CFF9EFF8DFF96FF9DFF9AFF93FFCEFF'
  end
  object OraQuery1: TOraQuery
    Session = OraSession1
    SQL.Strings = (
      'Select value(x) from table2 x')
    Left = 160
    Top = 40
  end
  object OraDataSource1: TOraDataSource
    DataSet = OraQuery1
    Left = 16
    Top = 56
  end
end

Code: Select all

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "DBAccess.hpp"
#include "MemDS.hpp"
#include "Ora.hpp"
#include "OraCall.hpp"
#include <Data.DB.hpp>
#include <Vcl.DBGrids.hpp>
#include <Vcl.Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TOraSession *OraSession1;
	TOraQuery *OraQuery1;
	TDBGrid *DBGrid1;
	TOraDataSource *OraDataSource1;
	void __fastcall FormShow(TObject *Sender);
private:	// User declarations
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Code: Select all

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DBAccess"
#pragma link "MemDS"
#pragma link "Ora"
#pragma link "OraCall"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	OraQuery1->Open();
}
//---------------------------------------------------------------------------