Mazzotti: Creata pagina con ' `Dim FileValid set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0") objBL.ConnectionString = "Provider=sqloledb;Server=(local)\PAPER;Database=PAPER;integrated ...'`


2012-11-17T09:07:31Z
Creata pagina con '<code vb> Dim FileValid  set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0") objBL.ConnectionString = "Provider=sqloledb;Server=(local)\PAPER;Database=PAPER;integrated ...'
Nuova pagina
<code vb>

Dim FileValid



set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0")

objBL.ConnectionString = "Provider=sqloledb;Server=(local)\PAPER;Database=PAPER;integrated security=SSPI;"

objBL.ErrorLogFile = "error.log"



'Validate the data file prior to bulkload

Dim sOutput 

sOutput = ValidateFile("volumi.xml", "", "mapping.xml")

WScript.Echo sOutput



If FileValid Then

   ' Check constraints and initiate transaction (if needed)

   ' objBL.CheckConstraints = True

   ' objBL.Transaction=True

  'Execute XML bulkload using file.

  objBL.Execute "mapping.xml", "volumi.xml"

  set objBL=Nothing

End If



Function ValidateFile(strXmlFile,strUrn,strXsdFile)

    

   ' Create a schema cache and add SampleSchema.xml to it.

   Dim xs, fso, sAppPath

   Set fso = CreateObject("Scripting.FileSystemObject") 

   Set xs = CreateObject("MSXML2.XMLSchemaCache.6.0")

   sAppPath = fso.GetFolder(".") 

   xs.Add strUrn, sAppPath & "\" & strXsdFile



   ' Create an XML DOMDocument object.

   Dim xd 

   Set xd = CreateObject("MSXML2.DOMDocument.6.0")



   ' Assign the schema cache to the DOM document.

   ' schemas collection.

   Set xd.schemas = xs



   ' Load XML document as DOM document.

   xd.async = False

   xd.Load sAppPath & "\" & strXmlFile



   ' Return validation results in message to the user.

   If xd.parseError.errorCode <> 0 Then

        ValidateFile = "Validation failed on " & _

             strXmlFile & vbCrLf & _

             "=====================" & vbCrLf & _

             "Reason: " & xd.parseError.reason & _

             vbCrLf & "Source: " & _

             xd.parseError.srcText & _

             vbCrLf & "Line: " & _

             xd.parseError.Line & vbCrLf

             FileValid = False

    Else

        ValidateFile = "Validation succeeded for " & _

             strXmlFile & vbCrLf & _

             "======================" & _

             vbCrLf & "Contents to be bulkloaded" & vbCrLf

             FileValid = True

    End If

End Function

</code>

Progetti:CRCS-paper/MigrazioneVolumi/Script - Cronologia

Mazzotti: Creata pagina con ' Dim FileValid set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0") objBL.ConnectionString = "Provider=sqloledb;Server=(local)\PAPER;Database=PAPER;integrated ...'

Mazzotti: Creata pagina con ' `Dim FileValid set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0") objBL.ConnectionString = "Provider=sqloledb;Server=(local)\PAPER;Database=PAPER;integrated ...'`