XML > SQL Servera veri aktarımı: vb.net

Aşağıda data.xml dosyasındaki verileri SQL sorgusu kullanarak SQL database’a aktarıyoruz.
XML dosyasının içeriği;

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
Dim strInsertStmt, asset_name, asset_rfid As String
Dim dbConn As New SqlClient.SqlConnection("SERVER=localhost;UID=sa;PWD=;DATABASE=A-data;")
Dim sqlComm As New SqlClient.SqlCommand()
dbConn.Open()
If dbConn.State Then
sqlComm.Connection = dbConn

Dim xmlDoc As New Xml.XmlDocument()
Dim dataNodes As Xml.XmlNodeList
Dim aNode As Xml.XmlNode

xmlDoc.Load(c:\temp\data.xml)
dataNodes = xmlDoc.SelectNodes("/aa/bb")

For Each aNode In dataNodes

Try
asset_name = aNode.ChildNodes.Item(0).InnerText
asset_rfid = aNode.ChildNodes.Item(1).InnerText

strInsertStmt = "INSERT INTO a-table(Asset_name, Asset_rfid) VALUES ('"
strInsertStmt += asset_name + "','" + asset_rfid + "')"
sqlComm.CommandText = strInsertStmt
sqlComm.ExecuteNonQuery()
Catch e2 As Exception
MsgBox("Error: " & e2.Message)
End Try
Next
dbConn.Close()
Else : MsgBox("Database bağlantısı kurulamadı...")
End If

Catch e1 As Exception
MsgBox("Error: " & e1.Message)
End Try
End Sub

Bilgiler SQL servera aktarıldı.
Umarım işinize yarar.

Reklam