请问在sqlserver中如何使用操作系统的文件?如何读写文件?



DECLARE   @object   int  
  DECLARE   @hr   int  
  DECLARE   @src   varchar(255),   @desc   varchar(255)  
  Declare   @tmp   int  
  declare   @msg   varchar(3000)  
   
  SET   @msg='Hello.   MS   SQL   Server   2000.   I   Love   you!!!'       --這字串將會被寫到SQL   Server的安裝目錄下的Nipsan.Txt文件里面  
   
  /*     取得SQL   Server的安裝路徑*/  
  declare   @strPath     nvarchar(512)  
  Exec   sp_MSGet_Setup_paths   @strPath   OUTPUT  
  Set   @strPath=@strPath+'/Nipsan.Txt'       --組成文件名  
     
   
  --創建Scripting組件實例  
  EXEC   @hr   =   sp_OACreate   'Scripting.FileSystemObject',   @object   OUT  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object,   @src   OUT,   @desc   OUT    
        SELECT   hr=convert(varbinary(4),@hr),  
Source=@src,   Description=@desc  
          RETURN  
  END  
   
  --創建文件  
  EXEC   @hr   =   sp_OAMethod   @object,   'CreateTextFile',   @tmp   OUTPUT   ,   @strPath  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object  
          RETURN  
  END  
  --把@msg寫到文件里面去  
  EXEC   @hr   =   sp_OAMethod   @tmp,   'Write',NULL,   @msg  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object  
          RETURN  
  END  
  --關閉文件  
  EXEC   @hr   =   sp_OAMethod   @tmp,   'Close',NULL  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object  
          RETURN  
  END  
  -----------寫文件操作Demo完成---------------------------------------------------------------  
   
  --打開文件  
  EXEC   @hr   =   sp_OAMethod   @object,   'OpenTextFile',   @tmp   OUTPUT   ,@strPath  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object  
          RETURN  
  END  
   
  SET   @msg=''  
  --讀文件  
  EXEC   @hr   =   sp_OAMethod   @tmp,   'Read',   @msg   OUT,3000  
  IF   @hr   <>   0  
  BEGIN  
        EXEC   sp_OAGetErrorInfo   @object  
          RETURN  
  END  
  -----讀文件操作Demo完成  
   
   
  SELECT   @msg   AS   RESULT  

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
DECLARE @Object int; DECLARE @HR int; DECLARE @Property nvarchar(255); DECLARE @Return nvarchar(255); DECLARE @Source nvarchar(255), @Desc nvarchar(255); DECLARE @httpStatus int; DECLARE @response varchar(8000); --创建 OLE 对象的实例 EXEC @HR = sp_OACreate N'MSXML2.XMLHTTP.6.0',@Object OUT; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('Error Creating COM Component 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO END_ROUTINE END BEGIN --Open EXEC @HR = sp_OAMethod @Object,N'open',Null,'GET','http://localhost:1728/HttpServer/submit.aspx',FALSE; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('Open 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --setRequestHeader EXEC @HR = sp_OAMethod @Object,N'setRequestHeader',Null,'Content-Type','text/xml'; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('setRequestHeader 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --send EXEC @HR = sp_OAMethod @Object,N'send',Null,''; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('send 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --readyState EXEC @HR = sp_OAGetProperty @Object,'readyState', @httpStatus OUT; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('readyState 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --verify status IF @httpStatus 4 BEGIN RAISERROR('readyState http status bad', 16,1) GOTO CLEANUP END --status EXEC @HR = sp_OAGetProperty @Object,'status', @httpStatus OUT; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('getstatus 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END --verify status IF @httpStatus 200 BEGIN Print Cast(@httpStatus As varchar) RAISERROR('Open http status bad', 16,1) GOTO CLEANUP END --responseText EXEC @HR = sp_OAGetProperty @Object, 'responseText', @response OUT IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; RAISERROR('responseText 0x%x, %s, %s',16,1, @HR, @Source, @Desc) GOTO CLEANUP END Print @response END CLEANUP: BEGIN EXEC @HR = sp_OADestroy @Object; IF @HR 0 BEGIN EXEC sp_OAGetErrorInfo @Object,@Source OUT,@Desc OUT; SELECT HR = convert(varbinary(4),@HR),Source=@Source,Description=@Desc; END END END_ROUTINE: RETURN; GO
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值