我正在创建一个将JSON CLOB作为IN OUT参数的过程。我的问题是,如何将JSON_OBJECT_T转换为CLOB?我希望在CLOB中维护JSON结构,而不仅要存储json值(请参见下面的JSON_OBJECT_T.GET_CLOB('firstname'))。
我的示例测试代码:
CREATE TABLE employees
( employee_id NUMBER(6)
, first_name VARCHAR2(20)
, last_name VARCHAR2(25)
CONSTRAINT emp_last_name_nn NOT NULL
, email VARCHAR2(25)
CONSTRAINT emp_email_nn NOT NULL
, phone_number VARCHAR2(20)
, hire_date DATE
CONSTRAINT emp_hire_date_nn NOT NULL
, job_id VARCHAR2(10)
CONSTRAINT emp_job_nn NOT NULL
, salary NUMBER(8,2)
, commission_pct NUMBER(2,2)
, manager_id NUMBER(6)
, department_id NUMBER(4)
, CONSTRAINT emp_salary_min
CHECK (salary > 0)
, CONSTRAINT emp_email_uk
UNIQUE (email)
) ;
INSERT INTO EMPLOYEES VALUES (123,'John','Doe','John.Doe@Test.Com',99999999,TRUNC(SYSDATE),234,60000,null,null,null)
--CREATE OR REPLACE PROCEDURE GETEMPLOYEE (P_CLOB IN OUT CLOB)
--AS
DECLARE
P_CLOB CLOB :=
'{
"employee_id":123
}';
V_JSON_IN JSON_OBJECT_T := JSON_OBJECT_T.PARSE(P_CLOB);
V_EMP_ID NUMBER := V_JSON_IN.GET_NUMBER('employee_id');
V_EMP_REC EMPLOYEES%ROWTYPE;
V_JSON_OUT JSON_OBJECT_T := NEW JSON_OBJECT_T;
BEGIN
P_CLOB := EMPTY_CLOB();
SELECT * INTO V_EMP_REC FROM EMPLOYEES WHERE EMPLOYEE_ID = V_EMP_ID;
V_JSON_OUT.PUT('firstname',V_EMP_REC.First_Name);
V_JSON_OUT.PUT('lastname',V_EMP_REC.Last_Name);
V_JSON_OUT.PUT('salary',V_EMP_REC.Salary);
P_CLOB := V_JSON_OUT.GET_CLOB('firstname');
DBMS_OUTPUT.put_line(TO_CHAR(P_CLOB)); -- JOHN
---How to cast V_JSON_OUT to Clob and store in P_CLOB?
END;
答案 0 :(得分:2)
您正在使用get_clob()
来获取特定的键值。
您可以使用to_string()
或to_clob()
来serialize将整个JSON对象
一个字符串值:
串行化是解析函数的逆函数。序列化操作采用JSON数据的内存表示形式,并将其打印到字符串中。序列化功能和过程为:
MEMBER FUNCTION to_String RETURN VARCHAR2 ... MEMBER FUNCTION to_Clob RETURN CLOB ...
对于您的代码:
P_CLOB := V_JSON_OUT.TO_CLOB;
DBMS_OUTPUT.put_line(P_CLOB);
使用该表的HR架构版本,该版本已具有ID 123,该版本可以打印出来:
{"firstname":"Shanta","lastname":"Vollman","salary":6500}