问题:今天工作遇到这样一个问题,需要把数据库中的所有表,每个表加入四个字段,如果表少,我们可以手动去添加或者修改,如果是成千上百万张表的话,我们如何去修改,现记录下来。
解决方法;
找到数据库的建模资料,就是PDM文件。发个截图
下面我们就要用一个工具了,就是powerdesign,我们将用这个工具批量修改数据库表中的字段。需要用vb脚本。
我们打开powerdesign,点开脚本运行栏,方法,工具--如图
点击后的运行脚本框如下
写好的脚本放在上面运行即可。
vb语法
Option Explicit
Dim mdl ' the current model
Set mdl = ActiveModel
Dim Tab 'running table
Dim col_ModTime, col_ModPerson
' 定义属性变量
for each Tab in ActiveModel.Tables
Set col_ModTime = Tab.Columns.CreateNew
set col_ModPerson = Tab.Columns.CreateNew
col_ModTime.name = "操作类型"
col_ModTime.code = "LOG_CZLX"
col_ModTime.DataType = "Char(1)"
col_ModPerson.name = "时间"
col_ModPerson.code = "LOG_CZSJ"
col_ModPerson.DataType = "Datatime()"
next
---------------------------我是完美分割线-----------------------------------------
Option Explicit
Dim mdl ' the current model
Set mdl = ActiveModel
Dim Tab 'running table
Dim col_ModLOG_SC, col_ModLOG_XZ
' 定义属性变量
for each Tab in ActiveModel.Tables
Set col_ModLOG_SC = Tab.Columns.CreateNew
set col_ModLOG_XZ = Tab.Columns.CreateNew
col_ModLOG_SC.name = "上传状态"
col_ModLOG_SC.code = "LOG_SC"
col_ModLOG_SC.DataType = "Char(1)"
col_ModLOG_XZ.name = "下载状态"
col_ModLOG_XZ.code = "LOG_XZ"
col_ModLOG_XZ.DataType = "Char(1)"
next
上面的脚本是向数据库中每个数据表中插入四个字段。
完成以上,就已经完成了一大部分工作任务了。插入完成后你要保存,然后导出txt文件或者SQL文件,我导出的是txt。
方法如下
导出即可。
或者你可以选择粘贴出来,看到里面的创建数据表的脚本
后面的,就是要修改你要修改的东西,比如替换原来的东西,我们可以用这个工具。UltraEdit