导出xml并保存代码,MSSQL代码库,德仔网

代码语言
代码分类
【MSSQL】导出xml并保存
作者:Dezai.CN / 发布于2013/7/12/ 1163

	/**********************************************************************
	存储过程: P_Savexml
	功能: 生成XML文件
	参数: 表名
	返回: 指定目录 XML文件
	调用方法: 传递中间表TB_TABLECOLUMN_T存在 表名
	 exec P_ZehuaSavexml 'WQ_STINFO_B,WQ_PHY_D','D:\xx.xml'
	最后更改日期: 2005-8-17
	联系方式:
	备注: 根据中间表生成符合标准格式 XML文件
	**********************************************************************/
	/*DROP TABLE TB_TABLECOLUMN_T
	CREATE TABLE TB_TABLECOLUMN_T
	( TABLE_CODE VARCHAR(100),
	 TABLE_name VARCHAR(100),
	 COLUMNS_NAME VARCHAR(100),
	 COLUMNS_VISIBLE CHAR(1),
	 COLUMNS_ISKEY CHAR(1),
	 COLUMNS_SORT VARCHAR(100)
	)
	*/
	--exec P_ZehuaSavexml 'db_station_total','D:\01.xml'
	IF EXISTS (SELECT * FROM SYSOBJECTS WHERE name = 'P_ZehuaSavexml')
	DROP PROC P_ZehuaSavexml
	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)
	IF OBJECT_ID('##t','U') IS null
	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=''1'' '
	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 '</'+@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=''1'' '
	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 '</'+@TableCodeS+'>'
	 union all select '</ZehuaTableInfoXml>'
	end
	
	--exec('master..xp_cmdshell ''bcp ##t out "" /P"" /c''')
	SELECT * FROM ##T
	go
试试其它关键字
　导出xm　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)