用SQL在文本文件中追加数据

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

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_movefile]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[p_movefile]

GO

/*--在文本文件中追加数据

在文本文件中追加数据

如果文件不存在,将创建文件

--邹建 2004.08(引用请保留此信息)--*/

/*--调用示例

exec p_movefile 'c:\aa.txt','测试写入'

--*/

create proc p_movefile

@filename varchar(1000),--要操作的文本文件名

@text varchar(8000) --要写入的内容

as

declare @err int,@src varchar(255),@desc varchar(255)

declare @obj int

exec @err=sp_oacreate 'Scripting.FileSystemObject',@obj out

if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'OpenTextFile',@obj out,@filename,8,1

if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'WriteLine',null,@text

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- 王朝網路 版權所有 導航