So you want to spit out some XML from SQL Server into a file, how can you do that? There are a couple of ways, I will show you how you can do it with SSIS. In the SSIS package you need an Execute SQL Task and a Script Task.
Let’s get started
First create and populate these two tables in your database
create table Artist (ArtistID int primary key not null,
ArtistName varchar(38))
go
create table Album(AlbumID int primary key not null,
ArtistID int not null,
AlbumName varchar(100) not null,
YearReleased smallint not null)
go
insert into Artist values(1,'Pink Floyd')
insert into Artist values(2,'Incubus')
insert into Artist values(3,'Prince')
insert into Album values(1,1,'Wish You Were Here',1975)
insert into Album values(2,1,'The Wall',1979)
insert into Album values(3,3,'Purple Rain',1984)
insert into Album values(4,3,'Lotusflow3r',2009)
insert into Album values(5,3,'1999',1982)
insert into Album values(6,2,'Morning View',2001)
insert into Album values(7,2,'Light Grenades',2006)
Now create this proc
create proc prMusicCollectionXML
as
declare @XmlOutput xml
set @XmlOutput = (select ArtistName,AlbumName,YearReleased from Album
join Artist on Album.ArtistID = Artist.ArtistID
FOR XML AUTO, ROOT('MusicCollection'), ELEMENTS)
select @XmlOutput
go
After executing the proc
exec prMusicCollectionXML
you will see the following output
<MusicCollection>
<Artist>
<ArtistName>Pink Floyd</ArtistName>
<Album>
<AlbumName>Wish You Were Here</AlbumName>
<YearReleased>1975</YearReleased>
</Album>
<Album>
<AlbumName>The Wall</AlbumName>
<YearReleased>1979</YearReleased>
</Album>
</Artist>
<Artist>
<ArtistName>Prince</ArtistName>
<Album>
<AlbumName>Purple Rain</AlbumName>
<YearReleased>1984</YearReleased>
</Album>
<Album>
<AlbumName>Lotusflow3r</AlbumName>
<YearReleased>2009</YearReleased>
</Album>
<Album>
<AlbumName>1999</AlbumName>
<YearReleased>1982</YearReleased>
</Album>
</Artist>
<Artist>
<ArtistName>Incubus</ArtistName>
<Album>
<AlbumName>Morning View</AlbumName>
<YearReleased>2001</YearReleased>
</Album>
<Album>
<AlbumName>Light Grenades</AlbumName>
<YearReleased>2006</YearReleased>
</Album>
</Artist>
</MusicCollection>
So far so good, so how do we dump that data into a file?
Create a new SSIS package add an ADO.NET Connection, name it AdventureWorksConnection
Drop an Execute SQL Task onto your control flow and modify the properties so it looks like this
On the add a result set by clicking on the add button, change the variable name to User::XMLOutput if it is not already like that
Note!!! In SSIS 2008 this variable should be already created otherwise it will fail
Now execute the package.
You will be greeted with the following message:
Error: 0xC00291E3 at Execute SQL Task, Execute SQL Task: The result binding name must be set to zero for full result set and XML results.
Task failed: Execute SQL Task
In order to fix that, change the Result Name property from NewresultName to 0, now run it again and it should execute successfully.
Our next step will be to write this XML to a file.
Add a Script Task to the package,double click the Script Task,click on script and type XMLOutput into the property of ReadWriteVariables. It should look like the image below
Click the Design Script button, this will open up a code window, replace all the code you see with this
' Microsoft SQL Server Integration Services Script Task
' Write scripts using Microsoft Visual Basic
' The ScriptMain class is the entry point of the Script Task.
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Public Class ScriptMain
Public Sub Main()
'
' Add your code here
'
Dim XMLString As String = " "
XMLString = Dts.Variables("XMLOutput").Value.ToString.Replace("<ROOT>", "").Replace("</ROOT>", "")
XMLString = "<?xml version=""1.0"" ?>" + XMLString
GenerateXmlFile("C:\MusicCollection.xml", XMLString)
End Sub
Public Sub GenerateXmlFile(ByVal filePath As String, ByVal fileContents As String)
Dim objStreamWriter As IO.StreamWriter
Try
objStreamWriter = New IO.StreamWriter(filePath)
objStreamWriter.Write(fileContents)
objStreamWriter.Close()
Catch Excep As Exception
MsgBox(Excep.Message)
End Try
Dts.TaskResult = Dts.Results.Success
End Sub
End Class
SSIS 2008 requires a code change
Here is what the code should look like if you are running SSIS 2008
' Microsoft SQL Server Integration Services Script Task
' Write scripts using Microsoft Visual Basic 2008.
' The ScriptMain is the entry point class of the script.
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
<System.AddIn.AddIn("ScriptMain", Version:="1.0", Publisher:="", Description:="")> _
<System.CLSCompliantAttribute(False)> _
Partial Public Class ScriptMain
Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase
Enum ScriptResults
Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success
Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure
End Enum
Public Sub Main()
'
' Add your code here
'
Dim XMLString As String = " "
XMLString = Dts.Variables("XMLOutput").Value.ToString.Replace("<ROOT>", "").Replace("</ROOT>", "")
XMLString = "<?xml version=""1.0"" ?>" + XMLString
GenerateXmlFile("C:\MusicCollection.xml", XMLString)
End Sub
Public Sub GenerateXmlFile(ByVal filePath As String, ByVal fileContents As String)
Dim objStreamWriter As IO.StreamWriter
Try
objStreamWriter = New IO.StreamWriter(filePath)
objStreamWriter.Write(fileContents)
objStreamWriter.Close()
Catch Excep As Exception
MsgBox(Excep.Message)
End Try
Dts.TaskResult = ScriptResults.Success
End Sub
End Class
There are a couple of things you need to know, the XML will be generated inside a
So now we are all done with this. It is time to run this package. Run the package and you should see that file has been created.