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