orcle 根據時間動態創建表 函數

create or replace procedure creat_sczb_data(ddate IN string)

authid current_user --解決權限不足

is

       strsql varchar2(2000);

       tablename varchar2(50);

       ddatenew varchar2(50);

begin

 

   ddatenew := replace(ddate, '-', '_'); --替換字符

 

   tablename := 'sczb_data_'||ddatenew;

   strsql := 'CREATE TABLE"JXSTAR".'||tablename||'

         (  "HY_SCZBGLI_ID" VARCHAR2(50),

       "V_SCZBMC" VARCHAR2(50),

       "V_SAMP_CODE" VARCHAR2(50),

       "V_ASSAY_TIME" DATE,

        "V_BCBH" VARCHAR2(20),

       "V_OPERATOR" VARCHAR2(20),

       "V_TIME" VARCHAR2(20),

       "HY_XMGLIID" VARCHAR2(50),

       "N_VALUE" VARCHAR2(18),

       "V_SFZYZB" CHAR(1),

       "V_SFHGL" CHAR(1),

       "HY_SCZB_DATA_ID" VARCHAR2(50) NOT NULL ENABLE,

       "ADD_USERID" VARCHAR2(25),

       "ADD_DATE" DATE,

       "MODIFY_USERID" VARCHAR2(25),

       "MODIFY_DATE" DATE,

       "V_LRSJ" VARCHAR2(50))';

  dbms_output.put_line(strsql);

  execute immediate strsql;

end creat_sczb_data;