利用SQL Server存储过程读数据写文件

下面为您介绍的这个SQL Server存储过程，实现功能是将表内每两人之间相互通信内容区分开来，并分别写入文件，希望对您学习SQL Server存储过程方面能有所帮助。

–主过程（查找数据，并分类写入文件）

CREATE PROC creatFileByNameProc  
@filepath   varchar(128)  
as   
begin   
declare  
@fulFileName nvarchar(256),  
@content nvarchar(2000),  
@root nvarchar(64),  
@str2 nvarchar(64),  
@str3 nvarchar(64),  
@target nvarchar(64),  
@str5 nvarchar(64),  
@str6 nvarchar(64),  
@str7 nvarchar(64),  
@str8 nvarchar(64)

–文件是否存在的判断参数

declare @isExist int, @filename1 nvarchar(256),@filename2 nvarchar(256)

–文件操作参数

declare   @obj   int   
exec   sp_oacreate   'Scripting.FileSystemObject',@obj   out   
 
Declare MyCursor Cursor Scroll  
      For Select [1],[2],[3],[4],[5],[6],[7],[8] From dbo.[1111] order by [7]  
Open MyCursor  
 
 
FETCH first from MyCursor into @root,@str2,@str3,@target,@str5,@str6,@str7,@str8  
while @@fetch_status=0 
Begin  
            set @content= @root+'   '+@str2+'   '+@str3+'   '+@target+'   '+@str5+'   '+@str6+'   '+@str7+'   '+@str8  
--print @content  
            set @filename1= @target+'_'+ @root+'.txt'   
            set @filename2= @root+'_'+@target+'.txt'   
            set @isExist=   dbo.[FileExist]( @filepath +'\' , @filename1)  
--- print @isExist  
             if(@isExist=1)  
                begin  
                  set @fulFileName=@filepath+'\'+@filename1  
--print @fulFileName+'---1111111'  
                  exec   p_movefile   @fulFileName,@content,@obj  
          end   
             else  
                begin  
                  set @fulFileName=@filepath+'\'+@filename2  
--print @fulFileName+'---22222'  
                  exec   p_movefile @fulFileName,@content,@obj   
                 end               
 
FETCH next from MyCursor into @root,@str2,@str3,@target,@str5,@str6,@str7,@str8  
END  
CLOSE MyCursor  
DEALLOCATE MyCursor  
end

–判断文件是否存在的函数

create function dbo.FileExist(  
@filePath nvarchar(600),  
@fileName nvarchar(400)  
) returns int  
as  
begin  
 
declare @result int  
declare @sql nvarchar(1000)  
set @sql=@filePath+@fileName  
 
exec master.dbo.xp_fileexist @sql,@result output   
return @result  
end

–文件不存在，创建文件，写入内容；文件存在，追加内容

create   proc   p_movefile     
@filename   varchar(1000),--要操作的文本文件名     
@text   varchar(8000),   --要写入的内容   
@obj int   
as     
begin  
 
declare   @err   int,@src   varchar(255),@desc   varchar(255)     
      
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   错误描述  
 
end