日期:2014-05-17  浏览次数:20554 次

将表、字段、描述等导出到EXCEL(每个表一个sheet文件)
将表、字段、描述等导出到EXCEL(每个表一个sheet文件),请教。
Excel SQLSERVER

------解决方案--------------------

SELECT 
表名 = CASE WHEN A.COLORDER=1 THEN D.NAME ELSE '' END,
表备注 = CASE WHEN A.COLORDER=1 THEN ISNULL(F.VALUE,'') ELSE '' END,
列序号 = A.COLORDER,
列名称 = A.NAME,
标识 = CASE WHEN COLUMNPROPERTY(A.ID,A.NAME,'ISIDENTITY')=1 THEN '√ ' ELSE '' END,
主键 = CASE WHEN EXISTS(SELECT 1 FROM SYSOBJECTS WHERE XTYPE='PK' AND PARENT_OBJ=A.ID AND NAME IN (
SELECT NAME FROM SYSINDEXES WHERE INDID IN(
SELECT INDID FROM SYSINDEXKEYS WHERE ID=A.ID AND COLID=A.COLID))) THEN '√' ELSE '' END,
类型 = B.NAME,
字节 = A.LENGTH,
长度 = COLUMNPROPERTY(A.ID,A.NAME,'PRECISION'),
小数位 = ISNULL(COLUMNPROPERTY(A.ID,A.NAME,'SCALE'),0),
允许空 = CASE WHEN A.ISNULLABLE=1 THEN '√ 'ELSE '' END,
默认值 = ISNULL(E.TEXT,''),
列备注 = ISNULL(G.[VALUE],'')
FROM 
SYSCOLUMNS A
LEFT JOIN SYSTYPES B ON A.XUSERTYPE=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 sys.extended_properties G ON A.ID=G.major_id AND A.COLID=G.minor_id   
LEFT JOIN sys.extended_properties F ON D.ID=F.major_id AND F.minor_id=0
--where D.NAME='tbname'   --查询这个表
ORDER BY A.ID,A.COLORDER 

写个游标,用bcp创建导出excel
------解决方案--------------------
我先给你发第一种方法.这种方法不保存输出的结果.只是把结果直接输出到Excel.但有一缺点...就是windows本身在不程序的数据传递间存在着一个缓存区域.而且小得可怜,且不可调....所以数据量大往往会有溢出错误..在XP常有这种情况.

Private Sub EXCEL() '这里我直接定义成按钮,你也可以定义成公共模块用别一个按钮去激活它
'Public Function ExporToExcel2(strOpen As String) 公共模块的写法,然后在另一个按钮定义strOpen的内容
'在另一按钮写ExporToExcel2("select * from table")