Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: TreeView1.Nodes.Add
Autor: Schili
Datum: 25.09.07 15:11
hier nochmal mein Code!Bitte um hilfe   Try con.Open() Dim cmd As New SqlCommand("SELECT Project.Project_id, Project.Name FROM Project INNER JOIN Site ON Project.Site_id = Site.Site_id INNER JOIN [User] ON Site.Site_id = [User].Site_id WHERE ([User].name = @name)", con) cmd.Parameters.AddWithValue("@Name", Label2.Text) da.SelectCommand = cmd 'Schleife mydatareader = cmd.ExecuteReader() 'Für While mydatareader.Read ' Projekt_id = CInt(mydatareader(0)) ' Projekt = CStr(mydatareader.Item(1)) ' tn = New TreeNode(Projekt) 'ParentNode TreeView1.Nodes.Add(tn) ' con2.Open() Dim cmd2 As New SqlCommand("SELECT Build.Build_id ,Build.Name FROM Build INNER JOIN Project ON Build.Project_id = Project.Project_id WHERE(Project.project_id = " & Projekt_id & ")", con2) da2.SelectCommand = cmd2 'Schleife Dim tn2 As TreeNode 'Für mydatareader2 = cmd2.ExecuteReader ' While mydatareader2.Read ' Build_id = CInt(mydatareader(0)) ' Build = CStr(mydatareader2.Item(1)) ' tn2 = New TreeNode(Build) 'ChildNode (Build) tn.ChildNodes.Add(tn2) ' con3.Open() Dim cmd3 As New SqlCommand("SELECT [File].File_id, [File].Name FROM Build INNER JOIN [File] ON Build.Build_id = [File].Build_id WHERE(Build.Build_id = " & Build_id & ")", con3) da3.SelectCommand = cmd3 'Schleife Dim tn3 As TreeNode 'Für mydatareader3 = cmd3.ExecuteReader ' While mydatareader3.Read ' file_id = CInt(mydatareader2(0)) ' File = CStr(mydatareader3.Item(1)) ' tn3 = New TreeNode(File) 'ChildNode (File) tn2.ChildNodes.Add(tn3) ' con4.Open() Dim cmd4 As New SqlCommand("SELECT Language.Language_id, Language.Name FROM [File] INNER JOIN Language ON [File].Language_id = Language.Language_id WHERE ([File].File_id = " & file_id & ")", con4) da4.SelectCommand = cmd4 'Schleife Dim tn4 As TreeNode 'Für mydatareader4 = cmd4.ExecuteReader ' While mydatareader4.Read ' Language = CStr(mydatareader4.Item(1)) ' tn4 = New TreeNode(Language) 'Childnode (Language) tn3.ChildNodes.Add(tn4) ' End While End While End While con2.Close() con3.Close() con4.Close() End While Catch ex As Exception MsgBox(ex.Message) Finally End Try End Sub

TreeView1.Nodes.Add	1.453	Schili	20.09.07 10:04
Re: TreeView1.Nodes.Add	737	Maywood	20.09.07 14:58
Re: TreeView1.Nodes.Add	758	Fabian Stern	20.09.07 16:26
Re: TreeView1.Nodes.Add	771	Schili	24.09.07 10:09
Re: TreeView1.Nodes.Add	786	Schili	24.09.07 13:27
Re: TreeView1.Nodes.Add	681	Schili	25.09.07 11:05
Re: TreeView1.Nodes.Add	691	Schili	25.09.07 15:11
Re: TreeView1.Nodes.Add	721	Drapondur	25.09.07 15:22
Re: TreeView1.Nodes.Add	742	DaveS	25.09.07 15:23
Re: TreeView1.Nodes.Add	756	Maywood	25.09.07 16:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen