/*--存為xml
將表/查詢存儲(chǔ)為標(biāo)準(zhǔn)的xml文件
--*/
/*--調(diào)用示例
--用sql用winows身份驗(yàn)證的情況
exec p_savexml @sql='地區(qū)資料',@fname='c:/地區(qū)資料.xml'
--用指定的用戶
exec p_savexml @sql='地區(qū)資料',@fname='c:/地區(qū)資料.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查詢語(yǔ)句
@fname varchar(1000)='c:/tmp.xml', --保存的xml文件名
@userid varchar(50)='', --用戶名,如果為nt驗(yàn)證方式,則為''
@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='[email protected]@servername
else
set @constr='provider=sqloledb.1;persist security info=true;'
+'user id='[email protected]+';password='+isnull(@password,'')
+';initial catalog='+db_name()+';data source='[email protected]@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 '[email protected]
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 錯(cuò)誤號(hào)
,@src as 錯(cuò)誤源,@desc as 錯(cuò)誤描述
go
注冊(cè)會(huì)員，創(chuàng)建你的web開(kāi)發(fā)資料庫(kù)，
