Translate

15 April 2015

Membaca dan menampilkan file XML menggunakan ADO VB6

Setelah kita menggunakan VB 6.0 untuk membuat dan merekam data dalam bentuk file XML, maka pada bagian ini kita akan membuat project Visual Basic yang digunakan untuk membaca dan menampilkan isi dari suatu file XML menggunakan teknologi ADO. Berikut langkah-langkahnya:

1. Siapkan project dalam VB 6.0 dengan pilihan komponen dan referensi yang lengkap yaitu VB Enterprise Edition Controls. Jika memilih pilihan Standar Exe Anda harus memasukkan referensi ADO 2.1.

2. Siapkan sebuah form yang akan digunakan untuk menampilkan isi data dari sebuah file XML. Atur property dari Form tersebut yaitu: AutoRedraw=True, Appearance=0-Flat.

3. Tambahkan sebuah CommandButton dan CommonDialog. Atur property CommandButton dengan Name=cmdOpen dan Caption=Open File.

4. Buat program pada event Click pada CommandButton seperti pada Gambar 1 Kode Program membaca dan menampilkan file XML.
 Gambar 1. Kode Program membaca dan menampilkan file XML.
 Gambar 2. PIlih dan buka file yang berextensi XML.

Gambar 3. Hasil membuka salah satu file XML

5. Jalankan program dengan cara Run atau tekan F5, kemudian tekan tombol Open File, maka akan muncul window Open File Seperti pada Gambar 2, cari file apa saja yang berextensi .XML. LIhat datanya pada Form yang telah disediakan ilustrasinya disajikan pada Gambar 3.

Semoga bermanfaat.

By di
Kategori , , ,

4 comments:

  1. Eko D'AntoApril 15, 2015 at 9:30 AM

    Kode Program yang tinggal Copas aja:

    Private Sub cmdOpen_Click()
    Dim Rst1 As New ADODB.Recordset
    Dim NamaFile As String
    Dim i, j As Integer

    CommonDialog1.Filter = "XML Files (*.xml)|*.xml"
    CommonDialog1.ShowOpen
    NamaFile = CommonDialog1.FileName

    Me.Cls
    For i = 1 To 5
    Me.Print ""
    Next i
    Rst1.Open NamaFile

    i = 0
    Do Until Rst1.EOF
    i = i + 1
    Me.Print Tab(10); i;
    For j = 0 To Rst1.Fields.Count - 1
    Me.Print Rst1(j),
    Next j
    Rst1.MoveNext
    Loop
    Rst1.Close
    Set Rst1 = Nothing
    End Sub

    ReplyDelete
  2. Yanriska L'RudbichAugust 16, 2015 at 7:18 PM

    Kalau untuk insert coding nya gimana bang?

    ReplyDelete
    Replies
    1. Eko D'AntoAugust 18, 2015 at 9:33 AM

      insert atau menambahkan data, bisa dilakukan setelah Rst1.Open NamaFile berhasil
      Selanjutnya dapat menggunakan kode sebagai berikut;
      Rst1.AddNew
      Rst1.Field(0)=NamaVariabel0
      Rst1.Field(1)=NamaVariabel1
      dst...
      Rst1.UpDate

      Semoga bermanfaat

      Delete
    2. Eko D'AntoAugust 18, 2015 at 9:37 AM

      Atau bisa juga mengguanakan kode seperti pada postingan sebelumnya
      yaitu "Membuat dan menyimpan data dalam format XML menggunakan ADO Visual Basic 6"

      Delete

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

Subscribe to: Post Comments (Atom)

Posting Popular