MSXML no abre documento xml
Publicado por Fantasy (1 intervención) el 17/08/2011 17:22:01
Hola, resulta que estoy cargando un archivo xml para luego abrirlo y asignarle las variables a los text que estan dentro del archivo
este es el codigo vb.net visual stucio 2010 y estoy usando MsXML SP3
Dim xmlDocReq As New FreeThreadedDOMDocument40
Dim xmlDocPar As New FreeThreadedDOMDocument40
Dim xmlHttp As New ServerXMLHTTP
Dim xmlp As String
xmlDocReq.async = False
xmlDocReq.resolveExternals = False
xmlDocReq.setProperty("ServerHTTPRequest", True)
xmlp = "D:\Documents and Settings\Giuseppe\Mis documentos\Archivos\92353.xml"
If (Not String.IsNullOrEmpty(Trim(xmlp))) Then
Dim objDPS As New DPS
Dim dsInstitucion As DataSet
dsInstitucion = objDPS.obtener_nombre_institucion("2")
If (dsInstitucion Is Nothing) Then
Response.Write("<MANIFEST><catchError>Error de conectividad entre servidor web metlife y base de datos metlife.</catchError></MANIFEST>")
Else
Try
Dim objBsn As New PrimerPrecheck2
xmlDocPar.loadXML("D:\Documents and Settings\Giuseppe\Mis documentos\Archivos\92353.xml")
xmlDocReq.loadXML(objBsn.recuperaXMLPrimerPrecheck(xmlDocPar))
Response.Write(xmlDocReq.xml)
Catch ex As Exception
Response.Write("<MANIFEST><catchError>" + ex.Message + "</catchError></MANIFEST>")
End Try
End If
Else
Response.Write("XML Vacio.")
End If
****
EN el recuperaXMLPrimerPrecheck se va al siguiente metodo
Public Function recuperaXMLPrimerPrecheck(ByVal xmlDoc As MSXML2.DOMDocument) As String
Dim numeroProceso As String = xmlDoc.getElementsByTagName("nproceso").item(0).text
Dim folioDps As String = xmlDoc.getElementsByTagName("dps").item(0).text
Dim institucionFinanciera As String = xmlDoc.getElementsByTagName("inst_fin").item(0).text
Dim rutCliente As String = xmlDoc.getElementsByTagName("rut_clte").item(0).text
Dim paternoCliente As String = xmlDoc.getElementsByTagName("ap_clte").item(0).text
Dim maternoCliente As String = xmlDoc.getElementsByTagName("am_clte").item(0).text
Dim nombreCliente As String = xmlDoc.getElementsByTagName("nom_clte").item(0).text
Dim fechaNacimientoCliente As String = x
Dim xmld As New XmlDocument
y al rescatar el primer .text (numeroProceso ) me arroja el error error object reference not set to an instance of an object
Como puedo arreglar esto?
Gracias
este es el codigo vb.net visual stucio 2010 y estoy usando MsXML SP3
Dim xmlDocReq As New FreeThreadedDOMDocument40
Dim xmlDocPar As New FreeThreadedDOMDocument40
Dim xmlHttp As New ServerXMLHTTP
Dim xmlp As String
xmlDocReq.async = False
xmlDocReq.resolveExternals = False
xmlDocReq.setProperty("ServerHTTPRequest", True)
xmlp = "D:\Documents and Settings\Giuseppe\Mis documentos\Archivos\92353.xml"
If (Not String.IsNullOrEmpty(Trim(xmlp))) Then
Dim objDPS As New DPS
Dim dsInstitucion As DataSet
dsInstitucion = objDPS.obtener_nombre_institucion("2")
If (dsInstitucion Is Nothing) Then
Response.Write("<MANIFEST><catchError>Error de conectividad entre servidor web metlife y base de datos metlife.</catchError></MANIFEST>")
Else
Try
Dim objBsn As New PrimerPrecheck2
xmlDocPar.loadXML("D:\Documents and Settings\Giuseppe\Mis documentos\Archivos\92353.xml")
xmlDocReq.loadXML(objBsn.recuperaXMLPrimerPrecheck(xmlDocPar))
Response.Write(xmlDocReq.xml)
Catch ex As Exception
Response.Write("<MANIFEST><catchError>" + ex.Message + "</catchError></MANIFEST>")
End Try
End If
Else
Response.Write("XML Vacio.")
End If
****
EN el recuperaXMLPrimerPrecheck se va al siguiente metodo
Public Function recuperaXMLPrimerPrecheck(ByVal xmlDoc As MSXML2.DOMDocument) As String
Dim numeroProceso As String = xmlDoc.getElementsByTagName("nproceso").item(0).text
Dim folioDps As String = xmlDoc.getElementsByTagName("dps").item(0).text
Dim institucionFinanciera As String = xmlDoc.getElementsByTagName("inst_fin").item(0).text
Dim rutCliente As String = xmlDoc.getElementsByTagName("rut_clte").item(0).text
Dim paternoCliente As String = xmlDoc.getElementsByTagName("ap_clte").item(0).text
Dim maternoCliente As String = xmlDoc.getElementsByTagName("am_clte").item(0).text
Dim nombreCliente As String = xmlDoc.getElementsByTagName("nom_clte").item(0).text
Dim fechaNacimientoCliente As String = x
Dim xmld As New XmlDocument
y al rescatar el primer .text (numeroProceso ) me arroja el error error object reference not set to an instance of an object
Como puedo arreglar esto?
Gracias
Valora esta pregunta


0