将表/查询存储为标准的XML文件

王朝other·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

/*--存为XML

将表/查询存储为标准的XML文件

--*/

/*--调用示例

--用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]

GO

create 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='+@@servername

exec @err=sp_oacreate 'adodb.recordset',@obj out

if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'open',null,@sql,@constr

if @err<>0 goto lberr

set @sql='del '+@fname

exec master..xp_cmdshell @sql,no_output

exec @err=sp_oamethod @obj,'save',null,@fname,1

if @err<>0 goto lberr

exec @err=sp_oadestroy @obj

return

lberr:

exec sp_oageterrorinfo 0,@src out,@desc out

select cast(@err as varbinary(4)) as 错误号

,@src as 错误源,@desc as 错误描述

go

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航