Xml Dosyasından Kayıt Okuma

Arkadaşlar bu örneğimizde, hazır bulunan xml dosyamızdan, oluşturduğumuz textboxlara veri ve Picturebox ımıza resim çekeceğiz.
İlk önce yapmanız gereken Xml dosyanızı oluşturmak. Bunun için Microsoftun sitesinden xmlnotepad programından yararlanabilirsiniz.

Örnektede görüldüğü gibi, XmlReader metodu kullanarak bilgilerimizi xml dosyasından çekeceğiz...Bahadirsa

Şekil 1

Şekil 2

Şekil 3

Forma yazılacak kodlar:

Imports System.XML
Public Class Form1
Dim i As Integer = 0

Private Sub btnVeriAl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVeriAl.Click

i = i + 1
btnVeriAl.Text = "Kayıt İleri"

Dim reader As Xml.XmlReader = New System.Xml.XmlTextReader("bahadirsa_bilgi.xml")

While (reader.Read())

If i = 1 Then
If (reader.NodeType = XmlNodeType.Element) Then
If (reader.Name.Equals("id")) Then
TextBox1.Text = reader.ReadString()
ElseIf (reader.Name.Equals("ad")) Then
TextBox2.Text = reader.ReadString()
ElseIf (reader.Name.Equals("soyad")) Then
TextBox3.Text = reader.ReadString()
ElseIf (reader.Name.Equals("ogrenim")) Then
TextBox4.Text = reader.ReadString()
ElseIf (reader.Name.Equals("meslek")) Then
TextBox5.Text = reader.ReadString()
ElseIf (reader.Name.Equals("il")) Then
TextBox6.Text = reader.ReadString()
ElseIf (reader.Name.Equals("image1")) Then
PictureBox1.Image = Image.FromFile(reader.ReadString())
End If
End If

End If

If i = 2 Then
If (reader.NodeType = XmlNodeType.Element) Then
If (reader.Name.Equals("id2")) Then
TextBox1.Text = reader.ReadString()
ElseIf (reader.Name.Equals("ad2")) Then
TextBox2.Text = reader.ReadString()
ElseIf (reader.Name.Equals("soyad2")) Then
TextBox3.Text = reader.ReadString()
ElseIf (reader.Name.Equals("ogrenim2")) Then
TextBox4.Text = reader.ReadString()
ElseIf (reader.Name.Equals("meslek2")) Then
TextBox5.Text = reader.ReadString()
ElseIf (reader.Name.Equals("il2")) Then
TextBox6.Text = reader.ReadString()
ElseIf (reader.Name.Equals("image2")) Then
PictureBox1.Image = Image.FromFile(reader.ReadString())
End If

End If

End If

If i = 3 Then
If (reader.NodeType = XmlNodeType.Element) Then
If (reader.Name.Equals("id3")) Then
TextBox1.Text = reader.ReadString()
ElseIf (reader.Name.Equals("ad3")) Then
TextBox2.Text = reader.ReadString()
ElseIf (reader.Name.Equals("soyad3")) Then
TextBox3.Text = reader.ReadString()
ElseIf (reader.Name.Equals("ogrenim3")) Then
TextBox4.Text = reader.ReadString()
ElseIf (reader.Name.Equals("meslek3")) Then
TextBox5.Text = reader.ReadString()
ElseIf (reader.Name.Equals("il3")) Then
TextBox6.Text = reader.ReadString()
ElseIf (reader.Name.Equals("image3")) Then
PictureBox1.Image = Image.FromFile(reader.ReadString())
End If
End If

End If

If i > 3 Then
i = 1
End If
End While

reader.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "Xml Dosyadan Veri Okuma...Bahadirsa"
.MaximizeBox = False
.Location = New Point(250, 200)
End With
End Sub
End Class

‘Bir sonraki makalede görüşmek dileğiyle...Bahadirsa