Mengeksport Data di Datagrid ke Format XML di VB.Net 2008

Postingan kali ini kita akan mengeksport data yang ada di Datagrid menjadi file XML. File XML sekarang umum digunakan untuk pertukaran data di Internet karena pemrosesannya yang mudah dan cepat.

Langsung to the point aja...

Seperti biasa, persiapkan sebuah database bernama testing dan buat table tbl_konsumen. Berikut penampakan tabel tbl_konsumen. (Script SQL query dapat didownload di akhir postingan).

Sekarang buat project baru di VB.Net 2008 dan beri nama createXML. Buat form dengan tampilan seperti berikut ini :

Untuk proses input - edit - delete data saya anggap anda sudah paham, pembahasan tentang ini ada di postingan sebelumnya yaitu Simple Proses Input - Edit - Delete Data Dengan VB.Net 2008 dan SQL Server 2008.

Sekarang fokus di tombol Create XML (lihat gambar diatas). Untuk kode eksport data di datagrid ke XML saya menggunakan ini :

 Sub XMLFile()  
   With FormXML  
     Try  
       If My.Computer.FileSystem.FileExists("../../XML/datakonsumen.xml") Then  
         MsgBox("File XML Sudah Ada..!")  
         Exit Sub  
       Else  
         Dim settings As New XmlWriterSettings()  
         settings.Indent = True  
         settings.IndentChars = "  "  
         Using writer As XmlWriter = XmlWriter.Create("../../XML/datakonsumen.xml", settings)  
           writer.WriteComment("XML Files datakonsumen")  
           writer.WriteStartElement("dataset")  
           writer.WriteStartElement("DataKonsumen")  
           writer.WriteComment("Start datakonsumen")  
           For rowIndex As Integer = 0 To .DataGridKonsumen.Rows.Count - 1 Step 1  
             writer.WriteElementString("perusahaan", .DataGridKonsumen.Item(0, rowIndex).Value)  
             writer.WriteElementString("contactperson", .DataGridKonsumen.Item(1, rowIndex).Value)  
             writer.WriteElementString("phone", .DataGridKonsumen.Item(2, rowIndex).Value)  
             writer.WriteElementString("alamat", .DataGridKonsumen.Item(3, rowIndex).Value)  
           Next  
           writer.WriteComment("End datakonsumen")  
           writer.WriteEndElement()  
           writer.WriteEndElement()  
           writer.WriteEndDocument()  
           writer.Flush()  
           writer.Close()  
           MsgBox("File XML Data Konsumen Berhasil dibuat..!")  
         End Using  
       End If  
     Catch ex As Exception  
       MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")  
     End Try  
   End With  
 End Sub  

Lokasi file XML ("../../XML/datakonsumen.xml") akan ditempatkan di folder XML, berada di path yang sama dengan file-file penyusun obyek VB.Net. Bila anda pernah menggunakan VB 6, maka alamat ("../../XML/datakonsumen.xml") sama seperti menggunakan app.path.

Source code program dapat didownload di akhir postingan ini. Jangan lupa untuk menyesuaikan nama server databasenya dengan nama server SQL Server di komputer / laptop anda (lihat di file ModulKoneksi.vb.)

Download disini

Baca juga di blog ini :
Anda ingin dapat uang dengan hanya menjawab survey..?