[FogBugz #114] Optimisation code pour creation XML cSqlDAO #176
Loading…
Reference in New Issue
There is no content yet.
Delete Branch "%!s(<nil>)"
Deleting a branch is permanent. Although the deleted branch may exist for a short time before cleaning up, in most cases it CANNOT be undone. Continue?
Assigned To: CLOSED
Project: CAISSE
Area: awcaisse
Category: Fonctionnalité
Priority: A fixer impérativement
Event ID: 610
Date: 2013-07-11T13:46:59Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
Public Shared Function msExecuteXml(ByVal sql As String, Optional ByVal nomTable As String = "Table") As XmlDocument
Dim xml As New XmlDocument()
Using reader As IDataReader = cDatabase.psInstance.mExecuteReader(sql)
Dim XmlFCount As Integer = reader.FieldCount
Dim XmlRoot As XmlElement = xml.CreateElement("root")
Dim XmlTable As XmlElement = xml.CreateElement(nomTable)
Dim XmlRow As XmlElement
Dim XmlAtr As XmlAttribute
Dim nRecTot As Integer = 0
XmlRow = xml.CreateElement("row")
For i As Integer = 0 To XmlFCount - 1
XmlAtr = xml.CreateAttribute(reader.GetName(i))
XmlAtr.Value = ""
XmlRow.Attributes.Append(XmlAtr)
Next
While reader.Read()
Dim XmlRow2 As XmlElement = XmlRow
For i As Integer = 0 To XmlFCount - 1
If Not reader.IsDBNull(i) Then
XmlRow2.Attributes(i).Value = Convert.ToString(reader.GetValue(i)) ' reader.GetValue(i).ToString
End If
Next
XmlTable.AppendChild(XmlRow2)
nRecTot += 1
End While
'While reader.Read()
' XmlRow = xml.CreateElement("row")
' For i As Integer = 0 To XmlFCount - 1
' XmlAtr = xml.CreateAttribute(reader.GetName(i))
' Dim value As Object = reader.GetValue(i)
' XmlAtr.Value = value.ToString()
' XmlRow.Attributes.Append(XmlAtr)
' Next
' XmlTable.AppendChild(XmlRow)
' nRecTot += 1
'End While
XmlRoot.AppendChild(XmlTable)
xml.AppendChild(XmlRoot)
nRecTot = nRecTot
End Using
Return xml
End Function
Event ID: 599
Date: 2013-07-02T13:15:08Z
Person: Frederik Benoist
Description: Modifié par Frederik Benoist
Event ID: 498
Date: 2013-03-18T16:47:22Z
Person: Frederik Benoist
Description: Fermé par Frederik Benoist
Event ID: 497
Date: 2013-03-18T16:47:21Z
Person: Frederik Benoist
Description: Resolved (Implemented) and assigned to Frederik Benoist by Frederik Benoist
C:\projets\DotSoft\CaisseAuto\bSqlDao\cSqlDao.vb
XML plutôt serialisé ==> pas possilble
Event ID: 469
Date: 2013-03-11T07:03:49Z
Person: Frederik Benoist
Description: Attribué à Frederik Benoist par Frederik Benoist
Event ID: 468
Date: 2013-03-11T07:03:49Z
Person: Frederik Benoist
Description: Ouvert par Frederik Benoist