http://wiki.netsitech.com/index.php?action=history&feed=atom&title=Progetti%3ACRCS-paper%2FMigrazione_Utenti%2FScript
Progetti:CRCS-paper/Migrazione Utenti/Script - Cronologia
2026-05-08T04:32:35Z
Cronologia della pagina su questo sito
MediaWiki 1.34.4
http://wiki.netsitech.com/index.php?title=Progetti:CRCS-paper/Migrazione_Utenti/Script&diff=4402&oldid=prev
Mazzotti il 11:56, 3 dic 2012
2012-12-03T11:56:51Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="it">
<td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← Versione meno recente</td>
<td colspan="2" style="background-color: #fff; color: #222; text-align: center;">Versione delle 11:56, 3 dic 2012</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >Riga 1:</td>
<td colspan="2" class="diff-lineno">Riga 1:</td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><code <del class="diffchange diffchange-inline">vbs</del>></div></td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><code <ins class="diffchange diffchange-inline">vb</ins>></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Dim FileValid</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Dim FileValid</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Dim ConnectionString</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Dim ConnectionString</div></td></tr>
</table>
Mazzotti
http://wiki.netsitech.com/index.php?title=Progetti:CRCS-paper/Migrazione_Utenti/Script&diff=4401&oldid=prev
Mazzotti: Creata pagina con '<code vbs> Dim FileValid Dim ConnectionString ConnectionString = "Provider=sqloledb;Server=DBDVLP;Database=CARICESE;User ID=paper-admin;password=X4LT27aL" set objBL = CreateObj...'
2012-12-03T11:56:26Z
<p>Creata pagina con '<code vbs> Dim FileValid Dim ConnectionString ConnectionString = "Provider=sqloledb;Server=DBDVLP;Database=CARICESE;User ID=paper-admin;password=X4LT27aL" set objBL = CreateObj...'</p>
<p><b>Nuova pagina</b></p><div><code vbs><br />
Dim FileValid<br />
Dim ConnectionString<br />
<br />
ConnectionString = "Provider=sqloledb;Server=DBDVLP;Database=CARICESE;User ID=paper-admin;password=X4LT27aL"<br />
<br />
set objBL = CreateObject("SQLXMLBulkLoad.SQLXMLBulkload.4.0")<br />
objBL.ConnectionString = ConnectionString<br />
objBL.ErrorLogFile = "error.log"<br />
<br />
'Validate the data file prior to bulkload<br />
Dim sOutput <br />
sOutput = ValidateFile("utenti_caricese.xml", "", "mappingUtentiCARICESE.xml")<br />
WScript.Echo sOutput<br />
<br />
If FileValid Then<br />
' Check constraints and initiate transaction (if needed)<br />
' objBL.CheckConstraints = True<br />
' objBL.Transaction=True<br />
<br />
'Execute XML bulkload using file.<br />
objBL.Execute "mappingUtentiCARICESE.xml", "utenti_caricese.xml"<br />
<br />
set objBL=Nothing<br />
End If<br />
<br />
Function ValidateFile(strXmlFile,strUrn,strXsdFile)<br />
<br />
' Create a schema cache and add SampleSchema.xml to it.<br />
Dim xs, fso, sAppPath<br />
Set fso = CreateObject("Scripting.FileSystemObject") <br />
Set xs = CreateObject("MSXML2.XMLSchemaCache.6.0")<br />
sAppPath = fso.GetFolder(".") <br />
xs.Add strUrn, sAppPath & "\" & strXsdFile<br />
<br />
' Create an XML DOMDocument object.<br />
Dim xd <br />
Set xd = CreateObject("MSXML2.DOMDocument.6.0")<br />
<br />
' Assign the schema cache to the DOM document.<br />
' schemas collection.<br />
Set xd.schemas = xs<br />
<br />
' Load XML document as DOM document.<br />
xd.async = False<br />
xd.Load sAppPath & "\" & strXmlFile<br />
<br />
' Return validation results in message to the user.<br />
If xd.parseError.errorCode <> 0 Then<br />
ValidateFile = "Validation failed on " & _<br />
strXmlFile & vbCrLf & _<br />
"=====================" & vbCrLf & _<br />
"Reason: " & xd.parseError.reason & _<br />
vbCrLf & "Source: " & _<br />
xd.parseError.srcText & _<br />
vbCrLf & "Line: " & _<br />
xd.parseError.Line & vbCrLf<br />
FileValid = False<br />
Else<br />
ValidateFile = "Validation succeeded for " & _<br />
strXmlFile & vbCrLf & _<br />
"======================" & _<br />
vbCrLf & "Contents to be bulkloaded" & vbCrLf<br />
FileValid = True<br />
End If<br />
End Function<br />
</code></div>
Mazzotti