Oracle惯用SQL集锦-持续更新中.

Oracle常用SQL集锦----持续更新中......
--1)Primary table

create table T_FRANK(  T_NO                          NUMBER not null,  T_NAME                        NUMBER)tablespace STAGING_TEST2_DATA  pctfree 10  pctused 40  initrans 1  maxtrans 255  storage  (    initial 1M    minextents 1    maxextents unlimited  );

 

-- 2)add PK for table T_FRANK

alter table T_FRANK  add constraint PK_T_FRANK primary key (T_NO)  using index   tablespace STAGING_TEST2_DATA  pctfree 10  initrans 2  maxtrans 255  storage  (    initial 64K    minextents 1    maxextents unlimited  );

-- update field's type

alter table T_FRANK modify T_NAME VARCHAR2(30);

--3)Foreign table

create table T_FRANK_TEST(  F_ID                          NUMBER not null,  T_NO                          NUMBER not null,  IS_MANDATORY                  CHAR(1) default '1',  QTY                           NUMBER default '0',  PRICE                         NUMBER(16,4),  LAUNCH_DATE                   DATE,  MODIFIER                      VARCHAR2(50))tablespace STAGING_TEST2_DATA  pctfree 10  pctused 40  initrans 1  maxtrans 255  storage  (    initial 1M    minextents 1    maxextents unlimited  );

-- 4)add PK for table T_FRANK_TEST

alter table T_FRANK_TEST  add constraint PK_T_FRANK_TEST primary key (F_ID, T_NO)  using index   tablespace STAGING_TEST2_DATA  pctfree 10  initrans 2  maxtrans 255  storage  (    initial 64K    minextents 1    maxextents unlimited  );

 
--5)add FK for T_FRANK_TEST

alter table T_FRANK_TEST  add constraint FK_T_FRANK_TEST_T_FRANK foreign key (T_NO)  references T_FRANK (T_NO) on delete cascade;

--6)Create/Recreate indexes

create index T_FRANK_TEST_F_ID on T_FRANK_TEST (F_ID)  tablespace STAGING_TEST2_DATA  pctfree 10  initrans 2  maxtrans 255  storage  (    initial 64K    minextents 1    maxextents unlimited  );

--7) insert data to T_FRANKinsert into T_FRANK values(NVL((select max(T_NO) from T_FRANK),0)+1,'Frank1');insert into T_FRANK values(NVL((select max(T_NO) from T_FRANK),0)+1,'Frank2');commit;

--8) insert data to T_FRANK_TEST

insert into T_FRANK_TEST values(NVL((select max(F_ID) from T_FRANK_TEST),0)+1,1,'1',1000,66.98,sysdate,'FrankWang');insert into T_FRANK_TEST values(NVL((select max(F_ID) from T_FRANK_TEST),0)+1,2,'1',1000,66.98,sysdate,'FrankWang');commit;

--9) update data

UPDATE T_FRANK_TEST t SET t.MODIFIER='FrankWang2' where t.f_id=2;commit;

--10) delete T_FRANK(cascade delete T_FRANK_TEST)

delete from T_Frank f where f.t_no=1;commit;

--11) delete the data and the table
--因为需要，Oracle有没有类似My SQL的drop table if exists这类的支持，只好自己写一个Declare了

declare    p_table varchar2(30):='T_FRANK_TEST';    v_count number;begin   select count(1) into v_count from user_objects where object_name = upper('T_FRANK_TEST');   if v_count > 0 then      execute immediate 'drop table ' || p_table ||' cascade constraints';   end if;end;/

--12) usage for CURSOR , LOOP and WHILE in DECLARE
下面是实际工作中遇到的问题：

For this sap invoice error, there are two work need to do: please follow below order to execute the statement(1 -> 2), thanks!

1>Data patch:
Delete the dirty data from the table INVOICE_ARTICLE_SIZE, in order to delete it quickly(the dirty data is too large(about53473089)), below was my prepared statement:
According to preliminary estimates, below statement need about 13 hours in my local env. May be it need few time in Production.

DECLARE    --define batch delete number of invoices no    topnum constant int:=5;    ----53473089.=5000*maxrecords=5000*10694, maxnum=10694    maxnum constant int:=2;    i int :=1;        new_invoice_no invoice_article_size.invoice_no%TYPE;    r_row invoice_article_size%rowtype;    --get top 500 record and stored to cursor    cursor my_cursor is            select * from invoice_article_size where invoice_no not in (select invoice_no from invoice) and rownum <= topnum;                TYPE t_invoice_no IS TABLE OF varchar2(20) INDEX BY BINARY_INTEGER;    j int :=1;    t_new_invoice_no t_invoice_no;   BEGIN    WHILE i<=maxnum LOOP      open my_cursor;        loop                fetch my_cursor into r_row;                -- not found, exit from cursor                exit when my_cursor%notfound;                --get invoce_no                t_new_invoice_no(j) := r_row.invoice_no;               dbms_output.put_line(t_new_invoice_no(j));                --delete it one by one and commit                delete from invoice_article_size where invoice_no = t_new_invoice_no(j);                commit;        end loop;      close my_cursor;      dbms_output.put_line(i);      --execute another loop      i := i+1;    END LOOP;END;

2>Hotfix:
add cascade delete for INVOICE_ARTICLE_SIZE, below is the SQL:(it also need long time to execute, it depends on number of the record in the size table.)

alter table INVOICE_ARTICLE_SIZE  add constraint FK_INOVICE_ARTICLE_SIZE foreign key (INVOICE_NO,ARTICLE_NO,ERP_ORDER_ID)  references INVOICE_ARTICLE (INVOICE_NO,ARTICLE_NO,ERP_ORDER_ID) on delete cascade;

BTW, may be this data patch can’t finish today,
But our system will continue to generate dirty data before you do Hotfix,
Hence I suggest, you’d better execute below sql to check whether there are dirty data exist:

select count(1) from invoice_article_size ins where (ins.invoice_no not in(select invoice_no from invoice));

If above select result>0, it means there are dirty data exist, you can use below delete statement to delete it directly.

delete from INVOICE_ARTICLE_SIZE i where (i.invoice_no not in(select invoice_no from invoice));commit;

--13)待续。。。

查看更多 下一篇