Hello all , I have developed a webservice and are currently developing a VB6 app to call the webservice functions , I have succesfully binded to most functions execpt the batch function?
I am now having a problem sending a dataset / xml / recordset to this batch function. I have attempted using various methods of the DOMDocument ie validating the shema etc.. this still fails. I am using MSXML2 to parse this xml file into a dataset/xml and send it to the service, This example below seems about the closest to what is required.
Dim xmlschema As MSXML2.XMLSchemaCache40
Dim xmldom As MSXML2.DOMDocument40
Set xmlschema = New MSXML2.XMLSchemaCache40
Set xmldom = New MSXML2.DOMDocument40
xmldom.validateOnParse = True
xmlschema.validateOnLoad = True
xmlschema.Add "urn:SEND_SM_BATCH_SCHEMA", App.Path & "\SEND_SM_BATCH.xsd"
xmldom.validateOnParse = True
Set xmldom.schemas = xmlschema
xmldom.async = False
xmldom.Load App.Path & "\SEND_SM_BATCH.xml"
If xmldom.parseError.errorCode <> 0 Then
MsgBox xmldom.parseError.errorCode & " " & _
xmldom.parseError.reason
End If
XMLCLASS.SEND_SM_BATCH(xmldom)
The XML file is a straight forward XML file as is the schema
these files work if I send it from VB.NET as a dataset using the InferSchema but I seem to be missing something as far as XML structure / building technics in vb6
Please could anyone advise me in the correct direction or method to follow in achiving this
Thanks in advance
I am now having a problem sending a dataset / xml / recordset to this batch function. I have attempted using various methods of the DOMDocument ie validating the shema etc.. this still fails. I am using MSXML2 to parse this xml file into a dataset/xml and send it to the service, This example below seems about the closest to what is required.
Dim xmlschema As MSXML2.XMLSchemaCache40
Dim xmldom As MSXML2.DOMDocument40
Set xmlschema = New MSXML2.XMLSchemaCache40
Set xmldom = New MSXML2.DOMDocument40
xmldom.validateOnParse = True
xmlschema.validateOnLoad = True
xmlschema.Add "urn:SEND_SM_BATCH_SCHEMA", App.Path & "\SEND_SM_BATCH.xsd"
xmldom.validateOnParse = True
Set xmldom.schemas = xmlschema
xmldom.async = False
xmldom.Load App.Path & "\SEND_SM_BATCH.xml"
If xmldom.parseError.errorCode <> 0 Then
MsgBox xmldom.parseError.errorCode & " " & _
xmldom.parseError.reason
End If
XMLCLASS.SEND_SM_BATCH(xmldom)
The XML file is a straight forward XML file as is the schema
these files work if I send it from VB.NET as a dataset using the InferSchema but I seem to be missing something as far as XML structure / building technics in vb6
Please could anyone advise me in the correct direction or method to follow in achiving this
Thanks in advance
