PowerDesigner 连接MySQL数据库详细步骤

https://blog.csdn.net/xb565517830/article/details/80401801

1.创建数据源

2.连接数据源

3.从数据库读取模型

重要：

1.报错Could not Initialize JavaVM时需要安装32位JDK，修改系统变量后都需要重启软件才会生效。

2.powerdesigner连接MySQL数据库时出现Non SQL Error : Could not load class com.mysql.jdbc.Driver

Non SQL Error : Could not load class com.mysql.jdbc.Driver

这是因为powerdesigner 无法找到驱动所产生的

解决办法是：配置系统的classpath 路径，指定jar 包路径就好了。

 

如果导出字段没有描述，则需要将comment用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
' 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
 '把列name和comment合并为comment
 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
end sub

https://blog.csdn.net/july_young/article/details/88682616

 

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