--©Drkb v.3(2007): <a href="http://www.drkb.ru
" title="www.drkb.ru
">www.drkb.ru
</a>
 Declare
  @Stream int,
  @Buffer varbinary(8000),
  @HR int
 Exec @HR = sp_OACreate 'ADODB.Stream',@Stream OUT
 Exec @HR = sp_OASetProperty @Stream,'Type',1
 Exec @HR = sp_OAMethod @Stream,'Open'
 Set @Buffer = cast(@MyVariable as varbinary(8000))
 Exec @HR = sp_OAMethod @Stream,'Write',null, @Buffer
 Exec @HR = sp_OAMethod @Stream, 'SaveToFile',Null,'c:\MyFile.txt',2
 Exec @HR = sp_OAMethod @Stream, 'Close'
 Exec @HR = sp_OADestroy @Stream