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 yaitu 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 yaitu 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 yaitu sebagai berikut :
Sebenarnya BAB ini yaitu 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 yaitu ada beberapa rekan kita yang kebingungan dara menggabungkan menjadi aplikasi CRUD maka aku akan membuatkannya khusus untuk anda.
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 yaitu 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"
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 yaitu sebagai berikut :
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 :
Step 3 : Membuat Koding Edit Data
Pada step 2 ini kita akan menciptakan koding edit data didalam database. Berikut Kodingnya :
Pada koding edit data diatas memang panjang, alasannya yaitu 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 :
Step 5 : Membuat Koding Menutup Form1
Step 5 ini yaitu koding paling singkat, dimana kita akan menutup form1. kita hanya perlu menambahkan koding END.
Kemudian Untuk Full koding CRUD VB 6.0 Database Access menyerupai yang telah aku jelaskan diatas yaitu sebagai berikut :
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.
Database yang aku gunakan pada artikel kali ini yaitu 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 yaitu sebagai berikut :
Input, Edit dan Delete data didalam database memakai VB 6.0. Namun alasannya yaitu 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 yaitu 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 :
Step 1 : Kita harus dapat memunculkan data TBL_ANGGOTA pada Datargrid1 :
Kodingnya yaitu 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 SubPenjelasan 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 SubPada koding edit data diatas memang panjang, alasannya yaitu 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 SubStep 5 : Membuat Koding Menutup Form1
Step 5 ini yaitu koding paling singkat, dimana kita akan menutup form1. kita hanya perlu menambahkan koding END.
Private Sub Command4_Click() End End SubKemudian Untuk Full koding CRUD VB 6.0 Database Access menyerupai yang telah aku jelaskan diatas yaitu 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.