SQL Server根据查询结果,生成XML文件

/*
@#bcp@# 不是内部或外部命令，也不是可运行的程序？
看看在C:\Program Files\Microsoft SQL Server\80\Tools\Binn里面有没有bcp.exe这个文件
然后看看path里面加C:\Program Files\Microsoft SQL Server\80\Tools\Binn这个目录没有.
右键我的电脑--属性--高级--环境变量--在系统变量中找到path--编辑
在变量值的最后加上:
C:\Program Files\Microsoft SQL Server\80\Tools\BINN
*/
/**********************************************************************
存储过程: P_SaveXML
功能: 生成XML文件
参数: 表名
返回: 指定目录的XML文件
调用方法: 传递中间表TB_TABLECOLUMN_T存在的表名
exec P_ZehuaSavexml @#WQ_STINFO_B,WQ_PHY_D@#,@#D:\xx.xml@#
最后更改日期: 2005-8-17
联系方式: zlp@zehua.com.cn
备注: 根据中间表生成符合标准格式的XML文件
www.knowsky.com
**********************************************************************/
/*
exec P_ZehuaSavexml @#WQ_STINFO_B,WQ_PHY_D@#,@#D:\xx.xml@#
*/
go
create proc P_ZehuaSavexml
@TableCodeS varchar(8000),
@fname varchar(1000)=@#c:\tmp.xml@# --默认保存的XML文件地址
as
declare @sql nvarchar(200),@sql1 varchar(400)
declare @cnt int,@Table_Name varchar(20)
declare @i int,@TableCode varchar(20)
declare @err int,@src varchar(255),@desc varchar(255)
create table ##t(re nvarchar(4000))
insert ##t
select Re=@#<?xml version="1.0" encoding="gb2312"?>@#
union all select @#<ZehuaTableInfoXml>@#
set @i=charindex(@#,@#,@TableCodeS)
while @i>0
begin
set @TableCode=left(@TableCodeS,@i-1)
set @sql=@#@#
set @sql=N@#select @cnt=count(*),@Table_Name=max(Table_Name) from @#
set @sql=@sql+N@#(@#
set @sql=@sql+N@#select top 100 percent * from TB_TABLECOLUMN_T where @#
set @sql=@sql+N@#TABLE_CODE=@#@#@#+@TableCode+@#@#@# and COLUMNS_ISKEY=@#@#√@#@# @#
set @sql=@sql+N@#order by COLUMNS_SORT @#
set @sql=@sql+N@#)@#
set @sql=@sql+N@#A@#
exec sp_executesql @sql,N@#@cnt int output,@Table_Name varchar(20) output@#,@cnt output,@Table_Name output --计算主键的个数,表名
insert ##t
select @#<@#+@TableCode+@# TABLE_NAME="@#+@Table_Name+@#" PK="@#+cast(@cnt as varchar)+@#">@#
union all
select space(4)+@#<COLUMNS COLUMNS_NAME="@#+cast(COLUMNS_NAME as varchar)+@#"
@#+space(8)+@#TABLE_CODE="@#+isnull(@TableCode,@#@#)+@#"
@#+space(8)+@#COLUMNS_VISIBLE="@#+isnull(COLUMNS_VISIBLE,@#@#)+@#"/>@#
from TB_TABLECOLUMN_T where TABLE_CODE=@#@#+@TableCode+@#@#
union all select @#</@#+@TableCode+@#>@#
set @TableCodeS=right(@TableCodeS,len(@TableCodeS)-@i)
set @i=CHARINDEX(@#,@#,@TableCodeS)
end
if len(@TableCodeS)>0
begin

set @sql=@#@#
set @sql=N@#select @cnt=count(*),@Table_Name=max(Table_Name) from @#
set @sql=@sql+N@#(@#
set @sql=@sql+N@#select top 100 percent * from TB_TABLECOLUMN_T where @#
set @sql=@sql+N@#TABLE_CODE=@#@#@#+@TableCodeS+@#@#@# and COLUMNS_ISKEY=@#@#√@#@# @#
set @sql=@sql+N@#order by COLUMNS_SORT @#
set @sql=@sql+N@#)@#
set @sql=@sql+N@#A@#
exec sp_executesql @sql,N@#@cnt int output,@Table_Name varchar(20) output@#,@cnt output,@Table_Name output --计算主键的个数,表名
insert ##t
select @#<@#+@TableCodeS+@# TABLE_NAME="@#+@Table_Name+@#" PK="@#+cast(@cnt as varchar)+@#">@#
union all
select space(4)+@#<COLUMNS COLUMNS_NAME="@#+cast(COLUMNS_NAME as varchar)+@#"
@#+space(8)+@#TABLE_CODE="@#+isnull(@TableCodeS,@#@#)+@#"
@#+space(8)+@#COLUMNS_VISIBLE="@#+isnull(COLUMNS_VISIBLE,@#@#)+@#"/>@#
from TB_TABLECOLUMN_T where TABLE_CODE=@#@#+@TableCodeS+@#@#
union all select @#</@#+@TableCodeS+@#>@#
union all select @#</ZehuaTableInfoXml>@#
end
exec(@#master..xp_cmdshell @#@#bcp ##t out "@#+@fname+@#" /P"" /c@#@#@#)
drop table ##T
go
/*
测试环境:
Windows 2000 Server + SQL 2000测试通过
*/