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 ?????
pathostamuka 0 Newbie Poster
GeekByChoiCe 152 Practically a Master Poster Featured Poster
sure, if you show us what you have done so far and where you stick on the code we sure will help you.
pathostamuka 0 Newbie Poster
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 Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.