LISTING 7: VB Code for Creating Temporary Tables

Dim xbl As SQLXMLBulkLoad

'Create the XML Bulk Load object.

Set xbl = New SQLXMLBulkLoad

' Set up the connection to the database.

xbl.ConnectionString = "provider=SQLOLEDB;Data 
Source=someSQLdb;database=Test;uid=sa;pwd="

' Set a log file for errors.
   
xbl.ErrorLogFile = ".\BulkLoadErrors.log"

' Run the Bulk Load.

xbl.SchemaGen = True
xbl.Execute "mappingschema.xdr", "data.xml"