怎么将本地数据库中的数据转换成XML文件格式？

Question

/*--存为XML
将表/查询存储为标准的XML文件
--邹建 2003.12--*//*--调用示例
--用SQL用winows身份验证的情况
exec p_savexml @sql='地区资料',@fname='c:\地区资料.xml'--用指定的用户
exec p_savexml @sql='地区资料',@fname='c:\地区资料.xml',@userid='sa'
--*/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_savexml]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_savexml]
GOcreate proc p_savexml
@sql varchar(8000),--要保存的表/视图/SQL查询语句
@fname varchar(1000)='c:\tmp.xml',--保存的XML文件名
@userid varchar(50)='',--用户名,如果为nt验证方式,则为''
@password varchar(50)=''--密码
as
declare @err int,@src varchar(255),@desc varchar(255)
declare @obj int,@constr varchar(1000)
if isnull(@userid,'')=''
set @constr='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='
+db_name()+';Data Source='+@@servername
else
set @constr='Provider=SQLOLEDB.1;Persist Security Info=True;'
+'User ID='+@userid+';Password='+isnull(@password,'')
+';Initial Catalog='+db_name()+';Data Source='+@@servernameexec @err=sp_oacreate 'adodb.recordset',@obj out
if @err<>0 goto lberrexec @err=sp_oamethod @obj,'open',null,@sql,@constr
if @err<>0 goto lberrset @sql='del '+@fname
exec master..xp_cmdshell @sql,no_output
exec @err=sp_oamethod @obj,'save',null,@fname,1
if @err<>0 goto lberrexec @err=sp_oadestroy @obj
returnlberr:
exec sp_oageterrorinfo 0,@src out,@desc out
select cast(@err as varbinary(4)) as 错误号
,@src as 错误源,@desc as 错误描述
gocreate table tx(a int primary key,b varchar(200),c varchar(200))
insert into tx(a,b,c)values(1,'aaa','bbb')
insert into tx(a,b,c)values(2,'ccc','ddd')
insert into tx(a,b,c)values(3,'eee','fff')
insert into tx(a,b,c)values(4,'ggg','hhh')
insert into tx(a,b,c)values(5,'iii','jjj')
go--导出XML文件处理
create table ##t(re nvarchar(4000))
insert ##t
select re='<?xml version="1.0" encoding="gb2312"?>'
union all select '<table name="tx">'
union all
select space(4)+'<record a="'+cast(a as varchar)+'">
'+space(8)+'<b>'+isnull(b,'')+'</b>
'+space(8)+'<c>'+isnull(c,'')+'</c>
'+space(4)+'</record>'
from tx
union all select '</table>'--导出XML(文件名:c:\a.xml),注意参数大小写
exec master..xp_cmdshell 'bcp ##t out "c:\a.xml" /P"" /c'
go
Drop Table tx,##T