根据查询结果,生成XML文件 -张志
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 综合其它


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

发表时间:2006/9/13 评论(0) 浏览(6206)  评论 | 加入收藏 | 复制
   
摘 要:根据查询结果,生成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文件
**********************************************************************/

/*
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=&

Access软件网交流QQ群(群号:198465573)
 
 相关文章
使用 access 2003 对象模型的 XML 功能  【竹笛  2004/12/16】
将access数据转换为XML格式  【umvsoft整理  2008/6/18】
【译文】如何输出报表到XML文件  【周芳  2014/1/27】
【Access文章】将数据库中的对象导出为XML  【缪炜  2014/5/23】
【Access小品】半步崩拳--导出自定义格式的XML文件  【煮江品茶  2015/1/22】
常见问答
技术分类
相关资源
文章搜索
关于作者

张志

文章分类

文章存档

友情链接