mysql+powerdesigner

来源:互联网 发布:自动加粉软件 编辑:程序博客网 时间:2024/06/05 15:31

mysql只导出表结构不要数据:


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  

0 0
原创粉丝点击