Сохранить значение текстовой переменной в файле |
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)