FAQ : Cara Menghapus Record Langsung Di Datagrid Dengan Visual Basic 6.0

FAQ : Cara Menghapus Record Langsung Di Datagrid Dengan Visual Basic 6.0 | Visual Basic Magazine - Pada posting kali ini saya akan menjelaskan bagaimana cara menghapus data/record perbaris yang ada di datagrid tanpa menggunakan button ataupun menampilkan data tersebut kedalam form sebelum eksekusi.

Disini kita akan memanfaatkan event click pada datagrid. Apabila baris/row record kita klik, maka akan muncul notifikasi (pesan hapus data), jika kita klik "Yes" maka data yg dipilih tersebut akan langsung dihapus.

Untuk lebih jelasnya, silakan ikuti langkah-langkah berikut ini :

• Saya punya sebuah database dengan nama "latihan.mdb" (MS Access). Pada database tersebut ada sebuah tabel yang saya beri nama "barang". Adapun field-field pada tabel tersebut adalah sebagai berikut : kode_brg (tipe data : text), nama_brg (tipe data : text), satuan (tipe data : text), harga (tipe data : number)
• Disini saya tidak lagi menjelaskan cara membuat program Simpan, silakan sobat pelajari pada posting sebelumnya yang berjudul : Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Entrikan beberapa buah record ke tabel tersebut, berikut ini tampilan disain formnya :

• Komponen utama yang harus sobat pasang di form adalah 1 buah ADODC dan 1 buah Datagrid. Jika kedua komponent ini tidak ada di toolbox, sobat harus menambahkannya terlebih dahulu, caranya tekan tombol CTRL + T pada keyboard, kemudian cari dan beri cheklist pada Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft Datagrid Control 6.0 (OLEDB).

• Seperti yang saya sampaikan sebelumnya, disini saya hanya akan membahas point-point penting pembahasan saja. Selanjutnya kita akan membuat koneksi database, letakkan coding berikut ini pada bagian General Declaration (paling atas) :

Public conn As ADODB.Connection Public rs As ADODB.Recordset

• Double klik pada form, dan masukkan coding berikut ini tepat diantara Private Sub Form_Load() dengan End Sub :

Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Provider = "microsoft.jet.oledb.4.0" conn.Open App.Path & "\latihan.mdb"

• Kemudian kita buat sebuah procedure untuk menampilkan isi tabel ke dalam datagrid dengan cara masukkan coding berikut ini diaerea yang masih kosong atau dibawah End Sub dari event Form_Load diatas :

Private Sub tampilgrid() Set rs = New ADODB.Recordset rs.Open "select * from barang", conn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub

• Berikutnya, kita panggil procedure tampilgrid yang barusan kita buat pada Form Load, dengan cara menyisipkan kode berikut diatas End Sub sehingga coding Form Load nya menjadi seperti berikut ini :

Private Sub Form_Load() Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Provider = "microsoft.jet.oledb.4.0" conn.Open App.Path & "\latihan.mdb" Call tampilgrid '<-- coding yang disispkan End Sub

• Terakhir kita masuk ke coding inti pembahasan, yaitu coding untuk menghapus data perbaris langsung dari datagrid. Caranya, double klik pada Datagrid dan masukkan coding berikut tepat diantara Private Sub DataGrid1_Click() dengan End Sub :

Dim hapus As String Dim a hapus = DataGrid1.Columns(0).Text a = MsgBox("Hapus Data...?", vbQuestion + vbYesNo) If a = vbYes Then conn.Execute "delete * from barang where kode_brg= '" & hapus & "'" MsgBox "Data terhapus", vbInformation tampilgrid Else Exit Sub End If

• Cara menjalankannya, cukup klik pada baris/row yang ingin dihapus pada datagrid, jika muncul Pesan Notifikasi, klik Yes maka data tersebut akan terhapus otomatis tanpa harus menggunakan button.

Jika sobat masih bingung, silakan sobat download contoh project lengkapnya pada link berikut :

Sekian dulu posting saya berjudul FAQ : Cara Menghapus Record Langsung Di Datagrid Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.