用SQL在文本文件中追加数据_成都软件开发公司

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

作者：zhaozj
发表时间：2020-12-23 10:35
来源：未知

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) --要写入的内容asdeclare @err int,@src varchar(255),@desc varchar(255)declare @obj int

exec @err=sp_oacreate 'Scripting.FileSystemObject',@obj outif @err<>0 goto lberr

exec @err=sp_oamethod @obj,'OpenTextFile',@obj out,@filename,8,1if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'WriteLine',null,@textif @err<>0 goto lberr

exec @err=sp_oadestroy @objreturn

lberr: exec sp_oageterrorinfo 0,@src out,@desc out select cast(@err as varbinary(4)) as 错误号 ,@src as 错误源,@desc as 错误描述go