Xml Dosyasına Kayıt
Bu örneğimizde Northwind.mdb veritabanındaki alanlardan çektiğimiz bilgileri, Xml olarak kaydedeceğiz...Bahadirsa
Şekil 1
Forma yazılacak kodlar:
Imports System.Xml
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglan As OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb")
Dim adp As New OleDb.OleDbDataAdapter
Dim str As String = "Select * From " & cmb.Text
adp.SelectCommand = New OleDb.OleDbCommand(str, baglan)
baglan.Open()
Dim ds As New Data.DataSet
adp.Fill(ds)
Dim xreader As Xml.XmlReader
‘bu xmlreader executereader dan farklı olarak sonucu xml olarak üretiyor.
ds.ReadXml(xreader)
‘datasetimize xml mizi okutuyoruz.
ds.WriteXml("C:\test.xml")
‘ve harddiskimize dataseti yazdırıyoruz.
baglan.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmb.Text = "Customers"
With Me
.Text = "XML Olarak Kayıt...Bahadirsa"
.MaximizeBox = False
.MinimizeBox = False
.Location = New Point(350, 200)
End With
End Sub
End Class
‘Bir sonraki makalede görüşmek dileğiyle...Bahadirsa