Membuat tipe data record menggunakan ADODB VB6

Tipe data record atau rekaman berfungsi untuk merekam data yang sama seperti sebuah tabel, tetapi tidak masuk dalam sebuah database. Tipe data record ini disimpan dalam sebuah file teks yang berekstensi .txt. Penggunaan secara luas bisa untuk membuat sebuah memo atau catatan kecil, dimana sewaktu-waktu bisa kita buka atau kita tambah datanya. Bahasa pemrograman yang dipakai adalah Visual Basic 6.0 dengan memanfaatkan sebuah komponen yaitu ADODB Recordset.

Untuk mempraktekkan pembuatan tipe data rekaman ini, akan diberikan sebuah ilustrasi pemakaian dengan langkah sebagai berikut;

1. User menjalankan Form
2. Pada saat Form dipanggil, terjadi proses pembuatan dua tipe data record yaitu NIM dan Nama dengan tipe keduanya adalah huruf. Ukuran maksimal NIM adalah 9 digit dan Nama 30 digit. Kedua jenis tipe rekaman tersebut disimpan dalam sebuah file dengan nama Rekaman.txt.
3. User mengisi data NIM dan Nama pada objek textbox yang telah disediakan.
4. Untuk menyimpan data dalam memori, user menekan tombol Rekam. Secara otomatis kedua textbox kosong dan user siap untuk mengisi kembali dan menekan tombol rekam begitu seterusnya sampai data selesai di inputkan.
5. Setelah user selesai merekam, maka ingin menampilkan seluruh data yang telah direkam ke form atau object yang lain (misalnya ListBox, DataGrid, ListView, dll).
6. User keluar dari aplikasi.

Berdasarkan langkah-langkah tersebut, maka agar aplikasi yang diinginkan tersebut dapat berjalan dengan lancar perlu seting sebagai berikut;

Langkah 1.

1. Buat Project Standar EXE

2. Tambahkan Referensi yang berupa ActiveX Data Object 2.1 Library dari menu References dengan cara Menu Project, Pilih References.

3. Simpan Form dengan nama frmRekaman dan Project-nya dengan nama prjRekaman.
4. Buat Object 2 CommandButton dan 2 TextBox atur tampilan dan propertinya sehingga tampak sebagai berikut;

5. Atur properti dari object yang ada, sbb;

Langkah 2. 

Sebelum mengetik kode program, pastikan Anda sudah menyimpan program, selanjutnya ikuti sbb;

1. Buat Variabel dengan nama dan tipe data sebagai berikut;

Option Explicit

Dim RS1 As New ADODB.Recordset

Dim NamaDir As String

Keterangan;

Option Explicit à agar deklarasi semua variabel lebih pasti

Dim RST As New ADODB.Recordset à deklarasi variabel dengan nama RST dengan tipe set rekaman dari ActiveX Data Object

Dim NamaDir As String à deklarasi variabel dengan nama NamaDir dengan tipe Huruf yang fingsinya untuk menunjukkan lokasi penyimpanan (direktori/folder) dengan tepat.

2. Ketikkan kode berikut dalam event Form_Load

Private Sub Form_Load()

    NamaDir = App.Path                             'Mengarahkan direktori yg aktif

    Me.Caption = NamaDir                         'cek direktori di title bar

   

    If Dir(NamaDir & "\Rekaman.txt") = "" Then ‘menguji apakah file Rekaman.txt sudah terbentuk, jika

                                                                                                     ‘belum akan memproses kode menambahkan Atribut

        RS1.Fields.Append "NIM", adChar, 9   

        RS1.Fields.Append "Nama", adChar, 30

        RS1.Fields.Refresh

        RS1.Open                                                                           ‘à metode Open untuk mengaktifkan file

        RS1.Save NamaDir & "\Rekaman.txt", adPersistADTG                  ‘proses menyimpan struktur data

    Else

        RS1.Open NamaDir & "\Rekaman.txt"           ‘menguji jika file Rekaman.txt sudah ada,  maka cukup

    End If                                                                                       ‘diarahkan dan diaktifkan

End Sub

Tips : untuk menguji Reference sudah aktif/belum pada saat deklarasi variabel ADODB akan muncul otomatis jika sudah aktif dan tidak akan muncul jika belum aktif.

Langkah 3. 

Tergantung kreativitas Anda, jika sudah menekan tombol Rekam, maka txtNIM akan aktif dan isi kedua textbox menjadi tidak ada.

Langkah 4. 

Ketikkan kode berikut dalam event cmdRekam_click

Private Sub cmdRekam_Click()

    RS1.AddNew                                                   'Metode untuk tambah baris baru

    RS1.Fields(0) = txtNIM.Text                         'Dua Baris untuk menambil isi dari objek

    RS1.Fields(1) = txtNama.Text

    RS1.Update                                                     'Metode untuk menyimpan setiap perubahan

End Sub

Langkah 5.  

Menampilakan data ke form dengan metode Print. Tulis kode program berikut pada event cmdTampil_click

Private Sub cmdTampil_Click()

    Me.Cls                                                                               'Membersihkan tampilan form

    If RS1.RecordCount <= 0 Then Exit Sub            'menguji, jika jumlah rekaman tidak ada, maka tdk

                                                                                                ‘memproses kode dibawahnya

    RS1.MoveFirst                                                                'Meletakkan kursor pada baris pertama

    Do While Not RS1.EOF                                                 'melakukan perulangan terus menerus jika BELUM akhir

                                                                                                ‘dari file

        Me.Print RS1.Fields(0).Value & RS1.Fields(1).Value                        'menampilkan data pada form

        RS1.MoveNext                                                            'agar dapat berulang, maka menunjuk rekaman

                                                                                                ‘berikutnya

    Loop

End Sub

Selamat Mencoba