--创建对象
create type NAME_TY as object
(First_Name VARCHAR2(25),
Middle_Initial CHAR(1),
Last_Name VARCHAR2(30),
Suffix VARCHAR2(5));
/
--创建含对象的table
create table EMPLOYEE
(EmpNo NUMBER(10) PRIMARY KEY,
Name NAME_TY,
DeptNo NUMBER(2) DEFAULT 10,
Salary NUMBER(7,2) CHECK (salary<1000000),
Birth_Date DATE,
Soc_Sec_Num CHAR(9) )
;
/
--插入数据
INSERT INTO EMPLOYEE(EmpNo ,
Name ,
DeptNo ,
Salary,
Birth_Date ,
Soc_Sec_Num)
VALUES(10002,
name_ty('DOSN','1','KILY','SNDY'),
30,
900,
SYSDATE,
100090009);
INSERT INTO EMPLOYEE(EmpNo ,
Name ,
DeptNo ,
Salary,
Birth_Date ,
Soc_Sec_Num)
VALUES(10001,
name_ty('JONE','1','JAKE','ALEX'),
30,
800,
SYSDATE,
100090009);
--SQL 查询
select name from EMPLOYEE ;
--其他查询
DECLARE
V_TYPE NAME_TY ;
CURSOR A IS
select NAME from EMPLOYEE ;
BEGIN
FOR I IN A LOOP
V_TYPE := I.NAME;
DBMS_OUTPUT.PUT_LINE(V_TYPE.First_Name);
DBMS_OUTPUT.PUT_LINE(V_TYPE.Middle_Initial);
END LOOP;
END;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/7735683/viewspace-571232/ ，如需转载，请注明出处，否则将追究法律责任。
