频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

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

来源: 作者: 出处:巧巧读书 2007-10-09 进入讨论组

/*

'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测试通过

*/

正文:http://www.qqread.com/xml/f342118.html 更多文章 更多内容请看SQL Server 数据处理专题SQL Server 索引和查询专题SQL Server专题,或进入讨论组讨论。
收藏此文】【 】【打印】【关闭
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
讨论组问题推荐
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障XP系统修复
艺 术 与 设 计设计 流媒体 设计欣赏 边框
计 算 机 安 全ARP
站内频道文章精选
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章