PD怎么连接数据库并把表结构导出excel？

已于 2023-03-07 14:22:04 修改
阅读量2.3k 收藏 9
点赞数 2
文章标签： 数据库 excel database Powered by 金山文档
于 2023-03-07 14:18:26 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Lockin_C/article/details/129366545
版权

项目经理突然想让我把数据库的所有表结构导出成excel，里面要包含目录和表结构，大概长这个样子（如下图），然后想到的方法是用PowerDesigner关联数据库，再用PowerDesigner执行语句，导出excel

第一步 PowerDesigner关联数据库

  1. File->Reverse Engineer->Database…

  1. DBMS下拉选择框中需要选择自己对应的数据库类型，点击确定

  1. 选则导入方式，如果sql文件导入选择1，直接连数据库选2（这里我们介绍直连数据库的方式），点击方式2后面的按钮

  1. 选择数据库

  1. 添加连接方式

  1. 选择系统数据源，点击下一页

  1. 选择对应的数据库，如果是mysql就选择这个，点击下一页（这个地方有坑，如没找到数据库，大概率是电脑上没有odbc驱动，搜关键字“odbc驱动”就能找到安装教程，很简单）

  1. 输入数据库的ip、 端口号、用户名、密码

  1. 返回这步，输入用户名密码，点击Connect

  1. 返回点击确定

  1. 选择对应数据库和对应表，这一步是将数据库的表导入，点ok

  1. 直接下一步

  1. 导入完了大概涨这样

第二步 处理数据

刚导入的er图没有中文注释，让er图显示字段注释，选择

Tools ->Exectue Commands -> Edit/Run Script

下将下面脚本粘贴进去运行即可

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

第三步 导出数据

然后是导出excel

和上面的步骤一样

Tools ->Exectue Commands -> Edit/Run Script下将下面脚本粘贴进去运行即可

Option Explicit
   Dim rowsNum
   rowsNum = 0
'-----------------------------------------------------------------------------
' Main function
'-----------------------------------------------------------------------------
' Get the current active model
    Dim Model
    Set Model = ActiveModel
    If (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then
       MsgBox "The current model is not an PDM model."
    Else
      ' Get the tables collection
      '创建EXCEL APP
      dim beginrow
      DIM EXCEL, SHEET, SHEETLIST
      set EXCEL = CREATEOBJECT("Excel.Application")
      EXCEL.workbooks.add(-4167)'添加工作表
      EXCEL.workbooks(1).sheets(1).name ="表结构"
      set SHEET = EXCEL.workbooks(1).sheets("表结构")
      
      EXCEL.workbooks(1).sheets.add
      EXCEL.workbooks(1).sheets(1).name ="目录"
      set SHEETLIST = EXCEL.workbooks(1).sheets("目录")
      ShowTableList Model,SHEETLIST

      ShowProperties Model, SHEET,SHEETLIST
      
      
      EXCEL.workbooks(1).Sheets(2).Select
      EXCEL.visible = true
      '设置列宽和自动换行
      sheet.Columns(1).ColumnWidth = 20 
      sheet.Columns(2).ColumnWidth = 20 
      sheet.Columns(3).ColumnWidth = 20 
      sheet.Columns(4).ColumnWidth = 40 
      sheet.Columns(5).ColumnWidth = 10 
      sheet.Columns(6).ColumnWidth = 10 
      sheet.Columns(1).WrapText =true
      sheet.Columns(2).WrapText =true
      sheet.Columns(4).WrapText =true
      '不显示网格线
      EXCEL.ActiveWindow.DisplayGridlines = False
      
      
 End If
'-----------------------------------------------------------------------------
' Show properties of tables
'-----------------------------------------------------------------------------
Sub ShowProperties(mdl, sheet,SheetList)
   ' Show tables of the current model/package
   rowsNum=0
   beginrow = rowsNum+1
   Dim rowIndex 
   rowIndex=3
   ' For each table
   output "begin"
   Dim tab
   For Each tab In mdl.tables
      ShowTable tab,sheet,rowIndex,sheetList
      rowIndex = rowIndex +1
   Next
   if mdl.tables.count > 0 then
        sheet.Range("A" & beginrow + 1 & ":A" & rowsNum).Rows.Group
   end if
   output "end"
End Sub
'-----------------------------------------------------------------------------
' Show table properties
'-----------------------------------------------------------------------------
Sub ShowTable(tab, sheet,rowIndex,sheetList)
   If IsObject(tab) Then
     Dim rangFlag
     rowsNum = rowsNum + 1
      ' Show properties
      Output "================================"
      sheet.cells(rowsNum, 1) =tab.name
      sheet.cells(rowsNum, 1).HorizontalAlignment=3
      sheet.cells(rowsNum, 2) = tab.code
      'sheet.cells(rowsNum, 5).HorizontalAlignment=3
      'sheet.cells(rowsNum, 6) = ""
      'sheet.cells(rowsNum, 7) = "表说明"
      sheet.cells(rowsNum, 3) = tab.comment
      'sheet.cells(rowsNum, 8).HorizontalAlignment=3
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge
      '设置超链接，从目录点击表名去查看表结构
      '字段中文名    字段英文名    字段类型    注释    是否主键    是否非空    默认值
      sheetList.Hyperlinks.Add sheetList.cells(rowIndex,2), "","表结构"&"!B"&rowsNum
      rowsNum = rowsNum + 1
      sheet.cells(rowsNum, 1) = "字段中文名"
      sheet.cells(rowsNum, 2) = "字段英文名"
      sheet.cells(rowsNum, 3) = "字段类型"
      sheet.cells(rowsNum, 4) = "注释"
      sheet.cells(rowsNum, 5) = "是否主键"
      sheet.cells(rowsNum, 6) = "是否非空"
      sheet.cells(rowsNum, 7) = "默认值"
      '设置边框
      sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 7)).Borders.LineStyle = "1"
      'sheet.Range(sheet.cells(rowsNum-1, 4),sheet.cells(rowsNum, 9)).Borders.LineStyle = "1"
      '字体为10号
      sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 7)).Font.Size=10
            Dim col ' running column
            Dim colsNum
            colsNum = 0
      for each col in tab.columns
        rowsNum = rowsNum + 1
        colsNum = colsNum + 1
          sheet.cells(rowsNum, 1) = col.name
        'sheet.cells(rowsNum, 3) = ""
          'sheet.cells(rowsNum, 4) = col.name
          sheet.cells(rowsNum, 2) = col.code
          sheet.cells(rowsNum, 3) = col.datatype
        sheet.cells(rowsNum, 4) = col.comment
          If col.Primary = true Then
        sheet.cells(rowsNum, 5) = "Y" 
        Else
        sheet.cells(rowsNum, 5) = " " 
        End If
        If col.Mandatory = true Then
        sheet.cells(rowsNum, 6) = "Y" 
        Else
        sheet.cells(rowsNum, 6) = " " 
        End If
        sheet.cells(rowsNum, 7) =  col.defaultvalue
      next
      sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,7)).Borders.LineStyle = "3"       
      'sheet.Range(sheet.cells(rowsNum-colsNum+1,4),sheet.cells(rowsNum,9)).Borders.LineStyle = "3"
      sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,7)).Font.Size = 10
      rowsNum = rowsNum + 2
      
      Output "FullDescription: "       + tab.Name
   End If
   
End Sub
'-----------------------------------------------------------------------------
' Show List Of Table
'-----------------------------------------------------------------------------
Sub ShowTableList(mdl, SheetList)
   ' Show tables of the current model/package
   Dim rowsNo
   rowsNo=1
   ' For each table
   output "begin"
   SheetList.cells(rowsNo, 1) = "主题"
   SheetList.cells(rowsNo, 2) = "表中文名"
   SheetList.cells(rowsNo, 3) = "表英文名"
   SheetList.cells(rowsNo, 4) = "表说明"
   rowsNo = rowsNo + 1
   SheetList.cells(rowsNo, 1) = mdl.name
   Dim tab
   For Each tab In mdl.tables
     If IsObject(tab) Then
         rowsNo = rowsNo + 1
      SheetList.cells(rowsNo, 1) = ""
      SheetList.cells(rowsNo, 2) = tab.name
      SheetList.cells(rowsNo, 3) = tab.code
      SheetList.cells(rowsNo, 4) = tab.comment
     End If
   Next
    SheetList.Columns(1).ColumnWidth = 20 
      SheetList.Columns(2).ColumnWidth = 20 
      SheetList.Columns(3).ColumnWidth = 30 
     SheetList.Columns(4).ColumnWidth = 60 
   output "end"
End Sub

over！导出完成

如果有帮助到你，请帮我点赞收藏，你的支持是我创作的最大动力！

Lockin C
关注
  • 2
    点赞
  • 踩
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
excelToPd Excel设计表结构导入Pd方法
09-28
设计表一定要按照模板规则，打开PD, 1.创建FIle , New Model , Physical Data(填写Model Name) 2.Tools , Executes Commands , Edit/Run Script 3.选择VB脚本即可, 路径为Excel模板绝对路径！
pd导出表结构为word文档
12-27
如何使用pd反向工程和导出表结构为wrod文档。
达梦数据库导出数据表结构为excel或html或文本
最新发布
Gblfy_Blog
03-22 347
【代码】达梦数据库导出数据表结构为excel或html或文本。
导出pwerdesigner表结构到EXCEL脚本
10-17
整理的导出pwerdesigner的表对象到excel脚本
导出数据表结构到Excel 分为两个Sheet 带链接目录.vbs
07-02
PowerDesigner导出数据表结构到Excel ，导出数据表结构到Excel 分为两个Sheet 带链接目录
PowerDesigner导出表结构到Excel脚本
01-31
步骤： 1、用PowerDesigner打开要导出的PDM文件 2、Tools->Execute Commands -> Edit/Run Script... 3、点击Open图标（打开文件夹）找到该脚本文件 4、点击Run按钮
【保姆式教程】用PowerDesigner导出数据库表结构为Word/Excel表格
热门推荐
chenyao的博客~
06-25 1万+
将track目录中的文件复制到安装目录下, 并替换源文件 (这一步非必须)选择Physical Data, 数据库根据自己的数据库类型选择, 这里我使用的是MySQL注意: 使用PowerDesigner使用JDBC连接的前提是本机要安装32位版本的JDK 本机未安装32位的JDK环境, 或者未配置JDK环境变量, 可通过dos命令 进行验证 注意: 修改环境变量后需要重启电脑生效根据需要选择数据库类型, 这里我使......
PowerDesigner
qq_42317239的博客
10-14 188
PowerDesigner最初由Xiao-Yun Wang（王晓昀）在SDP Technologies公司开发完成。PowerDesigner是Sybase的企业建模和设计解决方案，采用模型驱动方法，将业务与IT结合起来，可帮助部署有效的企业体系架构，并为研发生命周期管理提供强大的分析与设计技术。PowerDesigner独具匠心地将多种标准数据建模技术（UML、业务流程建模以及市场领先的数据建模）集成一体，并与 .NET、WorkSpace、PowerBuilder、Java™、Eclipse 等主流开发
【工具】powerdesigner生成excel文件（脚本）
纯码农的博客
08-15 2463
汝之观览，吾之幸也！本文主要讲的是PowerDesigner工具如何导出excel文件、全局赋值comment字段注释。
pdm生成Excel
hsy1969864869的博客
07-21 1648
PDM文件通过powerdesigner生成Excel 因为要用公司核心数据，所以需要同步核心数据，自己系统中的数据库结构与核心不同，所以要找对应字段对应表，用pdm直接看的话有点不方便，想通过Excel来看就比较清晰了。 方法：用powerdesigner打开pdm文件，ctrl+shift+x，打开脚本编辑，添加以下代码：`’****************************************************************************** '* File:
PowerDesigner 将pdm模型表 用命令导出成Excel表格
一杯咖啡的博客
02-28 1009
【代码】PowerDesigner 将pdm模型表 用命令导出成Excel表格。
数据库设计-使用PD建模-sql sever连接数据导入导出
03-27
数据库设计-使用PD建模-sql sever连接数据导入导出
PowerDesigner 连接MySQL数据库详细步骤
灼烧的疯狂
08-17 5005
第一步：打开PD软件； 第二步：创建新的Model 第三步：创建PDM视图（选择自己要连接的数据库） 第四步：连接数据源： 第五步：一路确定，并选择你刚才所创建的数据源 第六步：很重要： 第七步：等待生成： 第八步：因为文件中的name是英文，没有引入注释，再这里我们需要进行一步操作，把name替换成中文注释 第九步：效果图 备注： 将Comment中的字符COPY至Name中的代码： Option Explicit .
Kettle实战100篇 第9篇 Mysql数据库数据导出到Excel
八一菜刀的专栏
10-04 2702
我们在第8篇的时候已经介绍了将Excel的数据导入到Mysql数据库中,那么,本章我们将介绍将数据从数据库导出到Excel中. 较少数据导出 我们数据库表数据如下图： 数据库中总共存在36条数据,这是数据比较少的情况 新建转换 我们选择 文件 -> 新建 ->转换 建立导出Excel的转换,输入转换名称然后保存 表输入 既然是从数据库表导出数据,所以我们的ETL的第...
数据库管理工具：如何使用 Navicat for MySQL 导出导入数据表 Excel 文件？
白鹿第一帅的 CSDN 博客
09-13 7442
Navicat 导出数据表的格式很多，增加了对 Excel 2007 以上版本的支持，当设计完一个表后，如果有上百条或更多的数据需要导入 MySQL 数据库时，我们可以先把设计好的数据导出到一个 Excel 表中，然后按照格式去填充，最后把这些填充完的数据再导入到 MySQL 数据库中。
powerdesigner导出mysql数据库表结构到Excel
BengL的博客
01-13 969
导入模型后如果出现注释丢失，原因是Sql转模型的时候格式不符合PowerDesigner的标准或者编码不对应等，造成注释的丢失。 解决方法：修改SQL脚本格式即可解决 修改前： `description varchar(100) CHARACTER SET utf8 COLLATE utf8_general_ci DEFAULT NULL COMMENT '描述'` 修改后： `description varchar(100) DEFAULT NULL COMMENT '描述'`
使用PDMan导出数据库表结构生成文档
qq_20519453的博客
11-07 2709
使用PDMan导出数据库表结构生成文档
PowerDesigner导出数据库表结构word
邓霖涛的博客
07-14 3286
打开PowerDesigner新建模型(系统环境变量必须配置32位JDK) 选择数据库配置链接信息 可新建数据库链接配置 配置JDBC相关参数和驱动，测试链接(注意该功能需要使用JDK32位)否则将无法使用 准备导出表数据 选择链接 选择需要导出的表 等待导出即可 导出word 新建 选择需要的导出信息add到右边 选择导出格式布局 勾选需要导出的列信息 可以查询导出的结果...
PowerDesigner 表格导出为excel
CabbageDevil成狂成魔之路
09-10 302
'****************************************************************************** Option Explicit Dim rowsNum rowsNum = 0 '-------------------------------------------------------------------------...
连接数据库sqlserver，根据Excel更新数据库表，并导出为excel，python
09-19
### 回答1： 首先,你需要安装以下Python库: 1.pyodbc:用于连接SQL Server数据库 2.pandas:用于读取和写入Excel文件 然后,你可以使用以下代码来连接SQL Server数据库并查询数据: ``` import pyodbc import pandas as pd # 连接字符串 conn_str = 'DRIVER={ODBC Driver 17 for SQL Server};SERVER=your_server;DATABASE=your_database;UID=your_username;PWD=your_password' # 连接数据库 conn = pyodbc.connect(conn_str) # 查询数据 df = pd.read_sql('SELECT * FROM your_table', conn) # 打印查询结果 print(df) # 关闭数据库连接 conn.close() ``` 接下来,你可以使用pandas的to_sql()函数将Excel中的数据更新到SQL Server数据库表中: ``` # 读取Excel文件 df = pd.read_excel('your_file.xlsx') # 更新数据库表 df.to_sql('your_table', conn, if_exists='replace', index=False) ``` 最后,你可以使用pandas的to_excel()函数将数据库表导出为Excel文件: ``` # 查询数据 df = pd.read_sql('SELECT * FROM your_table', conn) # 导出为Excel文件 df.to_excel('your_file.xlsx', index=False) ``` 希望这些代码能帮到你! ### 回答2： 连接数据库sqlserver可以使用pyodbc模块来实现，首先需要安装pyodbc模块，可以使用以下命令来进行安装： ``` pip install pyodbc ``` 安装完成后，可以使用以下代码来连接sqlserver数据库： ```python import pyodbc # 连接数据库 conn = pyodbc.connect( 'DRIVER={SQL Server};' 'SERVER=服务器地址;' 'DATABASE=数据库名;' 'UID=用户名;' 'PWD=密码;' ) # 创建游标 cursor = conn.cursor() # 执行SQL查询语句 cursor.execute('SELECT * FROM 表名') # 获取查询结果 result = cursor.fetchall() # 关闭游标和连接 cursor.close() conn.close() ``` 根据Excel更新数据库表，可以使用pandas库来读取Excel数据，并通过SQL语句来更新数据库表中的数据。以下是一个示例： ```python import pandas as pd # 读取Excel数据 df = pd.read_excel('文件路径') # 连接数据库并创建游标 conn = pyodbc.connect(连接数据库的代码) cursor = conn.cursor() # 遍历Excel数据，执行更新数据库表的操作 for index, row in df.iterrows(): sql = "UPDATE 表名 SET 列名1='{}', 列名2='{}' WHERE 条件列='{}'".format(row['列名1'], row['列名2'], row['条件列']) cursor.execute(sql) conn.commit() # 关闭游标和连接 cursor.close() conn.close() ``` 导出为Excel可以使用pandas库的`to_excel`方法来实现，以下是一个示例： ```python # 连接数据库并创建游标 conn = pyodbc.connect(连接数据库的代码) cursor = conn.cursor() # 执行SQL查询语句 cursor.execute('SELECT * FROM 表名') # 获取查询结果 result = cursor.fetchall() # 将结果转为DataFrame df = pd.DataFrame(result, columns=['列名1', '列名2', ...]) # 将DataFrame写入Excel df.to_excel('输出文件路径', index=False) # 关闭游标和连接 cursor.close() conn.close() ``` 以上是使用Python连接数据库sqlserver，根据Excel更新数据库表，并导出为Excel的简单示例代码。具体的表名、列名、条件等需要根据实际情况进行替换。 ### 回答3： 要连接SQL Server数据库并根据Excel更新数据库表，并导出为Excel，可以使用Python中的PyODBC和Pandas库。 首先，需要安装PyODBC库和Pandas库。可以使用以下命令进行安装： ``` pip install pyodbc pip install pandas ``` 接下来，使用以下代码连接到SQL Server数据库： ```python import pyodbc # 连接到SQL Server数据库 conn = pyodbc.connect("Driver={SQL Server Native Client 11.0};" "Server=服务器;" "Database=数据库名称;" "UID=用户名;" "PWD=密码;") # 创建游标 cursor = conn.cursor() ``` 然后，使用Pandas库将Excel数据加载到数据框中： ```python import pandas as pd # 读取Excel数据为数据框 df = pd.read_excel('文件路径.xlsx') ``` 接下来，可以使用Pandas库提供的方法将数据框中的数据更新到数据库表中： ```python # 将数据框中的数据更新到数据库表 for index, row in df.iterrows(): cursor.execute("UPDATE 表名 SET 列名1 = ?, 列名2 = ? WHERE 条件", row['列名1'], row['列名2']) conn.commit() ``` 最后，可以使用Pandas库将更新后的数据库表导出为Excel文件： ```python # 导出为Excel文件 df_updated = pd.read_sql('SELECT * FROM 表名', conn) df_updated.to_excel('导出文件路径.xlsx', index=False) ``` 以上是连接数据库SQL Server，根据Excel更新数据库表，并导出为Excel的Python代码示例。

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值