powerdesigner 의 표 구 조 를 데이터베이스 에 어떻게 저장 합 니까?
2630 단어 데이터 구조
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
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
정수 반전Udemy 에서 공부 한 것을 중얼거린다 Chapter3【Integer Reversal】 (예) 문자열로 숫자를 반전 (toString, split, reverse, join) 인수의 수치 (n)가 0보다 위 또는 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.