xml and .net

[pathostamuka]

i have data which i am receiving as xml files and i need to put the data in a database and then use it to create reports on a windows app using vb 2008 anyone who can help me ?????

[GeekByChoiCe]

sure, if you show us what you have done so far and where you stick on the code we sure will help you.

[pathostamuka]

Imports System.Xml


Public Class Form1
    Const xmlurl As String = "http://www.sharenet.co.za/feeds/mbsli/xmlfeed.php?user=mbsli&key=Gz4b85mC96wM&feed=2"




    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

        'If e.Action = TreeViewAction.ByMouse Then



        'MessageBox.Show(e.Node.FullPath, "smart")
        lb.Text = "You are here->" & " " & e.Node.FullPath
        'displaying the path of the selected node
        ' Label2.Text = "Current node selected:" & " " & e.Node.Text
        'displaying the selected node


        ' End If

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load






    End Sub
    Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
        Dim xreader As New XmlTextReader(xmlurl)

        While xreader.Read

            'If xreader.Name.Equals("FULLNAME") Then
            'Select xreader.NodeType

            '        Case XmlNodeType.Text

            If xreader.NodeType.Equals(XmlNodeType.Text) Then

                'If xreader.ValueType.IsClass Then

                '    Try


                lb.Items.Add(xreader.Value)

                '    Catch ex As Exception

                'End Try

            End If



            'End If



            'End Select

            'End If

        End While




    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Show()
    End Sub

    Private Sub ViewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewToolStripMenuItem.Click

    End Sub





    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End

    End Sub

    Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click

    End Sub

    Private Sub ShareListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShareListToolStripMenuItem.Click

        Dim xreader As New XmlTextReader(xmlurl)

        While xreader.Read

            'If xreader.Name.Equals("FULLNAME") Then
            'Select xreader.NodeType

            '        Case XmlNodeType.Text

            If xreader.NodeType.Equals(XmlNodeType.Text) Then

                'If xreader.ValueType.IsClass Then

                '    Try


                lb.Items.Add(xreader.Value)

                '    Catch ex As Exception

                'End Try

            End If



            'End If



            'End Select

            'End If

        End While




    End Sub

   
End Class