Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- declare @File varchar(255) = 'C:\Nvaision\ra215\Test\answ_'+replace(replace(right(convert(varchar(16),getdate(),120),11),' ','_'),':','')+'.xml'
- declare @OLE int, @FileID int
- declare @xmlF xml
- set @xmlF = (select [name] Name, getdate() t from sys.databases a for xml raw, root('Bases'))
- exec sp_OACreate 'Scripting.FileSystemObject', @OLE OUT
- exec sp_OAMethod @OLE, 'OpenTextFile', @FileID OUT, @File, 2, 1
- exec sp_OAMethod @FileID, 'WriteLine', Null, '<?xml version="1.0" encoding="windows-1251" standalone="yes"?>
- '
- exec sp_OAMethod @FileID, 'WriteLine', Null, @xmlF
- exec sp_OADestroy @FileID
- exec sp_OADestroy @OLE
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement