PowerDesigner 16 sql server 2008 生成備註報“對象名 'sysproperties' 無效”解決辦法。

原創 xiaotuni 2020-02-23 05:13

從網上找了一段生成sql備註的腳本，腳本如下：

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

'   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view 
'   of   the   current   folder 
Private   sub   ProcessFolder(folder) 
      Dim   Tab   'running     table 
      for   each   Tab   in   folder.tables 
            if   not   tab.isShortcut   then 
                  tab.comment   =   tab.name 
                  Dim   col   '   running   column 
                  for   each   col   in   tab.columns 
                        col.comment=   col.name 
                  next 
            end   if 
      next

      Dim   view   'running   view 
      for   each   view   in   folder.Views 
            if   not   view.isShortcut   then 
                  view.comment   =   view.name 
            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 15上沒有問題，可是到了PowerDesinger 16上就出現在問題了。

在PowerDesinger 16上生成出來的腳本里有多了東西，就是加了一個判斷，如果備註已經存在，就刪除這個判斷，在對其進行判斷的時候，用到了sysproperties這表表，可是在sql server 2008 裏面沒有(sql server 2005裏也好像沒有)。

if exists (select 1 
            from  sysproperties 
           where  id = object_id('T_PRI_CarLimitPriceCache') 
            and   type = 3) 
begin 
   declare @CurrentUser sysname 
select @CurrentUser = user_name() 
execute sp_dropextendedproperty 'MS_Description',  
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache' 
 
end 

select @CurrentUser = user_name() 
execute sp_addextendedproperty 'MS_Description',  
   '限價設定數據緩存', 
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache'
go

if exists (select 1
            from  sys.properties
           where  id = object_id('T_PRI_CarLimitPriceCache')
            and   type = 4)
begin
   declare @CurrentUser sysname
select @CurrentUser = user_name()
execute sp_dropextendedproperty 'MS_Description', 
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache', 'column', 'MarketCode'


end
那PowerDesinger 15裏生成的腳本如下： 

declare @CurrentUser sysname
select @CurrentUser = user_name()
execute sys.sp_addextendedproperty 'MS_Description', 
   '限價設定數據緩存',
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache'
go

declare @CurrentUser sysname
select @CurrentUser = user_name()
execute sp_addextendedproperty 'MS_Description', 
   '店面編碼',
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache', 'column', 'MarketCode'
go

爲什麼會這樣呢？最後查看了 PowerDesinger 16 與 PowerDesinger 15裏面的 TableComment 和 ColumnComment 裏內腳本不一樣導至生成的出來的腳本不同。

在網上找了一下發生sql server 2008 數據庫裏沒有 sysproperties這個表，所在執行生成 PowerDesigner 16生成出來的的腳本出現下圖所錯誤


現在有二個方法可以解決這個問題，那就是把 PowerDesigner 15裏面TableComment和ColumnComment的腳本放到 PowerDesigner 16裏面生成出來看腳本就像15一樣，在執行的時候也就出報上面的錯誤了。


第二個方法就是修改PowerDesigner 16裏面的腳本內容。

表：


列：


修改完了之後，生成的SQL腳本如下：

if exists (select 1 
            from  sys.extended_properties
           where  major_id = object_id('T_PRI_CarLimitPriceCache') 
            and   minor_id = 0) 
begin 
   declare @CurrentUser sysname 
select @CurrentUser = user_name() 
execute sp_dropextendedproperty 'MS_Description',  
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache' 
 
end 

select @CurrentUser = user_name() 
execute sp_addextendedproperty 'MS_Description',  
   '限價設定數據緩存', 
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache'
go

if exists (select 1
            from  sys.extended_properties
           where  major_id= object_id('T_PRI_CarLimitPriceCache')
            and   value = '店面編碼')
begin
   declare @CurrentUser sysname
select @CurrentUser = user_name()
execute sp_dropextendedproperty 'MS_Description', 
   'user', @CurrentUser, 'table', 'T_PRI_CarLimitPriceCache', 'column', 'MarketCode'

end
再執行的時候就不會報  [對象名 'sysproperties' 無效。]這個錯誤了。


現在把PowerDesigner 15裏的TableComment 和 ColumnComment裏的內容貼出來。

-------------------------TableComment-----------------------------------
[%OWNER%?[.O:[execute ][exec ]][sys.]sp_addextendedproperty [%R%?[@%S%=][N]]'MS_Description', 
   [%R%?[@%S%=][N]]%.q:COMMENT%,
   [%R%?[@%S%=][N]]'[.O:[user][schema]]', [%R%?[@%S%=][N]]%.q:OWNER%, [%R%?[@%S%=][N]]'table', [%R%?[@%S%=][N]]%.q:TABLE%
:declare @CurrentUser sysname
select @CurrentUser = user_name()
[.O:[execute ][exec ]][sys.]sp_addextendedproperty [%R%?[@%S%=][N]]'MS_Description', 
   [%R%?[@%S%=][N]]%.q:COMMENT%,
   [%R%?[@%S%=][N]]'user', [%R%?[@%S%=][N]]@CurrentUser, [%R%?[@%S%=][N]]'table', [%R%?[@%S%=][N]]%.q:TABLE%
]


-------------------------ColumnComment----------------------------------

[%OWNER%?[.O:[execute ][exec ]]sp_addextendedproperty [%R%?[N]]'MS_Description', 
   [%R%?[N]]%.q:COMMENT%,
   [%R%?[N]]'user', [%R%?[N]]%.q:OWNER%, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE%, [%R%?[N]]'column', [%R%?[N]]%.q:COLUMN%
:declare @CurrentUser sysname
select @CurrentUser = user_name()
[.O:[execute ][exec ]]sp_addextendedproperty [%R%?[N]]'MS_Description', 
   [%R%?[N]]%.q:COMMENT%,
   [%R%?[N]]'user', [%R%?[N]]@CurrentUser, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE%, [%R%?[N]]'column', [%R%?[N]]%.q:COLUMN%
]

修改後的PowerDesigner 16裏TableComment 和 ColumnComment裏的內容貼出來。 

---------------------------------TableComment------------------------------
[if exists (select 1 
            from  sys.extended_properties
           where  major_id = object_id('[%QUALIFIER%]%TABLE%') 
            and   minor_id = 0) 
begin 
   [%OWNER%?[.O:[execute ][exec ]]sp_dropextendedproperty [%R%?[N]]'MS_Description',  
   [%R%?[N]]'user', [%R%?[N]]%.q:OWNER%, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE% 
:declare @CurrentUser sysname 
select @CurrentUser = user_name() 
[.O:[execute ][exec ]]sp_dropextendedproperty [%R%?[N]]'MS_Description',  
   [%R%?[N]]'user', [%R%?[N]]@CurrentUser, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE% 
] 
end 


][%OWNER%?[.O:[execute ][exec ]]sp_addextendedproperty [%R%?[N]]'MS_Description',  
   [%R%?[N]]%.q:COMMENT%, 
   [%R%?[N]]'user', [%R%?[N]]%.q:OWNER%, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE% 
:select @CurrentUser = user_name() 
[.O:[execute ][exec ]]sp_addextendedproperty [%R%?[N]]'MS_Description',  
   [%R%?[N]]%.q:COMMENT%, 
   [%R%?[N]]'user', [%R%?[N]]@CurrentUser, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE% 
] 
---------------------------------ColumnComment-----------------------------
[if exists (select 1
            from  sys.extended_properties
           where  major_id= object_id('[%QUALIFIER%]%TABLE%')
            and   value = [%R%?[N]]%.q:COMMENT%)
begin
   [%OWNER%?[.O:[execute ][exec ]]sp_dropextendedproperty [%R%?[N]]'MS_Description', 
   [%R%?[N]]'user', [%R%?[N]]%.q:OWNER%, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE%, [%R%?[N]]'column', [%R%?[N]]%.q:COLUMN%
:declare @CurrentUser sysname
select @CurrentUser = user_name()
[.O:[execute ][exec ]]sp_dropextendedproperty [%R%?[N]]'MS_Description', 
   [%R%?[N]]'user', [%R%?[N]]@CurrentUser, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE%, [%R%?[N]]'column', [%R%?[N]]%.q:COLUMN%
]

end


][%OWNER%?[.O:[execute ][exec ]]sp_addextendedproperty [%R%?[N]]'MS_Description', 
   [%R%?[N]]%.q:COMMENT%,
   [%R%?[N]]'user', [%R%?[N]]%.q:OWNER%, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE%, [%R%?[N]]'column', [%R%?[N]]%.q:COLUMN%
:select @CurrentUser = user_name()
[.O:[execute ][exec ]]sp_addextendedproperty [%R%?[N]]'MS_Description', 
   [%R%?[N]]%.q:COMMENT%,
   [%R%?[N]]'user', [%R%?[N]]@CurrentUser, [%R%?[N]]'table', [%R%?[N]]%.q:TABLE%, [%R%?[N]]'column', [%R%?[N]]%.q:COLUMN%
]



發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

找了幾天終於找到一個無限聯動下拉框的代碼，並且可以賦初始值，非常滿意

　有三個文件：sort.js，sortArr.js，test.htm。 　　sortArr.js就是所需要的數據：var arrSorts = new Array(35);arrSorts[0] = ["1", "主類別一", "0"];

zly22169846 2020-06-22 05:12:42

set集合的排序

在hibernate的OneToMany的實體關聯的時候，one端的set是無序的，可是需要按照順序來搞的話就比較麻煩了。 下面給出一個例子。 Set<DiaryPicture> diaryPictureSet = growthDiary

melody- 2020-06-20 10:09:30

sql server用腳本生成數據庫腳本

set @cmd = 'master.dbo.xp_cmdshell ' + '''c:/scptxfr.exe ' +' /s Prologic-com3 /p sa /I /d vod /f ' +'c:/vod.sql''' pri

cuijian_ok 2020-06-16 02:44:09

sql server鎖機制

作者：宋立桓[導讀: 各種大型數據庫所採用的鎖的基本理論是一致的，但在具體實現上各有差別。SQL Server更強調由系統來管理鎖。在用戶有SQL請求時，系統分析請求，自動在滿足鎖定條件和系統性能之間爲數據庫加上適當的鎖，同時系統在運行

cuijian_ok 2020-06-16 02:44:09

兩條關於生成排名的SQL語句

兩條關於生成排名的SQL語句: select name,score,(select count(*) from t where score>a.score)+1 from t a order by score 上面是：1,2,3,3,3,

cuijian_ok 2020-06-16 02:44:09

微服務之----分佈式事務解決方案

現在的微服務這麼流行這麼火，分佈式的事務是每個系統都會遇到的問題。 CAP定理是由加州大學伯克利分校Eric Brewer教授提出來的，他指出WEB服務無法同時滿足一下3個屬性： 一致性(Consistency) ： 客戶端知道一系列的操

起源星 2020-06-11 14:18:11

mysql高級 視圖，觸發器，存儲過程

視圖View 作用：簡化查詢語句 創建視圖 create view 視圖名 as select語句; 修改視圖 alter view 視圖名 as

请叫我hello 2020-06-06 16:21:18

【Mysql之自我練習】select查詢複雜排序（注：私用的，爲了不遺失）

深圳-雄少 2020-06-03 09:13:55

sql server中取得表結構的存儲過程

htyy521 2020-02-24 00:50:51

DTS和WorkBench

htyy521 2020-02-24 00:50:21

基於xml的數據庫移植代碼

htyy521 2020-02-24 00:50:21

在Windows操作系統下，卸載Oracle 9i

htyy521 2020-02-24 00:50:21

如何使用SQlDEMO.

htyy521 2020-02-24 00:50:21

刪除oracle中完全重複的數據

IT_guo 2020-02-23 19:42:28

刪除oralce中重複的數據（一）

IT_guo 2020-02-23 19:42:28