Cara Menghapus Record Langsung Di Datagrid Dengan Visual Basic 6.0

Cara Menghapus Record Langsung Di Datagrid Dengan Visual Basic 6.0 |  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.