Home » Tutorial Visual Basic » Membuat CRUD VB 6.0 Database Access

Membuat CRUD VB 6.0 Database Access

in - on 3:04 AM - No comments
Pada BAB Visual Basic 6.0 kali ini saya akan membahas tentang cara membuat CRUD VB 6.0 Database menggunakan Access. CRUD adalah sebuah dasar pemograman database yang digunakan pada sebuah Form yang nantinya anda bisa Input, Edit dan delete kedalam database.

Database yang saya gunakan pada artikel kali ini adalah menggunakan database Access. Jika anda ingin menggunakan database MySQL atau SQL Server nantinya akan saya buatkan pada artikel berikutnya.

Tampilan CRUD VB 6.0 Database Access adalah sebagai berikut : 
Download CRUD VB 6.0 Database Access
Sebenarnya BAB ini adalah gabungan dari tutorial VB 6.0 yang sudah saya buat sebelumnya yaitu :
Input, Edit dan Delete data didalam database menggunakan VB 6.0. Namun karena ada beberapa rekan kita yang kebingungan dara menggabungkan menjadi aplikasi CRUD maka saya akan membuatkannya khusus untuk anda.

LANGKAH 1 : Membuat Database dan Tabel Menggunakan Access


Buatlah Sebuah Folder dengan Nama "CRUD VB 6"
Silahkan buat database dengan nama : DBJNM.mdb
Kemudian buatlah tabel dengan nama : TBL_ANGGOTA
Design TBL_ANGGOTA dan Isi sample datanya adalah sebagai berikut :

Jika sudah membuat database dan tabel seperti yang saya instruksikan, silahkan save atau simpan pada folder yang telah kita buat "CRUD VB 6"


LANGKAH 2 : Membuat Form VB 6.0 dan Kodingnya


Setelah membuat database dan tabel, silahkan buka Visual Basic 6.0 pada komputer anda.
Jika sudah muncul Form1, silahkan simpan project dan form1 pada folder yang sama dengan database.
Pada Form1, silahkan design form1 seperti gambar dibawah ini :
Download CRUD VB 6.0 Database Access
Jika sudah mari kita bermain-main dengan koding :)

Step 1 : Kita harus bisa memunculkan data TBL_ANGGOTA pada Datargrid1 :
Kodingnya adalah sebagai berikut :

Dim Koneksi As New ADODB.Connection
Dim RSAnggota As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSAnggota = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Sub KondisiAwal()
 Text1 = ""
 Text2 = ""
 Text3 = ""
 Text4 = ""
 Call BukaDB
 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; "
 Adodc1.RecordSource = "TBL_ANGGOTA"
 Adodc1.Refresh
 Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
 Call KondisiAwal
End Sub

Penjelasan koding diatas, Kita mendeklarasikan beberapa koding seperti Dim Koneksi, Dim RSAnggota. Kemudian Kita membuat koneksi database yang telah kita buat pada TAHAP 1, kemudian pada Form Load ( form di panggil ) maka kita akan memunculkan TBL_ANGGOTA yang telah kita buat pada Sub KondisiAwal, sehingga muncul data didalam Datagrid1

Step 2 : Membuat Koding Input Data pada Button1 ( Tombol Input )
Jika form di load atau dijalankan maka akan muncul data pada TBL_SISWA, kemudian semua text dalam kondisi kosong. Isi form kosong tersebut kemudian tekan tombol Input, maka seharusnya data akan terinput kedalam database.
Berikut koding Input datanya :
Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim TambahAnggota As String
    TambahAnggota = "Insert Into TBL_ANGGOTA values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"
    Koneksi.Execute TambahAnggota
    MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
    Call KondisiAwal
End If
End Sub

Step 3 : Membuat Koding Edit Data
Pada step 2 ini kita akan membuat koding edit data didalam database. Berikut Kodingnya :
Private Sub DataGrid1_DblClick()
On Error Resume Next
    Call BukaDB
    RSAnggota.Open "Select * from TBL_Anggota where KodeAnggota = '" & DataGrid1.Columns(0) & "'", Koneksi
    If Not RSAnggota.EOF Then
        Text1 = RSAnggota!KodeAnggota
        Text2 = RSAnggota!NamaAnggota
        Text3 = RSAnggota!AlamatAnggota
        Text4 = RSAnggota!TelpAnggota
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data Tidak Ada!"
    End If
End Sub
Private Sub Command2_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim EditAnggota As String
    EditAnggota = "update TBL_Anggota Set NamaAnggota= '" & Text2 & "',AlamatAnggota='" & Text3 & "',TelpAnggota='" & Text4 & "' where KodeAnggota='" & Text1 & "'"
    Koneksi.Execute EditAnggota
    MsgBox "Data Berhasil DiUpdate", vbInformation, "Pemberitahuan"
    Call KondisiAwal
End If
End Sub

Pada koding edit data diatas memang panjang, karena untuk edit data memerlukan pemunculan data. Jadi kita harus Double klik pada datagrid terlebih dahulu. Kemudian Edit data dan Klik Tombol Simpan.

Step 4 : Membuat Koding Hapus Data
Pada tahap ini kita akan membuat koding penghapusan data didalam tabel TBL_ANGGOTA.
Berikut kodingnya :
Private Sub Command3_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim HapusAnggota As String
    HapusAnggota = "Delete From TBL_Anggota where KodeAnggota='" & Text1 & "'"
    Koneksi.Execute HapusAnggota
    MsgBox "Data Berhasil DiHapus", vbInformation, "Pemberitahuan"
    Call KondisiAwal
End If
End Sub
Untuk Hapus data konsepnya sama seperti Edit, yaitu kita harus memunculkan datanya terlebih dahulu, kemudian Klik Hapus.

Step 5 : Membuat Koding Menutup Form1
Step 5 ini adalah koding paling singkat, dimana kita akan menutup form1. kita hanya perlu menambahkan koding END.

Private Sub Command4_Click()
End
End Sub

Kemudian Untuk Full koding CRUD VB 6.0 Database Access seperti yang telah saya jelaskan diatas adalah sebagai berikut : 
Dim Koneksi As New ADODB.Connection
Dim RSAnggota As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSAnggota = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Sub KondisiAwal()
 Text1 = ""
 Text2 = ""
 Text3 = ""
 Text4 = ""
 Call BukaDB
 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; "
 Adodc1.RecordSource = "TBL_ANGGOTA"
 Adodc1.Refresh
 Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
 Call KondisiAwal
End Sub
Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim TambahAnggota As String
    TambahAnggota = "Insert Into TBL_ANGGOTA values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"
    Koneksi.Execute TambahAnggota
    MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
    Call KondisiAwal
End If
End Sub

Private Sub DataGrid1_DblClick()
On Error Resume Next
    Call BukaDB
    RSAnggota.Open "Select * from TBL_Anggota where KodeAnggota = '" & DataGrid1.Columns(0) & "'", Koneksi
    If Not RSAnggota.EOF Then
        Text1 = RSAnggota!KodeAnggota
        Text2 = RSAnggota!NamaAnggota
        Text3 = RSAnggota!AlamatAnggota
        Text4 = RSAnggota!TelpAnggota
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data Tidak Ada!"
    End If
End Sub
Private Sub Command2_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim EditAnggota As String
    EditAnggota = "update TBL_Anggota Set NamaAnggota= '" & Text2 & "',AlamatAnggota='" & Text3 & "',TelpAnggota='" & Text4 & "' where KodeAnggota='" & Text1 & "'"
    Koneksi.Execute EditAnggota
    MsgBox "Data Berhasil DiUpdate", vbInformation, "Pemberitahuan"
    Call KondisiAwal
End If
End Sub

Private Sub Command3_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim HapusAnggota As String
    HapusAnggota = "Delete From TBL_Anggota where KodeAnggota='" & Text1 & "'"
    Koneksi.Execute HapusAnggota
    MsgBox "Data Berhasil DiHapus", vbInformation, "Pemberitahuan"
    Call KondisiAwal
End If
End Sub

Private Sub Command4_Click()
End
End Sub

Bagaimana Cukup mudah bukan??? Jika tutorial ini bermanfaat untuk anda. silahkan berkomentar
Labels:

Post a Comment