用PowerDesigner逆向从Oracle导出pdm

逆向工程首先得保证你的监听已经在 tnsnames.ora 中配置好了。否则是无法导出的。怎么配置就不说了。
配置好了就是下图这样的。

打开PowerDesigner以后，新建文件 File - New Model ，然后如下图：

创建好了以后是这个样的，如图：

创建好了文件以后，开始链接数据库，进行导出。还是如图：

下图就是命名文件以及选择数据库版本：

点击完确定以后，到了这个页面，如果是第一次进入，得点击红框进去配置，第二次的话就直接点确定就行。如图：

进去以后，设置数据源，如下：

点击configuration，进行配置,如图：

点击红框的按钮，新建，如图：

注意：这里选择系统数据源，如果你的这个系统数据源是灰色的不能进行选择的话， 那么就先关闭powerDesigner 以管理员的身份运行，然后就可以了。

下一步，如图：

注意：找到你自己对应的数据库

下一步，如图：

注意：红框两项是必填的。填完以后还可以进行 Test connection 测试链接。 成功以后点击确定，回到如下页面

然后点击链接，之后就可以选择你要导出的表了。

导完表以后是吧所有字段导出来了，但是没有任何注视，看着别扭到死，下面的操作就会自动把字段注释加进来。将如下代码在图中执行：

代码：

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  
if len(tab.comment) <> 0 then  
tab.name = tab. name
end if  
On Error Resume Next  
Dim col 'running column  
for each col in tab.columns  
if len(col.comment) <>0 then  
col.name =col.comment  
end if  
On Error Resume Next  
next  
end if  
next  
end sub  

然后就大功告成了~~~