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

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

创新互联建站是一家专注于网站建设、做网站与策划设计,白城网站建设哪家好?创新互联建站做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:白城等地区。白城做网站价格咨询:028-86922220

--主过程(查找数据,并分类写入文件)

 
 
 
  1. CREATE PROC creatFileByNameProc  
  2. @filepath   varchar(128)  
  3. as   
  4. begin   
  5. declare  
  6. @fulFileName nvarchar(256),  
  7. @content nvarchar(2000),  
  8. @root nvarchar(64),  
  9. @str2 nvarchar(64),  
  10. @str3 nvarchar(64),  
  11. @target nvarchar(64),  
  12. @str5 nvarchar(64),  
  13. @str6 nvarchar(64),  
  14. @str7 nvarchar(64),  
  15. @str8 nvarchar(64) 

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

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

--文件操作参数

 
 
 
  1. declare   @obj   int   
  2. exec   sp_oacreate   'Scripting.FileSystemObject',@obj   out   
  3.  
  4. Declare MyCursor Cursor Scroll  
  5.       For Select [1],[2],[3],[4],[5],[6],[7],[8] From dbo.[1111] order by [7]  
  6. Open MyCursor  
  7.  
  8.  
  9. FETCH first from MyCursor into @root,@str2,@str3,@target,@str5,@str6,@str7,@str8  
  10. while @@fetch_status=0 
  11. Begin  
  12.             set @content= @root+'   '+@str2+'   '+@str3+'   '+@target+'   '+@str5+'   '+@str6+'   '+@str7+'   '+@str8  
  13. --print @content  
  14.             set @filename1= @target+'_'+ @root+'.txt'   
  15.             set @filename2= @root+'_'+@target+'.txt'   
  16.             set @isExist=   dbo.[FileExist]( @filepath +'\' , @filename1)  
  17. --- print @isExist  
  18.              if(@isExist=1)  
  19.                 begin  
  20.                   set @fulFileName=@filepath+'\'+@filename1  
  21. --print @fulFileName+'---1111111'  
  22.                   exec   p_movefile   @fulFileName,@content,@obj  
  23.           end   
  24.              else  
  25.                 begin  
  26.                   set @fulFileName=@filepath+'\'+@filename2  
  27. --print @fulFileName+'---22222'  
  28.                   exec   p_movefile @fulFileName,@content,@obj   
  29.                  end               
  30.  
  31. FETCH next from MyCursor into @root,@str2,@str3,@target,@str5,@str6,@str7,@str8  
  32. END  
  33. CLOSE MyCursor  
  34. DEALLOCATE MyCursor  
  35. end  

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

 
 
 
  1. create function dbo.FileExist(  
  2. @filePath nvarchar(600),  
  3. @fileName nvarchar(400)  
  4. ) returns int  
  5. as  
  6. begin  
  7.  
  8. declare @result int  
  9. declare @sql nvarchar(1000)  
  10. set @sql=@filePath+@fileName  
  11.  
  12. exec master.dbo.xp_fileexist @sql,@result output   
  13. return @result  
  14. end  

--文件不存在,创建文件,写入内容;文件存在,追加内容

 
 
 
  1. create   proc   p_movefile     
  2. @filename   varchar(1000),--要操作的文本文件名     
  3. @text   varchar(8000),   --要写入的内容   
  4. @obj int   
  5. as     
  6. begin  
  7.  
  8. declare   @err   int,@src   varchar(255),@desc   varchar(255)     
  9.       
  10. exec   @err=sp_oamethod   @obj,'OpenTextFile',@obj   out,@filename,8,1     
  11. if   @err<>0   goto   lberr     
  12.       
  13. exec   @err=sp_oamethod   @obj,'WriteLine',null,@text     
  14. if   @err<>0   goto   lberr     
  15.       
  16. exec   @err=sp_oadestroy   @obj     
  17. return     
  18.       
  19. lberr:     
  20. exec   sp_oageterrorinfo   0,@src   out,@desc   out     
  21. select   cast(@err   as   varbinary(4))   as   错误号     
  22. ,@src   as   错误源,@desc   as   错误描述  
  23.  
  24. end   

--执行语句。(由于没有进行文件夹是否存在的处理,执行前需要指定好已存在路径)

 
 
 
  1. exec creatFileByNameProc 'E:\aa' 

本文题目:利用SQLServer存储过程读数据写文件
链接URL:http://www.shufengxianlan.com/qtweb/news32/409132.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联