向powerdesigner中，导入现有表的备注

网上有很多利用mssql中备注的方法，其实那些都不实用，一般在一个企业数据库中，经常会有数据字典，从数据字典中，导入备注说明之类的才是比较实用的。下面代码就是为这点而做的。

'******************************************************************************
'* File:     ODBCConnect.vbs
'* Purpose:  Show how to use an ODBC connection
'             list the non-empty tables
'* Title:   
'* Category:
'* Version:  1.0
'* Company:  Sybase Inc.
'******************************************************************************

Option Explicit

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
   ChangeName model
End If

sub ChangeName(package)

 Const CONNECTION = "Data Source=his;User Id=sa;Password=sa;"
 
 Dim cnx ' connection object
 set cnx = CreateObject("ADODB.Connection")
 cnx.Open CONNECTION
 
 Dim rs ' recordset
 set rs = cnx.Execute("select table_name,table_chinese from wh_table_struc where table_chinese is not null and table_name in (select distinct table_name from wh_field_struc where field_chinese is not null) order by table_name")
 
 Output "List of non-empty tables:"
 Dim n ' row count
   Dim return
 Dim tablename
 dim tabledesc
 Do Until rs.EOF
    tablename =rs("table_name")
    tabledesc =rs("table_chinese")
 
     
      if SetNameDesc(package, tablename, tabledesc,cnx) then
       
      end if
   
    rs.MoveNext
 Loop
 
 rs.Close
 set rs = Nothing
 cnx.Close
 set cnx = Nothing
 
end sub
 

'-----------------------------------------------------------------------------
' Display tables properties defined in a folder
'-----------------------------------------------------------------------------
function SetNameDesc(package, Name, Desc,cnx)
   ' Get the Tables collection
   Dim ModelTables
   Set ModelTables = package.Tables

   ' For each table
   Dim noTable
   Dim tbl
   Dim bShortcutClosed
   noTable = 1
   For Each tbl In ModelTables

      If IsObject(tbl) Then        
         If Not tbl.IsShortcut Then                                 
            IF trim(tbl.name) = trim(Name) Then
             
              'Output "Tables are Same" + CStr(Name) + ":"             
              if trim(tbl.name) = trim(tbl.code) then
                tbl.comment = Desc
              end if
              '更改字段内容。
              Dim field
              Dim rs
              For each field in tbl.Columns
                if IsObject(field) then
        set rs = cnx.Execute("select field_chinese from wh_field_struc where field_name ='"& trim(field.name)&"' and table_name ='"&trim(tbl.name)&"'  and field_chinese is not null")
        
        If Not rs.EOF Then
         field.comment = rs("field_chinese")                          
        End If
                        set rs = nothing
        end if
              Next
             
              noTable = 0
              SetNameDesc = true
              Exit For
            end if
         End If

      End If
      noTable = noTable + 1    

   Next
  
   ' Display tables defined in subpackages
   'Output Name
  ' Output noTable
   if noTable <> 0 then
       ' Output "In Package"
     Dim subpackage
     For Each subpackage in package.Packages

        If Not subpackage.IsShortcut Then
           if SetNameDesc(subpackage, Name, Desc,cnx) = true then
             Output "In Package"
             Exit for
           end if
        End If
     Next
  end if
 
End function