列中的数据类型的函数

Question

请问有没有能得知指定列中数据的类型的函数？

Answer 1

select 字段名=a.name, 类型=b.name, 占用字节数=a.length  
FROM syscolumns a Inner join systypes b on a.xtype=b.xusertype
where a.id=object_id('表名') and a.name='列名'

Answer 2

--你有空去研究下这个吧，不知道最初是哪儿的SELECT 
(case when a.colorder=1 then d.name else '' end) N'表名', 
a.colorder N'字段序号', 
a.name N'字段名', 
(case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' 
end) N'标识', 
(case when (SELECT count(*) 
FROM sysobjects 
WHERE (name in 
(SELECT name 
FROM sysindexes 
WHERE (id = a.id) AND (indid in 
(SELECT indid 
FROM sysindexkeys 
WHERE (id = a.id) AND (colid in 
(SELECT colid 
FROM syscolumns 
WHERE (id = a.id) AND (name = a.name))))))) AND 
(xtype = 'PK'))>0 then '√' else '' end) N'主键', 
b.name N'类型', 
a.length N'占用字节数', 
COLUMNPROPERTY(a.id,a.name,'PRECISION') as N'长度', 
isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0) as N'小数位数', 
(case when a.isnullable=1 then '√'else '' end) N'允许空', 
isnull(e.text,'') N'默认值', 
isnull(g.[value],'') AS N'字段说明' 
FROM syscolumns a 
left join systypes b 
on a.xtype=b.xusertype 
inner join sysobjects d 
on a.id=d.id and d.xtype='U' and d.name<>'dtproperties' 
left join syscomments e 
on a.cdefault=e.id 
left join sysproperties g 
on a.id=g.id AND a.colid = g.smallid 
order by object_name(a.id),a.colorder

Answer 3

有空看看SQLSERVER自带的系统表是干什么的就没这么多问题了.

Answer 4

最简单最省心的办法是在客户端使用SQL-DMO对象获取列信息。
Dim cDataType = ""
Dim oSqlServer as new SQLDMO.SQLServer2
oSqlServer.LoginSecure = vbTrue
----连接到SQLSERVER实例
oSqlServer.CONNECT("计算机名")　/*连接到默认实例。或"计算机名\实例名"到命名实例*/
cDataType = oSqlServer.DataBases("数据库名").Tables("表名").Columns("列名").datatype
--列名称，列长度，列精度，是否允许空值……具体可查看SQLSERVER帮助中的SQL-DMO帮助。