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
[办公软件]在sybase中插入图片、PDF、文本文件 [办公软件]安装Sybase ASE [办公软件]linux指令大全(完整篇) [办公软件]Linux新手入门常用命令大全 [办公软件]在RedHat Linux 9里安装gaim0.80 [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法 [办公软件]Linux程序员必读:中文化与GB18030标准 [办公软件]linux指令大全 [办公软件]制作Linux启动盘的四种方法 [办公软件]Linux文件系统的反删除方法
|