PowerDesigner 连接MySQL数据库详细步骤

• • • 第一步打开PD软件
    • 第二步创建新的Model
    • 第三步创建PDM视图选择自己要连接的数据库
    • 第四步连接数据源
    • 第五步一路确定并选择你刚才所创建的数据源
    • 第六步很重要
    • 第七步等待生成
    • 第八步因为文件中的name是英文没有引入注释再这里我们需要进行一步操作把name替换成中文注释
    • 第九步效果图
    • 将Comment中的字符COPY至Name中的代码
    • 将Name中的字符COPY至Comment中

 

需要的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

1. Dim view 'running view

2. for each view in folder.Views

3. if not view.isShortcut then

4. view.name = view.comment

5. end if

6. next

7.  

8. ' go into the sub-packages

9. Dim f ' running folder

10. For Each f In folder.Packages

11. if not f.IsShortcut then

12. ProcessFolder f

13. end if

14. 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

1. Dim view 'running view

2. for each view in folder.Views

3. if not view.isShortcut then

4. view.comment = view.name

5. end if

6. next

7.  

8. ' go into the sub-packages

9. Dim f ' running folder

10. For Each f In folder.Packages

11. if not f.IsShortcut then

12. ProcessFolder f

13. end if

14. Next

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15

end sub