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

80酷酷网    80kuku.com

  xml|生成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  
联系方式:    
备注:  根据中间表生成符合标准格式的XML文件
**********************************************************************/

/*
 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 '< 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
 union all select '<
 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 '< 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
 union all select '<
 union all select '</ZehuaTableInfoXml>'
end

exec('master.. ''bcp ##t out "" /P"" /c''') 
drop table ##T

go

/*

测试环境:

Windows 2000 Server + SQL 2000测试通过

*/



分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: