BackUp data dari suatu tabel menggunakan VB.NET ke dalam file XML

Setelah beberapa postingan menggunakan file XML untuk dibaca dan ditampilkan, saat ini saya akan mencoba membuat Back Up data dari tabel Ms Access menggunakan Visual Basic 2012 atau VB.NET dengan aroma dan rasa VB6 ke dalam file XML. Caranya adalah:

1. Buka VB.NET (punya saya Visual Studio 2012), kemudian pilih New Project, Pilih Windows Forms Application tekan OK.
2. Agar terasa VB.6 tambahkan Referensi ADO dengan cara: pilih menu PROJECT, pilih Add Reference, pada bagian COM aktifkan Type Library dengan mencari dan beri centang pada referensi Microsoft ActiveX Data 2.5 Library, kemudian tekan OK.
3. Pada Form1 tambahkan Button seting properti Textnya : BackUp to XML.
4. Tulis kode program berikut:

Kode Programnya:

----------------------------------------------------------------------------------------------------------------------------------

1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
2.         Dim ConnX As New ADODB.Connection
3.         Dim BackUpXML As New ADODB.Recordset
4. 
   
5.         'Membuat Koneksi ke database Ms Access
6.         ConnX.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
7.             "Data Source=E:\Go-MyBlog\XML Menggunakan VB.NET\DBSAMPLE.MDB"
8.         ConnX.Open()
9. 
   
10.         BackUpXML.CursorLocation = ADODB.CursorLocationEnum.adUseClient
11.         BackUpXML.CursorType = ADODB.CursorTypeEnum.adOpenStatic
12.         BackUpXML.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
13. 
    
14.         'Menentukan tabel yang akan di BackUp menggunakan perintah SQL
15.         BackUpXML.Open("SELECT * FROM [Office - Employee Details]", ConnX)
16. 
    
17.         If Dir(Application.StartupPath & "\BackUPXML.xml") <> "" Then
18.             Kill(Application.StartupPath & "\BackUPXML.xml")
19.         End If
20.         BackUpXML.Save(Application.StartupPath & "\BackUPXML.xml", _
21.                        ADODB.PersistFormatEnum.adPersistXML)
22.         BackUpXML.Close()
23.         BackUpXML = Nothing
24.         ConnX.Close()
25.         MsgBox("BackUp data telah berhasil", vbInformation)
26.         End
27.     End Sub

----------------------------------------------------------------------------------------------------------------------------------

Penjelasan:

Pada Baris ke:

7. Saya menggunakan database access contoh yang telah disediakan oleh Ms. Office yaitu DBSample.MDB versi tahun 2002.

15. Menentukan tabel mana yang akan di Back Up ke dalam bentuk XML, saya menggunakn tabel Office - Employee Details. Diberi tanda [ ... ] karena terdapat spasi atau karakter khusus.

20. Nama file XML hasil backUpnya adalah BackUpXML.xml

Selamat mencoba, semoga bermanfaat.