開發工具與關鍵技術：VS 物理數據模型
作者:聽民謠的老貓
撰寫時間：2019/5/10 17:15
分享一下最近用到的PowerDesigner物理數據模型小技巧和錯誤的解決
搭建好物理數據模型創建數據庫操作
Database ——> Generate Database然後會彈出General頁面
選擇好路徑點擊確定就會在指定位置生成數據庫腳本，當然這是在你不報錯的情況下。分享一下我的錯誤。
錯誤一：
點開這些錯誤你就可以很清楚的知道錯誤點在哪
個人解決辦法：再物理數據模型找到這兩個表，刪除關係。當然你的記得這兩個表的關係，在數據庫生成表的時候你可以再填加一個外鍵。（如果這樣的關係報錯有很多建議用筆記本記一下）
錯誤二：
解決方法：Database ——> Generate Database在彈出General頁面將Check model那個勾去掉。具體位置第一張圖有畫紅線。
錯誤三：
數據庫執行時報錯其實你就看着數據庫提示去腳本里面找就OK了，雖然沒有行數但是腳本會報錯提示。
技巧分享：
物理模型導出數據庫時將name作爲code的註釋行 ，在數據庫就不用很麻煩的去寫註釋
Tools --> Execute Commands --> Edit/Run Script 在彈出窗口中輸入下面代碼。
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl 'the current model
'get the current active model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox “There is no current Model”
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox “The current model is not an Physical Data model.”
Else
ProcessFolder mdl
End If
'This routine copy name into code for each table, each column and each view
'of the current folder
Private sub ProcessFolder(folder)
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.comment = tab.name
Dim col ’ running column
for each col in tab.columns
col.comment= col.name + col.comment
next
end if
next
Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.comment = view.name
end if
next
’ go into the sub-packages
Dim f 'running folder
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub
點擊執行後關閉提示框打開Database ——> Generate Database打開Format頁面
勾選Generate name in empty comment這樣就可以將name作爲code的註釋行了。
name作爲code數據庫腳本
（代碼是網上搜的，在這分享一下）