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.
- 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.
- 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).
- Buat program pada Form1 seperti pada Gambar 1 Kode Program membuat file XML dan menyimpan data.
- 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.
- Bukalah file rekam.xml dengan browser yang anda sukai, maka akan muncul setidaknya kode XML seperti pada Gambar 2. Skema XML beserta datanya.
Gambar 1 Kode Program membuat file XML dan menyimpan data
Gambar 2. Skema XML beserta datanya
Selamat
mencoba semoga bermanfaat.
Jika susah menulis kode programnya silahkan Copas aja sebegai berikut:
ReplyDeleteDim 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