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

2016-01-29 16:27 165 1 收藏

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

【 tulaoshi.com - SQLServer 】

 

/*

'bcp' 不是内部或外部命令,也不是可运行的程序?

看看在C:Program FilesMicrosoft SQL Server80ToolsBinn里面有没有bcp.exe这个文件
然后看看path里面加C:Program FilesMicrosoft SQL Server80ToolsBinn这个目录没有.

右键我的电脑--属性--高级--环境变量--在系统变量中找到path--编辑

在变量值的最后加上:

C:Program FilesMicrosoft SQL Server80ToolsBINN

*/

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/sqlserver/)


/**********************************************************************
存储过程: 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 @i0
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 --计算主键的个数,表名

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/sqlserver/)

 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

<

来源:http://www.tulaoshi.com/n/20160129/1498616.html

延伸阅读
导入 XML 文件 问:如何将 XML 文件导入 SQL Server 2000? 答:您可以用三种方发将 XML 文件导入 SQL Server 2000。下面介绍这几种方法。 如果您想将文档的实体和属性提取到相关表中,那么将 XML 文件导入 SQL Server 的最快方法是使用 SQL Server 2000 Web Release (SQLXML) 3.0 Service Pack 1 (SP1) 中的 Bulk Load COM...
标签: Web开发
项目兼容需要生成一系列的XML文件,总结了下XML文件的生成基本方式 XmlTextWriter w = new XmlTextWriter("C:XML文件名.xml", Encoding.Unicode); //Encoding.Unicode为生成XML文件的编码格式,到时候合输出:?xml version="1.0" encoding="utf-16"? w.Formatting = Formatting.Indented; // 这个比较重要,这个属性说明xml文件里面的内容是...
近公司与一家供应商合作,要求把供应商的xml 数据导入到我公司的数据库中,以方便业务处理.我公司使用的是SQL SERVER 2005 数据库.查了一下帮助文件,很简单的写了个脚本,如下: SELECT * into #temp1 FROM OPENROWSET(    BULK 'D:
标签: Web开发
有两文件: objXML.asp:测试文件 clsXML.asp:vbs类文件 代码: objXML.asp %@ Language=VBScript % % Option Explicit % !--#INCLUDE FILE="clsXML.asp"-- % Dim objXML, strPath, str Set objXML = New clsXML strPath = Server.MapPath(".") & "New.xml" objXML.createFile strPath, "Root" 'Or If using an existing XML file: &#...
标签: SQLServer
导入 XML 文件 (Microsoft SQL Server 开发组供稿,questions@sqlmag.com) 问:如何将 XML 文件导入 SQL Server 2000? 答:您可以用三种方发将 XML 文件导入 SQL Server 2000。下面介绍这几种方法。 如果您想将文档的实体和属性提取到相关表中,那么将 XML 文件导入 SQL Server 的最快方法是使用 SQL Server 2000 Web Release ...

经验教程

703

收藏

94
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部