power Designer VBS 脚步通过 excel 生成实体，不用一个一个的输入。

当建立CDM模型之后

我们可以通过手动创建一个实体，然后手动输入相应的属性，最后转换成PDM模型，最后生成SQL语句，或者其他

而当属性比较多的时候，我们一个一个的拷贝，相对比较麻烦，繁琐，我在工作之后中就干过着事情。。每个实体有

100来个属性。。一个个效率极低。所以通过VBS 批量的实现读取Excel 来直接生产实体。效率高。下面就说说这个

方法吧。

1 当建立CDM模型之后我们按快捷键 ctrl+shift+x 打开VBS编辑及运行框。

2 下面就看看代码吧。。

'******************************************************************************
'* File:     Import_excel_to_Excel.vbs
'* Purpose:  Import excel to create entity
'
'* Title:    Import_CDM_to_excel.vbs
'* Category:
'* Version:  1.0
'* Company:  icegoly
'* time   :  2012-08-08
'******************************************************************************
'                             Excel 格式如下
'字段名      类型       字段名     是否为空      备注         表实体名
'  ID        number      ID           是         身份           斯凯
'                                                              skyelek
'******************************************************************************Option Explicit  Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then  MsgBox "There is no Active Model"
End If  Dim HaveExcel
Dim RQ
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
If RQ = vbYes Then  HaveExcel = True  ' Open & Create Excel Document  Dim x1  '  Set x1 = CreateObject("Excel.Application")  x1.Workbooks.Open "C:\PD.xls"   '指定excel文档路径  x1.Workbooks(1).Worksheets("Sheet1").Activate   '指定要打开的sheet名称
Else  HaveExcel = False
End If  a x1, mdl
sub a(x1, mdl)
dim rwIndex
dim tableName
dim colname
dim table
dim col
dim count
dim abc  'on error Resume Next
set table = mdl.Entities.CreateNew '创建一个表实体  '--------------------------------
'下面是读取excel 2行6列  3 行6列
' 来创建一个表实体
'-------------------------------- With x1.Workbooks(1).Worksheets("Sheet1") table.Name=.Cells(2,6).Valuetable.Code = .Cells(3,6).ValueEnd With
'table.Code = "AM_CARDINFO1"  '指定表名  count = count + 1  '--------------------------------
'下面是读取excel
' 添加表实体属性
'-------------------------------- For rwIndex = 2 To 1000   '指定要遍历的Excel行标  由于第1行是表头，从第2行开始 With x1.Workbooks(1).Worksheets("Sheet1")  If .Cells(rwIndex, 1).Value = "" Then  Exit For  End If  set col = table.Attributes.CreateNew   '创建一列/字段  If .Cells(rwIndex, 3).Value = "" Then  col.Name = .Cells(rwIndex, 1).Value   '指定列名  Else   col.Name = .Cells(rwIndex, 3).Value  End If  'MsgBox col.Name, vbOK + vbInformation, "列"  col.Code = .Cells(rwIndex, 1).Value   '指定列名  col.DataType = .Cells(rwIndex, 2).Value   '指定列数据类型  col.Comment = .Cells(rwIndex, 5).Value  '指定列说明  If .Cells(rwIndex, 4).Value = "是" Then  col.Mandatory = true        '指定列是否可空  true  为不可空                    End If  'If rwIndex = 2 Then  ' col.Primary = true    '指定主键  ' End If  End With
Next
MsgBox "生成数据表结构共计 " + CStr(count), vbOK + vbInformation, "表"  Exit Sub
End sub

3 其中

 x1.Workbooks.Open "C:\PD.xls"   '指定excel文档路径

就是打开指定excel文件可以自己指定

4 excel 格式如下;

5如果都没有问题的话，就可以run 了。。

如果想下载相应的表格：

http://115.com/file/c2i0wbtq

power Designer VBS 脚步通过 excel 生成实体，不用一个一个的输入。相关推荐

SQL Server 2008带字段注释导入Power Designer 9.5
需要注意的Power Designer 首先得注册到本机连接数据库具体实现方法如下:首先新建DBMS方便起见,可以先复制Microsoft SQL Server 2000,可以这样操作(tools- ...
根据Excel表的配置，自动生成数据库表的CRUD以及相关的Winform列表和编辑界面程序文件，接上篇(自动生成实体类)
本文仍然属于一个自动生成代码工具. 上一篇我们根据数据库表的信息,自动生成实体类.cs文件.这次我们根据Excel配置,直接生成CRUD以及窗体列表和编辑界面相关的程序源文件. 通过自动生成代码,这样 ...
power designer 设计数据库生成到oracle数据库
一.概念模型设计 1. 创建工程,创建概念设计模型,在快捷菜单栏调出 palette 找到表格工具,在主界面中创建表格. 2. 创建出的表格,双击进入设计模式 -------------------- ...
Power Designer逆向操作(从mysql5.0生成数据库的物理模型)
Power Designer逆向操作(从mysql5.0生成数据库的物理模型) 环境:powderdesigner12.5:mysql5.0 步骤: 1. 为指定的数据库配置MySQL的ODBC数据 ...
Power Designer:正向构建数据库数据库逆向工程SQL生成数据库报表
1. Power Designer 1.1 Power Designer介绍 PowerDesigner是Sybase公司的一款软件,使用它可以方便地对系统进行分析设计,他几乎包括了数据库模型设计的全 ...
POWER DESIGNER导出数据字典
POWER DESIGNER导出数据字典文章目录 POWER DESIGNER导出数据字典脚本代码使用方式打开powerdesigner,点击[工具]菜单,再选择[执行命令]/[编辑/运行脚本] ...
power designer概述
power designer概述 Power Designer 是Sybase公司的CASE工具集,使用它可以方便地对管理信息系统进行分析设计,他几乎包括了数据库模型设计的全过程.利用Power De ...
oracle取32位唯一码,Oracle导出导入dmp文件命令,以及excel生成32位uuid
Oracle导出dmp文件命令,以及excel生成64位uuid 导出命令cmd中 expdp mms/xfkjerp@orcl schemas=mms dumpfile=expdp.dmp DIRE ...
power designer 使用vba实现自动化操作学习
power designer 自带VBA脚本语言,在某些情况下编程可实现自动化操作: 1 创建表和列代码大体如下: Set mdl = ActiveModel set table = mdl.Tab ...

power Designer VBS 脚步通过 excel 生成实体，不用一个一个的输入。

power Designer VBS 脚步通过 excel 生成实体，不用一个一个的输入。相关推荐

最新文章

热门文章

power Designer VBS 脚步 通过 excel 生成实体，不用一个一个的输入。

power Designer VBS 脚步 通过 excel 生成实体，不用一个一个的输入。相关推荐

最新文章

热门文章

power Designer VBS 脚步通过 excel 生成实体，不用一个一个的输入。

power Designer VBS 脚步通过 excel 生成实体，不用一个一个的输入。相关推荐