Membuat Crud Vb 6.0 Database Access

Pada BAB Visual Basic 6.0 kali ini aku akan membahas perihal cara menciptakan CRUD VB 6.0 Database memakai Access. CRUD ialah sebuah dasar pemograman database yang dipakai pada sebuah Form yang nantinya anda dapat Input, Edit dan delete kedalam database.

Database yang aku gunakan pada artikel kali ini ialah memakai database Access. Jika anda ingin memakai database MySQL atau SQL Server nantinya akan aku buatkan pada artikel berikutnya.

Tampilan CRUD VB 6.0 Database Access ialah sebagai berikut :

Sebenarnya BAB ini ialah adonan dari tutorial VB 6.0 yang sudah aku buat sebelumnya yaitu :
Input, Edit dan Delete data didalam database memakai VB 6.0. Namun alasannya ialah ada beberapa rekan kita yang kebingungan dara menggabungkan menjadi aplikasi CRUD maka aku 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 ialah sebagai berikut :

Jika sudah menciptakan database dan tabel menyerupai yang aku instruksikan, silahkan save atau simpan pada folder yang telah kita buat "CRUD VB 6"

LANGKAH 2 : Membuat Form VB 6.0 dan Kodingnya

Setelah menciptakan 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 menyerupai gambar dibawah ini :

Jika sudah mari kita bermain-main dengan koding :)

Step 1 : Kita harus dapat memunculkan data TBL_ANGGOTA pada Datargrid1 :
Kodingnya ialah 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 menyerupai Dim Koneksi, Dim RSAnggota. Kemudian Kita menciptakan koneksi database yang telah kita buat pada TAHAP 1, lalu 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, lalu semua text dalam kondisi kosong. Isi form kosong tersebut lalu 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 menciptakan 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, alasannya ialah untuk edit data memerlukan pemunculan data. Kaprikornus 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 menciptakan koding peniadaan 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 menyerupai Edit, yaitu kita harus memunculkan datanya terlebih dahulu, lalu Klik Hapus.

Step 5 : Membuat Koding Menutup Form1
Step 5 ini ialah 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 menyerupai yang telah aku jelaskan diatas ialah 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 gampang bukan??? Jika tutorial ini bermanfaat untuk anda. silahkan berkomentar, share kepada teman2 anda dan like tutorial ini. Demikian tutorial dalam menciptakan form CRUD VB 6.0 database access. Semoga bermanfaat untuk anda...
Silahkan KLIK DISINI untuk mendownload Project diatas.