mysql+powerdesigner
2016-08-15 14:39
357 查看
mysql只导出表结构不要数据:
powersesigner导入文件步骤:
http://jingyan.baidu.com/article/67508eb4d63dfd9cca1ce437.html
powerdesigner导入sql文件后,不显示备注的处理:
查看此文档
http://blog.csdn.net/lanonola/article/details/51595273
脚本用下面的即可:
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
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)
On Error Resume Next
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.name = tab.comment
Dim col ' running column
for each col in tab.columns
if col.comment="" then
else
col.name= col.comment
end if
next
end if
next
Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.name = view.comment
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
http://zhidao.baidu.com/link?url=-MvtPhB5bS9h__pP03fID0KVRdmYJrdJBzOJzxHuwfTe4XZZnhvst2ANg2aC68pxBMTgIguAkO2vXFlq6xAwiq
方法二、 选中数据库下面的dbo,然后右键,选择转存sql文件,然后选择仅结构powersesigner导入文件步骤:
http://jingyan.baidu.com/article/67508eb4d63dfd9cca1ce437.html
powerdesigner导入sql文件后,不显示备注的处理:
查看此文档
http://blog.csdn.net/lanonola/article/details/51595273
脚本用下面的即可:
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
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)
On Error Resume Next
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.name = tab.comment
Dim col ' running column
for each col in tab.columns
if col.comment="" then
else
col.name= col.comment
end if
next
end if
next
Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.name = view.comment
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
相关文章推荐
- PowerDesigner设置MYSQL主键自动增长的方法
- powerDesigner Non SQL Error : Could not load class com.mysql.jdbc.Driver
- PowerDesigner Reverse Engineer from database-mysql
- PowerDesigner设置MYSQL主键自动增长的方法
- mysql powerdesigner odbc connection failed 的问题解决
- PowerDesigner提示错误Non SQL Error : Could not load class com.mysql.jdbc.Driver
- powerdesigner odbc连接mysql
- 关于PowerDesigner Reverse Engineer from database-mysql的逆向工程
- powerdesigner mysql odbc驱动
- 转载 PowerDesigner Name/Code自动调整
- Code Generate of Power Designer
- Rose VS PowerDesigner
- PowerDesigner + 反向工程 + 数据字典
- DBDesigner 4连接MySQL 5问题解决方法
- [intro]erwin /PowerDesigner
- PowerDesigner + 反向工程 + 数据字典
- Sybase PowerDesigner v12.5 技术共享群 FTP下载
- PowerDesigner Name/Code自动调整 [转]
- sybase power designer 12.0的破解方法
- PowerDesigner XML 文件直接生成 VB 实体(包含属性说明)、ibatisNet 代码