Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Linq
- Imports System.Xml.Linq
- Module Module2
- Dim pegawaiXML As XElement = XElement.Load("D:\StevenNathaniel\Proyek VB NET\LatihanXml6\LatihanXml6\LatihanXml6\bin\Debug\File2.xml")
- Sub Main()
- Dim pegawaiDoc = System.Xml.Linq.XDocument.Parse(pegawaiXML.ToString())
- Dim pegawaiA = From table In pegawaiDoc...<Table> Select table
- For Each table In pegawaiA
- Console.WriteLine("ID Pegawai {0}", table.<idpegawai>.Value)
- Console.WriteLine("Nama Pegawai {0}", table.<namapegawai>.Value)
- Next
- Console.ReadLine()
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement