Oracle完全複製表結構的存儲過程

来源:https://www.cnblogs.com/leohahah/archive/2018/01/04/8194502.html
-Advertisement-
Play Games

最近在處理一個分表的問題時,需要為程式創建一個自動分表的存儲過程,需要保證所有表結構,約束,索引等等一致,此外視圖,存儲過程,許可權等等問題暫不用考慮。 在Mysql中,創建分表的存儲過程,相當簡單:create table if not exists <new_table_name> like <o ...


最近在處理一個分表的問題時,需要為程式創建一個自動分表的存儲過程,需要保證所有表結構,約束,索引等等一致,此外視圖,存儲過程,許可權等等問題暫不用考慮。

在Mysql中,創建分表的存儲過程,相當簡單:create table if not exists <new_table_name> like <old_table_name>;即可,約束,索引一應俱全。

但是在Oracle中貌似沒有,所以只能自己寫,需要考慮的情況比較多,腳本如下:

CREATE OR REPLACE PROCEDURE CREATETABLE(tableName in varchar2,
                                        dateStr   in varchar2)
  AUTHID CURRENT_USER as
  newTable varchar2(32) := tableName || '_' || dateStr;

  v_create_table_sql clob;
  --c1,預設值游標
  v_add_default_sql clob;
  cursor default_cols is
    select COLUMN_NAME, DATA_DEFAULT
      from user_tab_columns
     where DATA_DEFAULT is not null
       and TABLE_NAME = tableName;
  --c2 主鍵的not null不會繼承,但not null約束的會繼承,因此c2全部註釋
  /*v_add_notnull_sql clob;
  cursor notnull_cols is select COLUMN_NAME from user_tab_columns t where t.NULLABLE='N' and  and t.TABLE_NAME=tableName;*/
  --c3,主鍵游標,雖然主鍵只能有一個,但為統一起見還是用了游標
  v_add_primary_sql clob;
  cursor primary_cols is
    select distinct tmp.TABLE_NAME,
                    tmp.INDEX_NAME,
                    to_char(wm_concat(tmp.COLUMN_NAME)
                            over(partition by tmp.TABLE_NAME)) as pri_cols
      from (select i.TABLE_NAME,
                   i.INDEX_NAME,
                   i.COLUMN_NAME,
                   i.COLUMN_POSITION
              from user_ind_columns i
              join user_constraints c
                on i.INDEX_NAME = c.index_name
             where c.CONSTRAINT_TYPE = 'P'
               and i.TABLE_NAME = tableName
             order by 1, 2, 4) tmp;
  --c4,唯一約束游標
  v_add_unique_sql clob;
  cursor unique_cons is
    select distinct tmp.TABLE_NAME,
                    tmp.INDEX_NAME,
                    to_char(wm_concat(tmp.COLUMN_NAME)
                            over(partition by tmp.TABLE_NAME,
                                 tmp.INDEX_NAME)) as uni_cols,
                    replace(to_char(wm_concat(tmp.COLUMN_NAME)
                                    over(partition by tmp.INDEX_NAME)),
                            ',',
                            '_') as new_indexname
      from (select i.TABLE_NAME,
                   i.INDEX_NAME,
                   i.COLUMN_NAME,
                   i.COLUMN_POSITION
              from user_ind_columns i
              join user_constraints c
                on i.INDEX_NAME = c.index_name
             where c.CONSTRAINT_TYPE = 'U'
               and i.TABLE_NAME = tableName
             order by 1, 2, 4) tmp;
  --c5,非唯一非主鍵索引游標
  v_create_index_sql clob;
  cursor normal_indexes is
    select distinct tmp.TABLE_NAME,
                    tmp.INDEX_NAME,
                    to_char(wm_concat(tmp.COLUMN_NAME)
                            over(partition by tmp.TABLE_NAME,
                                 tmp.INDEX_NAME)) as index_cols
      from (select i.TABLE_NAME,
                   i.INDEX_NAME,
                   c.COLUMN_NAME,
                   c.COLUMN_POSITION
              from user_indexes i
              join user_ind_columns c
                on i.INDEX_NAME = c.INDEX_NAME
             where index_type = 'NORMAL'
               and i.TABLE_NAME = tableName
               and i.uniqueness = 'NONUNIQUE'
             order by 1, 2, 4) tmp;
  --c6,不是由唯一約束生成的唯一索引游標
  v_create_unique_index_sql clob;
  cursor unique_cols is
    select distinct tmp.TABLE_NAME,
                    tmp.INDEX_NAME,
                    to_char(wm_concat(tmp.COLUMN_NAME)
                            over(partition by tmp.TABLE_NAME,
                                 tmp.INDEX_NAME)) as index_cols
      from (select u_i.TABLE_NAME,
                   u_i.INDEX_NAME,
                   c.COLUMN_NAME,
                   c.COLUMN_POSITION
              from (select *
                      from user_indexes
                     where table_name = tableName
                       and index_type = 'NORMAL'
                       and index_name not in
                           (select index_name
                              from user_constraints
                             where table_name = tableName
                               and index_name is not null)) u_i
              join user_ind_columns c
                on u_i.INDEX_NAME = c.INDEX_NAME
             where u_i.TABLE_NAME = tableName
               and u_i.uniqueness = 'UNIQUE'
             order by 1, 2, 4) tmp;
begin
  --創建表結構
  v_create_table_sql := 'create table ' || newTable || ' as select * from ' ||
                        tableName || ' where 1=2';
  execute immediate v_create_table_sql;
  --添加預設值
  for c1 in default_cols loop
    v_add_default_sql := 'alter table ' || newTable || ' modify ' ||
                         c1.column_name || ' default ' || c1.DATA_DEFAULT;
    execute immediate v_add_default_sql;
  end loop;
  --添加非空約束
  /*  for c2 in notnull_cols loop
    v_add_notnull_sql:='alter table '||newTable||' modify '||c2.column_name||' not null';
    execute immediate v_add_notnull_sql;
  end loop;*/
  --添加主鍵約束
  for c3 in primary_cols loop
    v_add_primary_sql := 'alter table ' || newTable ||
                         ' add constraint Pk_' || newTable ||
                         ' primary key(' || c3.pri_cols || ')';
    execute immediate v_add_primary_sql;
  end loop;
  --添加唯一性約束,由於原約束名可能由於創建約束的方法不同,存在系統自定義的名字,因此這裡直接命名唯一約束
  for c4 in unique_cons loop
    v_add_unique_sql := 'alter table ' || newTable || ' add constraint U_' ||
                        c4.new_indexname || ' unique(' || c4.uni_cols || ')';
    execute immediate v_add_unique_sql;
  end loop;
  --創建非主鍵且非唯一的索引,索引名字直接繼承自主表,尾碼dateStr以示不同
  for c5 in normal_indexes loop
    v_create_index_sql := 'create index ' || c5.index_name || '_' ||
                          dateStr || ' on ' || newTable || '(' ||
                          c5.index_cols || ')';
    execute immediate v_create_index_sql;
  end loop;
  --創建不是由於約束生成的唯一索引
  for c6 in unique_cols loop
    v_create_unique_index_sql := 'create unique index ' || c6.index_name || '_' ||
                                 dateStr || ' on ' || newTable || '(' ||
                                 c6.index_cols || ')';
    execute immediate v_create_unique_index_sql;
  end loop;
end createTable;

/

  


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • 1,ls 查看當前文件夾下的文件 2,ls -a 查看當前文件夾下的隱藏文件 3,ls -l 查看當前文件夾下的文件,以列表的形式 4,ls -h 查看當前文件夾下的文件,換算大小格式 5,支持寫法:ls -ahl、ls -lha 補充:ls /bin 查看/bin目錄下的內容,此命令無需在bin目 ...
  • 1、在官網下載JDk http://www.oracle.com/technetwork/cn/java/javase/downloads/index.html 如果是64位的操作系統,可以下載64位或者32位的jdk,但是32位的系統不能運行64位的jdk。 2、解壓jdk-x.x.x.tar.g ...
  • 1、安裝PCRE庫 到www.pcre.org 下載pcre-8.37.tar.gz tar -zxvf pcre-8.37.tar.gz cd pcre-8.37 ./configure make make install 2、安裝zlib庫 到www.zlib.net 下載zlib-1.2.8. ...
  • .tar解包:tar xvf FileName.tar打包:tar cvf FileName.tar DirName(註:tar是打包,不是壓縮!)———————————————.gz解壓1:gunzip FileName.gz解壓2:gzip -d FileName.gz壓縮:gzip FileN ...
  • Linux下簡單好用的工具rinetd,實現埠映射/轉發/重定向官網地址http://www.boutell.com/rinetd 軟體下載wget http://www.boutell.com/rinetd/http/rinetd.tar.gz 解壓安裝tar zxvf rinetd.tar.g ...
  • 1、伺服器Git安裝配置 相關鏈接 相關鏈接 註意ssh-keygen 、修改許可權 許可權: 相關鏈接 2、本地獲取 git clone name@ip:伺服器項目位置 相關鏈接 3、創建本地分支推送到遠程 git branch name git push origin name 3.1 伺服器許可權配 ...
  • linker文件是在鏈接階段所要用到的文件,source文件在編譯過程完成之後,需要再經過鏈接器從而將二進位數據有序組織起來形成最終的二進位可執行文件,linker文件就是用來指示鏈接器如何組織編譯生成的二進位數據。 ...
  • 知識點: 1-MongoDB 安裝,啟動和卸載 2-基本概念 3-基本的增刪改查操作(CURD) 來回顧總結一把學習的mongodb,如果有javascript基礎,學習"芒果DB"還是很好理解的,如果會使用mysql,那就更容易了。 mongodb是一個介於nosql資料庫和mysql資料庫之間的 ...
一周排行
    -Advertisement-
    Play Games
  • 移動開發(一):使用.NET MAUI開發第一個安卓APP 對於工作多年的C#程式員來說,近來想嘗試開發一款安卓APP,考慮了很久最終選擇使用.NET MAUI這個微軟官方的框架來嘗試體驗開發安卓APP,畢竟是使用Visual Studio開發工具,使用起來也比較的順手,結合微軟官方的教程進行了安卓 ...
  • 前言 QuestPDF 是一個開源 .NET 庫,用於生成 PDF 文檔。使用了C# Fluent API方式可簡化開發、減少錯誤並提高工作效率。利用它可以輕鬆生成 PDF 報告、發票、導出文件等。 項目介紹 QuestPDF 是一個革命性的開源 .NET 庫,它徹底改變了我們生成 PDF 文檔的方 ...
  • 項目地址 項目後端地址: https://github.com/ZyPLJ/ZYTteeHole 項目前端頁面地址: ZyPLJ/TreeHoleVue (github.com) https://github.com/ZyPLJ/TreeHoleVue 目前項目測試訪問地址: http://tree ...
  • 話不多說,直接開乾 一.下載 1.官方鏈接下載: https://www.microsoft.com/zh-cn/sql-server/sql-server-downloads 2.在下載目錄中找到下麵這個小的安裝包 SQL2022-SSEI-Dev.exe,運行開始下載SQL server; 二. ...
  • 前言 隨著物聯網(IoT)技術的迅猛發展,MQTT(消息隊列遙測傳輸)協議憑藉其輕量級和高效性,已成為眾多物聯網應用的首選通信標準。 MQTTnet 作為一個高性能的 .NET 開源庫,為 .NET 平臺上的 MQTT 客戶端與伺服器開發提供了強大的支持。 本文將全面介紹 MQTTnet 的核心功能 ...
  • Serilog支持多種接收器用於日誌存儲,增強器用於添加屬性,LogContext管理動態屬性,支持多種輸出格式包括純文本、JSON及ExpressionTemplate。還提供了自定義格式化選項,適用於不同需求。 ...
  • 目錄簡介獲取 HTML 文檔解析 HTML 文檔測試參考文章 簡介 動態內容網站使用 JavaScript 腳本動態檢索和渲染數據,爬取信息時需要模擬瀏覽器行為,否則獲取到的源碼基本是空的。 本文使用的爬取步驟如下: 使用 Selenium 獲取渲染後的 HTML 文檔 使用 HtmlAgility ...
  • 1.前言 什麼是熱更新 游戲或者軟體更新時,無需重新下載客戶端進行安裝,而是在應用程式啟動的情況下,在內部進行資源或者代碼更新 Unity目前常用熱更新解決方案 HybridCLR,Xlua,ILRuntime等 Unity目前常用資源管理解決方案 AssetBundles,Addressable, ...
  • 本文章主要是在C# ASP.NET Core Web API框架實現向手機發送驗證碼簡訊功能。這裡我選擇是一個互億無線簡訊驗證碼平臺,其實像阿裡雲,騰訊雲上面也可以。 首先我們先去 互億無線 https://www.ihuyi.com/api/sms.html 去註冊一個賬號 註冊完成賬號後,它會送 ...
  • 通過以下方式可以高效,並保證數據同步的可靠性 1.API設計 使用RESTful設計,確保API端點明確,並使用適當的HTTP方法(如POST用於創建,PUT用於更新)。 設計清晰的請求和響應模型,以確保客戶端能夠理解預期格式。 2.數據驗證 在伺服器端進行嚴格的數據驗證,確保接收到的數據符合預期格 ...