powerdesigner 의 표 구 조 를 데이터베이스 에 어떻게 저장 합 니까?

2630 단어 데이터 구조
powerdesigner 에서 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


좋은 웹페이지 즐겨찾기