XML erzeugen für TreeView im Internet (DotNet)

23/03/2009 - 15:18 von Klaus | Report spam
Hallo,

ich versuche folgendes für mein Internet um eine XML Datei für eine TreeView
zu erzeugen:

Ich habe:
Artikelgruppe
Artikel
vorhandene Anzahl auf Lager

Tree View soll zeigen:

+ Artikelgruppe 1
Artikel xx. Anzahl auf Lager 5
usw.

Dazu mein Code:
Private Sub Befehl193_Click()

Dim rs As DAO.Recordset

Dim sql As String

Dim str As String



Dim rsU As DAO.Recordset

Dim sqlU As String

Dim strU As String



str = "<?xml version=" & Chr$(34) & "1.0" & Chr$(34) & " encoding=" &
Chr$(34) & "ISO-8859-1" & Chr$(34) & "?>" & vbCrLf

str = str & " <nodes>" & vbCrLf & vbCrLf



sql = "SELECT Artikelgruppe.Artikelgruppe from Artikelgruppe order by
Artikelgruppe"

sqlU = "SELECT Tabelle1.Artikel, Artikelgruppe.Artikelgruppe,
Count(Tabelle1.Artikel) AS [Anzahl von Artikel] FROM Tabelle1 INNER JOIN
(Berufe INNER JOIN Artikelgruppe ON Artikel.ID = Artikelgruppe.ID) ON
Tabelle1.Artikel = Berufe.Berufe GROUP BY Tabelle1.Artikel,
Artikelgruppe.Artikelgruppe, Tabelle1.[Internet gewünscht] HAVING
(((Tabelle1.[Internet gewünscht])=0)) ORDER BY Artikelgruppe.Artikelgruppe"

Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset) '



Do While Not rs.EOF

str = str & " <TreeNode " & "Text= " & Chr(34) &
Nz(rs![Artikelgruppe] & Chr(34) & " ></TreeNode>" & vbCrLf, vbNullString)



Set rsU = CurrentDb.OpenRecordset(sqlU, dbOpenDynaset)

Do While Not rsU.EOF



strU = strU & " <TreeNode Text= " & Chr(34) &
Nz(rsU![Artikel] & Chr(34) & "></TreeNode>" & vbCrLf, vbNullString)



rsU.MoveNext

Loop



rsU.Close

If Not rs Is Nothing Then Set rsU = Nothing



rs.MoveNext

Loop

rs.Close

If Not rs Is Nothing Then Set rs = Nothing



str = str & strU & " </nodes>" & vbCrLf



Open Path & "C:\web2\app_Data\AnzeigeBewerber.xml" For Output As #1

Print #1, str

Close #1



End Sub



Es zeigt folgendes an:



Artikelguppe 1

Artikelgruppe 2

Artikelgruppe 3

Artikel 1 Anzahl aus Lager x

Artikel 2 Anzahl aus Lager x

Artikel 3 Anzahl aus Lager x



Wie bekomme ich hin, dass sich die Artikel unter die Gruppen setzen?



Gruß Klaus
 

Lesen sie die antworten

#1 Stefan Hoffmann
23/03/2009 - 15:46 | Warnen spam
hallo Klaus,

Klaus schrieb:
ich versuche folgendes für mein Internet um eine XML Datei für eine TreeView


Will auch eins haben tun.

zu erzeugen:
str = "<?xml version=" & Chr$(34) & "1.0" & Chr$(34) & " encoding=" &
Chr$(34) & "ISO-8859-1" & Chr$(34) & "?>" & vbCrLf


Ihh, von Hand.

"XML mit Access 2003" von Mark Dörbandt auf www.donkarl.com unter AEK /
Downloadseiten.

Z.B.:

Public Sub ExportXml()

Dim dd As MSXML2.DOMDocument
Dim dn As MSXML2.IXMLDOMNode
Dim rs As DAO.Recordset

Set dd = New MSXML2.DOMDocument
Set rs = CurrentDb.OpenRecordset("cp_Account")

Set dd.documentElement = dd.createElement("RootElement")
Do While Not rs.EOF
Set dn = dd.createNode(1, "AccountName", "")
dn.Text = rs![AccountName]
dd.documentElement.appendChild dn
rs.MoveNext
Loop
rs.Close

Debug.Print CurrentProject.Path
Debug.Print dd.XML

' dd.Save CurrentProject.Path & "\feed.xml"

Set rs = Nothing
Set dd = Nothing

End Sub


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen