powerdesigner批量修改字段名称_oracle 改字段类型

大家好，又见面了，我是你们的朋友全栈君。

代码语言：javascript复制

'Option Explicit On
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl ' the current model
' 取得当前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)
    '处理表
    Dim Tab,str1
    Dim tt  
    For Each Tab In folder.tables
        
            tt = Tab.code
         'if(not tt is nothing) then
            str1 = left(tt, 1)
            str1 = UCase(str1)
            Dim str2
            str2 = right(tt , len(tt) - 1)
            str2 = LCase(str2)
            Tab.code = str1   str2

            '修改字段名
            Dim col
            For Each col In Tab.columns
                If (col.code <> "") Then
                    Dim code
                    code = col.code
                    Dim code1
                    code1 = left(code, 1)
                    code1 = UCase(code1)
                    Dim code2
                    code2 = right(code, len(code) - 1)
                    code2 = LCase(code2)
                    col.code = code1   code2
                End If
                if(StrComp(col.code,"Id") = 0)then
                  col.datatype = "Long integer"
                end if
                
                  if(StrComp(col.datatype,"NUMBER") = 0)then
                  col.datatype = "Integer"
                end if
            Next
            ' End If
    Next
    ' 同理处理视图
    ' Dim view
    '   for each view in folder.Views
    '   if not view.isShortcut then
    ' view.code = view.name
    ' 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

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。

互联网 全栈

0 人点赞