Translate

06 April 2015

Membuat dan menyimpan data dalam format XML menggunakan ADO Visual Basic 6

XML kependekan dari eXtensible Markup Language, dikembangkan mulai tahun 1996 dan mendapatkan
pengakuan dari W3C pada bulan Februari 1998. Teknologi yang digunakan pada XML merupakan turunan dari SGML yang telah dikembangkan pada awal 80-an dan telah banyak digunakan pada dokumentasi proyek-proyek berskala besar. Ketika HTML dikembangkan padatahun 1990, para penggagas XML mengadopsi bagian paling penting pada SGML dan mengacu pada pengembangan HTML menghasilkan markup language yang setara dengan SGML. Seperti HTML, XML juga menggunakan elemen yang ditandai dengan tag pembuka (diawali dengan ‘<’ dan diakhiri dengan ‘>’), tag penutup (diawali dengan ‘</ ‘ diakhiri ‘>’) dan atribut elemen (parameter yang dinyatakan dalam tag pembuka misal
).
Visual Basic 6.0 memiliki teknologi yang bisa langsung menggunakan XML dengan memanfaatkan Teknologi ADO untuk menyimpan, membaca dan bahkan memanipulasi data rekaman dalam bentuk file XML. Berikut ini langkah-langkah mudah memanfaatkan ADO untuk membuat dan menyimpan data dalam bentuk file XML.
  1. Siapkan project dalam VB 6.0 dengan pilihan yang lengkap yaitu VB Enterprise Edition Controls. Jika memilih pilihan Standar Exe Anda harus memasukkan referensi ADO 2.1.
  2. Simpan Project-nya terlebih dulu, karena untuk memastikan path atau folder untuk menyimpan file XML dan seluruh file proyeknya (misalnya e:\go-MyBlog\XML menggunakan VB6\Program1).
  3. Buat program pada Form1 seperti pada Gambar 1 Kode Program membuat file XML dan menyimpan data. 
  4. Jalankan program dengan cara Run atau tekan F5, maka pada folrder tempat Anda membuat project sudah ada file rekam.xml yang sudah ada contoh datanya.
  5. Bukalah file rekam.xml dengan browser yang anda sukai, maka akan muncul setidaknya kode XML seperti pada Gambar 2. Skema XML beserta datanya.
Gambar-Gambar:

Gambar 1 Kode Program membuat file XML dan menyimpan data
Gambar 2. Skema XML beserta datanya

Selamat mencoba semoga bermanfaat.

1 comment:

  1. Jika susah menulis kode programnya silahkan Copas aja sebegai berikut:

    Dim Rekaman As New ADODB.Recordset
    Private Sub Form_Load()
    With Rekaman
    'identifikasi atribut untuk merekan
    '----------------------------------------------
    .Fields.Append "Nama", adChar, 50
    .Fields.Append "email", adChar, 50
    .Fields.Append "NoHp", adChar, 20
    .Fields.Refresh

    'mengaktifkan dan merekam data pada tipe Rekaman
    '-----------------------------------------------
    .Open
    .AddNew
    .Fields(0).Value = "Semar"
    .Fields(1).Value = "semar@wayang.com"
    .Fields(2).Value = "098-76832545356"
    .Update

    'Menyimpan Rekaman dalam bentuk file XML
    'sebelum disimpan cek dulu apakah file rekam.xml sudah ada
    '-----------------------------------------------
    If Dir(App.Path & "\rekam.xml") <> "" Then
    Kill App.Path & "\rekam.xml"
    End If
    .Save App.Path & "\rekam.xml", adPersistXML
    .Close
    Set Rekaman = Nothing
    End With
    End Sub

    ReplyDelete

Silahkan memberikan komentar, saran, pertanyaan atau apapun yang penting sesuai dengan etika.

Posting Popular