在powerdesigner中可以执行vbscirpt.
应用vbscirpt把表结构保存到数据库中。
也可以用jdom来解析pbd文件。
这里用vbscirpt:
应用vbscirpt把表结构保存到数据库中。
也可以用jdom来解析pbd文件。
这里用vbscirpt:
Option Explicit
' Get the current active model
Dim model
Set model = ActiveModel
If (model Is Nothing) Or (Not model.IsKindOf(PdPDM.cls_Model)) Then
MsgBox "The current model is not a PDM model."
Else
ShowProperties model
End If
'-----------------------------------------------------------------------------
' Display tables properties defined in a folder
'-----------------------------------------------------------------------------
Sub ShowProperties(package)
' Get the Tables collection
Dim ModelTables
Set ModelTables = package.Tables
' For each table
Dim noTable
Dim tbl
Dim bShortcutClosed
Dim Desc
noTable = 1
Const CONNECTION = "Data Source=model;User Id=sa;Password=;"
Dim cnx ' connection object
set cnx = CreateObject("ADODB.Connection")
cnx.Open CONNECTION
For Each tbl In ModelTables
If IsObject(tbl) Then
bShortcutClosed = false
If tbl.IsShortcut Then
If Not (tbl.TargetObject Is Nothing) Then
Set tbl = tbl.TargetObject
Else
bShortcutClosed = true
End If
End If
Desc = "Table " + CStr(noTable) + ":"
If Not bShortcutClosed Then
Dim col ' running column
Dim tblCode
Dim colName
Dim colCode
tblCode=UCase(Trim(tbl.Code))
for each col in tbl.columns
colName=UCase(Trim(col.Name))
colCode=UCase(Trim(col.Code))
cnx.Execute("insert into DBTables(tableName,columnName,columnNameCH,length) values('"+tblCode+"','"+colName+"','"+colCode+"'"+",0)")
next
End If
End If
Next
' Display tables defined in subpackages
Dim subpackage
For Each subpackage in package.Packages
If Not subpackage.IsShortcut Then
ShowProperties subpackage
End If
Next
End Sub