27,581
社区成员
发帖
与我相关
我的任务
分享请问如何将执行结果保存到文件中？
有个函数（fn），返回一串字符串；有个存储过程（sp）调用这个函数多次。我想在存储过程中将函数（fn）返回的字符串添加到某个文件中，如文本文件，该如何解决？
...全文
请发表友善的回复…
发表回复
zjcxc 2004-08-31
- 打赏
- 举报
--我知道写文件是这样写的,不明白楼主的意思.
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
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
