Membuat Event Click Pada Datagrid Dengan Visual Basic 6.0

Membuat Event Click Pada Datagrid Dengan Visual Basic 6.0 | Gho Blog's - setelah beberapa hari kemarin saya sibuk dengan urusan pekerjaan dan terpaksa menunda beberapa posting yang sudah saya siapkan materinya.

Kali ini saya akan menunjukkan bagaiman cara membuat event click pada datagrid.Maksudnya begini, saat sobat mengklik baris data yang dipilih, maka data/record yang dipilih tersebut akan otomatis muncul ke form. Sudah ngerti maksudnya...?, kalau belum, langsung di coba aja deh, nanti juga sobat akan paham penggunaannya jika program yang dimaksud sudah jadi.

Sebagai contoh, saya punya sebuah database (Access) dengan nama "latihan.mdb" dan satu buah file/tabel dengan nama "barang" dengan disain seperti berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Kemudian saya punya disain form seperti berikut ini :

Selanjutnya, kita harus membuat coding koneksi nya, dan pastikan database tersimpan satu folder dengan project yang kita buat. Masukkan coding berikut ini di bagian General Declaration atau di bagian paling atas sekali dari jendela coding form :

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

Kemudian, kita buat funsi pemanggilan database di form load, caranya double klik di form dan masukkan coding berikut 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"

Sekarang kita buat pemanggilan tabel agar record yang ada muncul di datagrid, caranya masukkan coding berikut dimana saja pada jendela coding form :

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

Sekarang kita masukkan coding yang menjadi inti pembahasan kali ini, agar saat baris record yang kita click di datagrid, data/recordnya akan muncul di form. caranya double klik pada datagrid dan masukkan coding berikut ini tepat diantara Private Sub DataGrid1_Click() dengan End Sub :

Text1.Text = DataGrid1.Columns(0).Text Text2.Text = DataGrid1.Columns(1).Text Text3.Text = DataGrid1.Columns(2).Text

Coding diatas hanyalah contoh sederhana, sobat bisa sesuaikan sendiri berdasarkan jumlah field dengan komponen yang sobat gunakan.

Agar saat form di running dan data ditabel mencul ke datagrid, sobat cukup menyisipkan coding Call tampildatagrid di bagian form load. Sehingga coding form load 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 tampildatagrid '<-- panggil fungsi tampilgrid di form load End Sub

Terakhir, pada tombol Clear sobat cuku memasukkan code berikut ini yang fungsinya untuk mengosongkan form :

Text1.Text = "" Text2.Text = "" Text3.Text = ""

Sebelum menjalankan program ini, pastikan prgram dan database telah tersimpan dalam satu folder. Cara menggunakannya, sobat cukup mengklik baris record yang mana yang ingin sobat munculkan ke form. Klik pada bagian kotak kecil yg berada di sudut kiri baris yang dipilih seperti gambar berikut ini yang saya tandai berwarna merah.

Sebagai contoh, saya ingin memunculkan data pada record ke-3 :

Bagaimana, sudah cukup jelaskan pembahasannya...? Kalo masih bingung, sobat bisa download contoh programnya melalui link berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Sekian dulu posting saya yang berjudul Membuat Event Click Pada Datagrid Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.