Сохранить значение текстовой переменной в файле

Previous  Top  Next

    
 

 

 

Code:

--©Drkb v.3(2007): www.drkb.ru

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

©Drkb::02848

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)