oracle 反向条件,Oracle数据反向导入到pdm

Oracle数据反向导入到pdm

三、开始导入

选择要导入的表

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

Physical Options(Common)设置，使Preview标签页没有表空间语句

Oracle数据反向导入到pdm相关教程