/*--存為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]
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