1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Public Function recordSetItems(ByVal ls_recordsetName As String, ByVal li_recordIndex As Integer, ByVal li_valeur As Integer) As String
' fonction pour rechercher une information dans un recordset par son attribut
Dim sXMLReader As New StringReader(xmlRecordset(ls_recordsetName))
Dim doc As XmlDocument = New XmlDocument()
doc.Load(sXMLReader)
Dim XpathRequest As String = "/recordset/record['" & li_recordIndex & "']/field['" & li_valeur & "']"
Dim oNode As XmlNode = doc.SelectSingleNode(XpathRequest)
'Teste si l'attribut à été trouvé
Try
recordSetItems = oNode.InnerXml
Catch ex As Exception
recordSetItems = ex.Message
End Try
End Function |