hayesfrank 发表于 2013-1-29 15:27:51

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

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

-- 2)add PK for table T_FRANK
alter table T_FRANKadd constraint PK_T_FRANK primary key (T_NO)using index   tablespace STAGING_TEST2_DATApctfree 10initrans 2maxtrans 255storage(    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_DATApctfree 10pctused 40initrans 1maxtrans 255storage(    initial 1M    minextents 1    maxextents unlimited);

-- 4)add PK for table T_FRANK_TEST
alter table T_FRANK_TESTadd constraint PK_T_FRANK_TEST primary key (F_ID, T_NO)using index   tablespace STAGING_TEST2_DATApctfree 10initrans 2maxtrans 255storage(    initial 64K    minextents 1    maxextents unlimited);

--5)add FK for T_FRANK_TEST
alter table T_FRANK_TESTadd 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_DATApctfree 10initrans 2maxtrans 255storage(    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_SIZEadd 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)待续。。。
页: [1]
查看完整版本: Oracle常用SQL集锦----持续更新中......