pd用脚本追加字段。

楼主amwggyy504（小黄）2006-08-22 20:35:46 在软件工程/管理 / Power Designer 提问

我的power designer中有100多个表，所有表增加完后，发现每个表还要再加一个字段，且字段名称、类型和长度都相同，请问，有没有脚本可以执行？从而提高工作效率，谢谢。问题点数：20、回复次数：6Top

1 楼amwggyy504（小黄）回复于 2006-08-22 20:36:12 得分 0

急用，谢谢各伴的回答。Top

2 楼amwggyy504（小黄）回复于 2006-08-23 09:23:50 得分 0

怎么没人呢？Top

3 楼nongly（）回复于 2006-08-23 19:53:34 得分 0

先生成SQLTop

4 楼nongly（）回复于 2006-08-23 19:56:49 得分 0

先生成SQL语句
然后用编辑工具查找替换，例如把
}
go
换成
，
xxxx xx
}
go

最后再用逆向工程从sql文件生成PDMTop

5 楼shuiniu（飞扬的梦)(我是一头只吃西红柿的水牛）回复于 2006-09-22 10:32:43 得分 0

如果是mssql 可以执行下面的sql,给所有的用户表添加相同的字段:
exec sp_MSforeachtable @command1="if not exists(select 1 from syscolumns where id = object_id('?') and name = '字段名') alter table ? add 字段名数据类型",

然后从数据库逆工程Top

6 楼shuiniu（飞扬的梦)(我是一头只吃西红柿的水牛）回复于 2006-09-28 13:33:21 得分 0

'-------------------------------
'或者: 执行以下vbs
'-------------------------------
Option Explicit

Dim mdl ' the current model

' get the current active 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 'running table
Dim col
for each Tab in folder.tables
if not tab.isShortcut then
set col = tab.columns.createnew
col.code = "字段code"
col.name = "字段名称"
col.datatype = "字段数据类型"
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

Tags(标签):pd用

pd用脚本追加字段。

网站推荐

文章评论

　专题推荐

　栏目更新

站点导航