利用 powerdesigner 从oracle数据库中导出数据物理模型结构

时间:2022-06-21 05:39:53

Powerdesigner连接oracle数据库导出物理模型

一、创建数据库连接

1.创建oracle的servicename:

开始->所有程序->oracle home->配置和移植工具->Net Manage.打开oracle Net Manager


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

服务器命名->新建服务器命名


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

填写主机名


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

 

Datebase->config connection弹出Configure Data Connection

 

测试服务名


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

 

2.powerdesigner中创建数据源

创建数据源:Add Data Sourse


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

填写servicename 用户名 密码


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

二、连接数据库导出物理模型

1.逆向工程生产物理模型

File->Reverse Engineer->Database


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

 

确定

 


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

Ok

三、模型转换中文评论注释


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

Tool->Excute Command->Edit/Run Script


利用 powerdesigner 从oracle数据库中导出数据物理模型结构
 

Openfile  commen2name.vbs文件:

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

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

 


利用 powerdesigner 从oracle数据库中导出数据物理模型结构