Tipe Data Rekaman (Record Data Type)

Sibuk apa hari ini? Sibuk bikin program untuk merekam data, atau sedang bingung bagaimana membuat, menyimpan dan menggunakan kembali data yang disimpan dalam ekstensi sesuai dengan keinginan kita? Nah inilah beberapa langkah jika kita ingin membuat simpanan data tetapi bukan dalam sebuah database. Kegunaannya untuk apa, toh sudah banyak sistem basis data yang mumpuni untuik digunakan secara gratis?
Nih contoh sederhana penggunaanya. Data yang tersimpan seperti no kontak pada handphone yang tidak memerlukan sistem DBMS (database management systems). Kode program sederhana ini menggunakan Visual Basic 6.0, sedangkan file yang akan dibuat nantinya berekstensi “.txt”. Ayo ikuti alur cerita “tipe data rekaman” berikut jika ingin membuatnya. Untuk praktek tipe data rekaman, ikuti langkah-langkah 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). pada contoh ini ditampilkan ke Form.

6.      User keluar dari aplikasi.

Agar aplikasi yang diinginkan tersebut dapat berjalan dengan lancar, ikuti langkah-langkah 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. (lihat Gambar 1.)

Gambar 1 Mengaktifkan Referensi Tipe Data Rekaman

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;

Gambar 2 Pengaturan form dan object-objectnya

3. 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