PowerDesigner 連線MySQL資料庫詳細步驟
需要的mysql odbc 連線軟體:
mysql-connector-odbc-5.3.6-win32.msi;
mysql-connector-odbc-5.3.6-winx64.msi;
在剛開始使用PowerDesigner 16連線MySQL資料庫的時候。經常會報一些錯誤,因為時間太久了,當時也忘了截圖,具體的錯誤忘記了,當初不知道怎麼解決,最後才發現是少安裝了幾個軟體,如果你也遇到了同樣的問題,可以先去自己的電腦裡面看看,是否少了以下截圖中的某個軟體,我這個人比較懶,按了好幾個重複的軟體也不打算解除安裝;
第一步:開啟PD軟體;
第二步:建立新的Model
第三步:建立PDM檢視(選擇自己要連線的資料庫)
第四步:連線資料來源:
第五步:一路確定,並選擇你剛才所建立的資料來源
第六步:很重要:
第七步:等待生成:
第八步:因為檔案中的name是英文,沒有引入註釋,再這裡我們需要進行一步操作,把name替換成中文註釋
第九步:效果圖
備註:
將Comment中的字元COPY至Name中的程式碼:
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
Private sub ProcessFolder(folder)
On Error Resume Next
Dim Tab ‘running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.name = tab.comment
Dim col ’ running column
for each col in tab.columns
if col.comment=”” then
else
col.name= col.comment
end if
next
end if
next
-
Dim view 'running view
-
for each view in folder.Views
-
if not view.isShortcut then
-
view.name = view.comment
-
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
將Name中的字元COPY至Comment中
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 comment 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
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
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
end sub