本文共 1358 字,大约阅读时间需要 4 分钟。
/*--存为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)='' --密码asdeclare @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 else set @constr='Provider=SQLOLEDB.1;Persist Security Info=True;' +'Userexec @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
exec master..xp_cmdshell @sql,no_outputexec @err=sp_oamethod @obj,'save',null,@fname,1if @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 错误描述goTrackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=20086