powerDesigner导pdm系统错误1114 指定驱动程序无法加载 SQLSTATE=IM003

为了导这个pdm我耗费了近一天的时间，必须写篇博客致敬我那飞逝的时间。

参考了这个https://www.cnblogs.com/jobs-lgy/p/6364574.html，写的挺好的，但是我没有解决我的问题但是我在用本地数据源连接成功后

但是用powerdesigner仍然不对，系统错误1114 指定驱动程序无法加载 SQLSTATE=IM003

这是是我使用64位置jdk64位powerdesigner时，最后也没有找到解决方案，如果有解决方案希望可以告诉我谢谢。我感觉可能是和ojdbc驱动有关

这个是我用64位用我本博客的方式操作一直报错 couldnot initialize JavaVm,一般这个问题就是powerdesigner和jdk版本不匹配导致但是我已经64位匹配仍未解决，最后全换了32位

最后我使用了32位jdk和32位powerdesigner终于搞定了
最后我使用的是powerdesigner16.5(32)
「PowerDesigner165.exe」https://www.aliyundrive.com/s/YQzBdzbR19w
「ojdbc6-11.2.0.3.0.jar」https://www.aliyundrive.com/s/P9ikukRJpk1

首先你需要检查你的powerdesigner是多少位的，你本地的安装的驱动是多少位的需要统一；
然后需要在环境变量，path,classpath配置驱动
D:\Tools\oracle\ojdbc6-11.2.0.3.0.jar

powerdesigner配置jdk
Tools->General Options

powerdesigner新建一个model

尝试连接一下数据库



连接成功则没问题

选择相应的表做导出

则可以看到表的字段 类型等，如果你需要展示字段和注释
参考：
https://blog.csdn.net/howroad/article/details/90295914
https://www.cnblogs.com/fzygun/p/8705624.html

Tools->Display Preferences

调整显示的Attribute，显示的内容和顺序

将name列转换为注释内容

Option   Explicit
ValidationMode   =   True
InteractiveMode   =   im_Batch
Dim blankStr
blankStr   =   Space(1)
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 = "" or replace(col.comment," ", "")="" Then
                        col.name = blankStr
                        blankStr = blankStr & Space(1)
                  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

最后展示效果