如何从SQL Server 中取得字段说明

SQL Server 2000

你可以在企业管理器中增加字段说明,也可以使用下面的代码:
EXEC sp_addextendedproperty 
    
'MS_Description'
    
'some description'
    
'user'
    dbo, 
    
'table'
    table_name, 
    
'column'
    column_name
现在,你就可以得到通过下面的代码得到字段说明:
SELECT 
    
[Table Name] = i_s.TABLE_NAME, 
    
[Column Name] = i_s.COLUMN_NAME, 
    
[Description] = s.value 
FROM 
    INFORMATION_SCHEMA.COLUMNS i_s 
LEFT OUTER JOIN 
    sysproperties s 
ON 
    s.id 
= OBJECT_ID(i_s.TABLE_SCHEMA+'.'+i_s.TABLE_NAME) 
    
AND s.smallid = i_s.ORDINAL_POSITION 
    
AND s.name = 'MS_Description' 
WHERE 
    
OBJECTPROPERTY(OBJECT_ID(i_s.TABLE_SCHEMA+'.'+i_s.TABLE_NAME), 'IsMsShipped')=0 
    
-- AND i_s.TABLE_NAME = 'table_name' 
ORDER BY 
    i_s.TABLE_NAME, i_s.ORDINAL_POSITION


如果你只关心某一张表,那么上面的TSQL中的注释部份对你就非常有帮助。反过来就会给你所有表中的所有字段。

如果你只需要所有有说明的表,你可以把out join 改成 inner join
SELECT 
    
[Table Name] = i_s.TABLE_NAME, 
    
[Column Name] = i_s.COLUMN_NAME, 
    
[Description] = s.value 
FROM 
    INFORMATION_SCHEMA.COLUMNS i_s 
INNER JOIN 
    sysproperties s 
ON 
    s.id 
= OBJECT_ID(i_s.TABLE_SCHEMA+'.'+i_s.TABLE_NAME) 
    
AND s.smallid = i_s.ORDINAL_POSITION 
    
AND s.name = 'MS_Description' 
WHERE 
    
OBJECTPROPERTY(OBJECT_ID(i_s.TABLE_SCHEMA+'.'+i_s.TABLE_NAME), 'IsMsShipped')=0 
ORDER BY 
    i_s.TABLE_NAME, i_s.ORDINAL_POSITION

SQL Server 2005

在SQL Server 2005 中 sysproperties 表已被废弃,所以上面的代码都不能用。幸运的是他们还是增加了一个系统表给我们 sys.extended_properties,这张表和 sysproperties基本上相似。

SELECT 
    
[Table Name] = OBJECT_NAME(c.object_id), 
    
[Column Name] = c.name, 
    
[Description] = ex.value 
FROM 
    sys.columns c 
LEFT OUTER JOIN 
    sys.extended_properties ex 
ON 
    ex.major_id 
= c.object_id 
    
AND ex.minor_id = c.column_id 
    
AND ex.name = 'MS_Description' 
WHERE 
    
OBJECTPROPERTY(c.object_id'IsMsShipped')=0 
    
-- AND OBJECT_NAME(c.object_id) = 'your_table' 
ORDER 
    
BY OBJECT_NAME(c.object_id), c.column_id

和SQL Server 2000一样,你可以使用注释部份来返回某一张表。
Microsoft Access
在Access中,你可以使用下面的ASP代码来得到某一个字段的说明


<
    
on error resume next 
    
Set Catalog = CreateObject("ADOX.Catalog"
    Catalog.ActiveConnection 
= "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
        
"Data Source=<path>\<file>.mdb" 

    dsc 
= Catalog.Tables("table_name").Columns("column_name").Properties("Description").Value 

    
if err.number <> 0 then 
        Response.Write 
"&lt;" & err.description & "&gt;" 
    
else 
        Response.Write 
"Description = " & dsc 
    
end if 
    
Set Catalog = nothing 
%
>
posted on 2009-08-24 18:11  Dot-Boy  阅读(416)  评论(0编辑  收藏  举报