Membuat CRUD Database MySQL - VB 6 ( Bagian 2 )

Hallo pembaca,

Setelah kemarin kita membuat Module dan Class Module untuk sebuah CRUD database, sekarang kita lanjutkan pembahasannya, pastikan anda sudah membaca Membuat CRUD Database MySQL - VB 6 ( Bagian 1 ). Untuk pertamakalinya silahkan buat dulu databasenya, disini saya menggunakan contoh database "dbtoko" dan menggunakan tabel "tblbarang".
1. Membuat database dan tabel

  
 CREATE DATABASE `dbtoko`;
CREATE TABLE `dbtoko`.`tblbarang` (
`kodebarang` VARCHAR( 15) NOT NULL ,
`namabarang` VARCHAR( 35) NOT NULL ,
`harga` INTEGER( 11) NOT NULL
) ENGINE = MYISAM ;

2. Buatlah sebuah Form yang terdiri dari Label, Textbox, Button, dan Listview. Anda bisa lihat seperti dibawah ini :

Untuk Textbox nya beri nama "txtKodeBarang, txtNamaBarang, txtHarga"
Untuk Button nya berinama "cmdTambah, cmdSimpan, cmdHapus"
Untuk Listview nya berinama "lvwData"
3. Mulai ke pengkodean buatlah Fungsi-fungsi seperti dibawah ini :

  
Function kosongText()
    Me.txtKodeBarang.Text = ""
    Me.txtNamaBarang.Text = ""
    Me.txtHarga.Text = ""
End Function

Function kunciText()
    Me.txtKodeBarang.Enabled = False
    Me.txtNamaBarang.Enabled = False
    Me.txtHarga.Enabled = False
End Function

Function bukaText()
    Me.txtKodeBarang.Enabled = True
    Me.txtNamaBarang.Enabled = True
    Me.txtHarga.Enabled = True
End Function

4. Pada Event Form Load, panggil beberapa fungsi yang sudah kita buat sebelumnya, fungsi yang berada di from ataupun di module :

  
Private Sub Form_Load()
    Call Koneksi
    Call kunciText
    Call kosongText
    Me.cmdSimpan.Enabled = False
    Me.cmdHapus.Enabled = False
End Sub

5. Pada Event cmdTambah_Click silahkan tambahkan kode berikut :

  
Private Sub cmdTambah_Click()
    Call kosongText
    If Me.cmdTambah.Caption = "Batal" Then
        Me.cmdTambah.Caption = "Tambah"
        Call kunciText
        Me.cmdSimpan.Enabled = False
    ElseIf Me.cmdTambah.Caption = "Tambah" Then
        Me.cmdTambah.Caption = "Batal"
        Call bukaText
        Me.cmdSimpan.Enabled = True
    End If
End Sub

6. Pada Event cmdSimpan_Click silahkan tambahkan kode dibawah ini, yang fungsi kodenya adalah mendeklarasikan variabel string dan memangging fungsi simpan dan ubah yang sudah kita buat sebelumnya di Class Modul :

  
Private Sub cmdSimpan_Click()
    Dim strTable As String
    Dim dtFields(2) As Variant
    Dim dtValues(2) As Variant
   
    strTable = "tblbarang"
   
    dtFields(0) = "kodebarang"
    dtFields(1) = "namabarang"
    dtFields(2) = "harga"
   
    dtValues(0) = Trim(Me.txtKodeBarang.Text)
    dtValues(1) = Trim(Me.txtNamaBarang.Text)
    dtValues(2) = Trim(Me.txtHarga.Text)
   
    With myDB
        .Query = ""
        .RunQueryInsert strTable, dtFields, dtValues
        strErr = .ErrQuery
        If .IsRun Then
            MsgBox "Data tersimpan", vbInformation
        Else
            MsgBox strErr, vbExclamation
        End If
    End With
End Sub

7. Silahkan anda jalankan projectnya, kemudian isikan data lalu simpan, apabila berhasil akan seperti gambar dibawah ini :

Lebih mudah bukan, disamping itu code nya juga terlihat rapi, tentu saja akan lebih mudah memperbaiki apabila terjadi kesalahan code, jika code tersusun dengan rapi. Untuk sesi selanjutnya kita akan buat fungsi udah data, hapus data dan tampil data. Sampai jumpa di artikel berikutnya, Membuat CRUD Database MySQL - VB 6 ( Bagian 3 ). Semoga bermanfaat, terima kasih

Bagikan Artikel ini