powerdesign导入mysql数据库

我mysql5.7的,什么别人说jdk分32位64位那完全都不是事,建议不要动jdk

下面说说解决办法:

需要的mysql odbc 连接软件: 
mysql-connector-odbc-5.3.6-win32.msi; 
mysql-connector-odbc-5.3.6-winx64.msi;

至于第二个我之前就装了不知道用到没

反正jdk感觉没用上,我里面现在装了三个jdk,为撒原本jdk1.8结果说在mysql官网下的才有用,去下了又装上了,发现还是不行,最后网上百度一摞摞,说是32和64位区别,好去下载一个32位的jdk1.7发现还是不行

第一步:打开PD软件;

第二步:创建新的Model

è¿éåå¾çæè¿°

第三步:创建PDM视图(选择自己要连接的数据库) 

 è¿éåå¾çæè¿°

第四步:连接数据源:

è¿éåå¾çæè¿°

è¿éåå¾çæè¿° 

 è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

 确定完成ok

è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

选择数据库 ,第一步是所有库,2是所有库里面的表都可以勾选或者取消

 è¿éåå¾çæè¿°

3是选择指定的数据库,4是进行勾选 

 è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

 è¿éåå¾çæè¿°

 生成完成后没有名字怎么办就是没有数据库里面的那个备注

PowerDesigner->Tools->Execute Commands->Edit/Run Scripts 

在里面运行一段代码RUN等待就可以了代码见下面

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 

 

 效果图

 参考链接:https://blog.csdn.net/xb565517830/article/details/80401801

 

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值