EXCEL資料字典批量轉換為PDM,POWERDESIGNER 匯出SQL
阿新 • • 發佈：2022-05-13
首先本人版本PowerDesigner16.5
批量轉換，EXCEL資料字典轉換為PDM
三步搞定~
第一步
按excel模板填入表的內容（欄位名，資料型別…）
新建一個excel，表頭如下（共11列）就是excel模板了，表頭的順序不要錯哦~
中文表名 英文表名 欄位描述 英文欄位 欄位型別 欄位說明 欄位長度 主鍵 外來鍵 是否為空 Precision
所有的表設計都放在excel的sheet1中，每個表中間空一行，然後表無限往下放
第二步
複製指令碼,貼上到txt文件， 內容搜尋一下x1.Workbooks.Open，把excel的路徑改成你上面建的excel表的路徑即可，其他啥也不用動
'****************************************************************************** '* 所有的表設計都放在一個excel的一個sheet中，每個表中間空一行，表體都有表頭說明如下， '* 再前面一行是表名和表的說明，分別在A和C列。下面格式直接拷貝到excel中就可以看到，空格是製表符。 '****************************************************************************** ' Excel 格式如下'中文表名 英文表名 欄位描述 英文欄位 欄位型別 欄位說明 欄位長度 主鍵 外來鍵 是否為空 Precision '****************************************************************************** Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox"There is no Active Model" End If Dim HaveExcel Dim RQ RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation") If RQ = vbYes Then HaveExcel = True ' Open & Create Excel Document Dim x1 ' Set x1 = CreateObject("Excel.Application") x1.Workbooks.Open "C:\Users\pc\Desktop\pdm匯入匯出\002.xlsx" '指定excel文件路徑 x1.Workbooks(1).Worksheets("Sheet1").Activate '指定要開啟的sheet名稱 Else HaveExcel = False End If a x1, mdl sub a(x1, mdl) dim rwIndex dim tableName dim colname dim table dim col dim count dim abc on error Resume Next '-------------------------------- '下面是讀取excel，新增表實體屬性 '-------------------------------- For rwIndex = 2 To 3031 '指定要遍歷的Excel行標 由於第2行是表頭，從第1行開始，看你這個表設計多少行 With x1.Workbooks(1).Worksheets("Sheet1")'需要迴圈的sheet名稱 If .Cells(rwIndex,1).Value <> "" And .Cells(rwIndex,2).Value <> "" Then set table = mdl.Tables.CreateNew '建立一個表實體 table.Code = .Cells(rwIndex,2).Value'從excel中取得表名稱和編碼 table.Name = .Cells(rwIndex,1).Value' table.Comment = .Cells(rwIndex,1).Value count = count + 1 End If If .Cells(rwIndex,4).Value <>"" Then set col =table.Columns.CreateNew '建立一列/欄位 col.Name = .Cells(rwIndex, 3).Value '指定列name col.Code = .Cells(rwIndex, 4).Value '指定列code col.DataType = .Cells(rwIndex, 5).Value '指定列資料型別 col.Comment = .Cells(rwIndex, 6).Value '指定列說明 If .Cells(rwIndex, 8).Value = "True" or .Cells(rwIndex, 8).Value = "true" Then'指定主鍵 col.Primary = true End If If .Cells(rwIndex, 10).Value = "True" or .Cells(rwIndex, 10).Value = "true" Then'指定列是否可空 true 為不可空 col.Mandatory = true End If End If End With Next MsgBox "生成資料表結構共計 " + CStr(count), vbOK + vbInformation, "表" Exit Sub End sub
第三步
開啟pdm,快捷鍵ctrl+shift+x 開啟指令碼視窗，老版本的pdm用ctrl+shift+h開啟，複製你txt文件裡的全部內容貼上上來，點選run
靜等即可，結束後會彈出"生成資料表結構共計多少"
確定後點擊close就可以了，不用儲存
POWERDESIGNER 匯出SQL
四步搞定~
第一步
database->change current DBMS 選擇資料庫
選擇oracle或者mysql
第二步
把欄位描述和欄位說明拼在一起，不然他預設是匯出欄位說明，欄位名就不見了
database -> edit current dbms->general選項卡->script -> objects -> column -> columncommnet-修改value值
value值直接複製就可以了，程式碼意思也很簡單，欄位說明和欄位描述相等的時候顯示欄位描述，否則兩個都顯示
comment on column [%QUALIFIER%]%TABLE%.%COLUMN% is .if (%COMMENT%==%COLNNAME%) '%COLNNAME%' .else '%COLNNAME% %COMMENT%' .endif(\n)
第三步
修改生成規則
database -> generate database->format選項卡->選中”generate name is empty comment”選項 即可
意思是如果欄位說明為空，就顯示欄位描述為註釋~
第四步
database->generate database(CTRL+G) 選擇路徑，其他不用動，點確定即可
確定後，看pdm底部
好啦，給你們看一下效果圖~
備註
當從oracle反序列化pd的時候，表很多時候效率很低。我們可以使用oracle匯入到excel中，然後使用上面的方法從excel再反序列化為pd。
oralce查詢使用者所有表：
select -- a.owner , nvl(c.comments,a.table_name) as 中文表名 ,a.table_name as 英文表名 ,d.COMMENTS as 欄位描述 ,b.column_name as 英文欄位 --,b.data_type as 欄位型別 ,'VARCHAR2(50)' as 欄位型別 ,'' as 欄位說明 ,'' as 欄位長度 ,nvl2(( select cu.COLUMN_NAME from all_cons_columns cu, all_constraints au where cu.constraint_name = au.constraint_name and au.constraint_type = 'P' and au.table_name = 'S_COMPANY' and cu.owner='H2' and au.OWNER='H2' and cu.TABLE_NAME=a.TABLE_NAME and cu.COLUMN_NAME=b.COLUMN_NAME ),'TRUE','FALSE') as 主鍵 ,'FALSE' as 外來鍵 ,'FALSE' as 是否為空 ,'' as Precision --,b.data_length as 欄位長度22 from all_tables a join all_tab_columns b on a.table_name= b.table_name left join all_tab_comments c on c.table_name=a.table_name left join all_col_comments d on d.table_name=a.table_name and d.column_name=b.column_name where a.owner='H2' and b.owner='H2' and c.OWNER='H2' and d.OWNER='H2' -- and a.table_name in ('S_COMPANY','T_FACTORY','S_DEPT') order by b.table_name,b.column_id
使用自己開發的winfrom程式，匯出excel
public static bool wwww(DataTable dataTable, string file) { try { //1、建立excel FileInfo newFile = new FileInfo(file); if (newFile.Exists) { return false; } //2、建立一個excel包,就是一個excel檔案 //許可證，必須新增許可證，否則會報錯 ExcelPackage.LicenseContext = OfficeOpenXml.LicenseContext.NonCommercial; using (ExcelPackage package = new ExcelPackage(newFile)) { //3、建立一個excel，工作表 sheet ExcelWorksheet worksheet = package.Workbook.Worksheets.Add("Sheet1"); for (int i = 0; i < dataTable.Columns.Count; i++) { worksheet.Cells[1, (i + 1)].Value = dataTable.Columns[i].ColumnName; } try { string vTableName = string.Empty; int m = 0; for (int i = 0; i < dataTable.Rows.Count; i++) { if (string.IsNullOrEmpty(vTableName)) { vTableName = dataTable.Rows[i][1].ToString(); } if (vTableName != dataTable.Rows[i][1].ToString()) { //寫一行 空格 for (int j = 0; j < dataTable.Columns.Count; j++) { worksheet.Cells[(i + 2 + m), (j + 1)].Value = ""; } vTableName = dataTable.Rows[i][1].ToString(); m = m + 1; for (int j = 0; j < dataTable.Columns.Count; j++) { //寫列 worksheet.Cells[(i + 2 + m), (j + 1)].Value = dataTable.Rows[i][j].ToString(); } } else { for (int j = 0; j < dataTable.Columns.Count; j++) { //寫列 if (j == 0 || j == 1) { worksheet.Cells[(i + 2 + m), (j + 1)].Value = ""; } else { worksheet.Cells[(i + 2 + m), (j + 1)].Value = dataTable.Rows[i][j].ToString(); } } } } } catch (Exception vErr) { string vInfo = vErr.Message; } package.Save(); } return true; } catch (Exception vErr) { throw; } }
匯出外掛為“”“EPPlus” 版本6.0.3.0。