TreeView aus Datenbank

31/03/2009 - 14:30 von Frank Bergmann | Report spam
Hallo,

ich komme hier nicht weiter. Was mache ich falsch und wer kann mir helfen.
Danke


Dim selStrAG As String = "SELECT * FROM Artikelgruppen WHERE
ArtikeluntergruppenID=0"
Dim selStrAUG As String = "SELECT * FROM Artikelgruppen WHERE
ArtikeluntergruppenID>=1"
Dim cmdAG As New SqlCommand(selStrAG, con)
Dim da As New SqlDataAdapter(cmdAG)

Dim cmdAUG As New SqlCommand(selStrAUG, con)
Dim ds As New DataSet

Try
con.Open()
da.Fill(ds, "Artikelgruppen")
da = New SqlDataAdapter(cmdAUG)
da.Fill(ds, "Artikeluntergruppen")
con.Close()
ds.Relations.Add("Auswahl",
ds.Tables("Artikelgruppen").Columns("ArtikelgruppenID"),
ds.Tables("Artilkeluntergruppen").Columns("ArtikeluntergruppenID"))

Catch ex As Exception

End Try

Dim aTNParent, aTNChild As TreeNode
Dim dtAG As DataTable = ds.Tables("Artikelgruppen")
Dim dtAUG As DataTable = ds.Tables("Artikeluntergruppen")



TreeView1.Nodes.Clear()

For Each row As DataRow In ds.Tables("Artikelgruppen").Rows
aTNParent = TreeView1.Nodes.Add(row("Artikelgruppenbezeichnung"))
aTNParent.Tag = row("ArtikelgruppenID")

For Each aChildRow In row.GetChildRows("Auswahl")
aTNChild =
aTNParent.Nodes.Add(aChildRow("Artikelgruppenbezeichnung"))

Next
Next


Gruß
Frank Bergmann
 

Lesen sie die antworten

#1 Armin Zingler
31/03/2009 - 14:48 | Warnen spam
"Frank Bergmann" schrieb
Hallo,

ich komme hier nicht weiter. Was mache ich falsch und wer kann mir helfen.



Du hast vergessen, uns mitzuteilen, was das Problem ist. Am Code ist auf den
ersten Blick nichts zu erkennen. Außer, dass du Option Strict einschalten
solltest, falls sich der Code kompilieren làsst.


Armin

Ähnliche fragen