Bagi temen-teman yang baru kenal VB.net bisa coba latihan berikut untuk menampilkan record dari database.
Silakan kamu buat dulu database dbSales.accdb, kemudian buat tabel customer dengan field Name, City dan Industry-Type. Jangan lupa isi beberapa contoh data customer.
Komponen yang dibutuhkan Datagrid dan Command Button. Silakan desain form kamu seperti gambar dibawah ini.
Double klik pada form dan tuliskan script berikut:
Imports System.Data.OleDb 'koneksi pakai OLEDB
Public Class Form2
Dim conn As OleDbConnection
Dim cm As OleDbCommand
Dim dr As OleDbDataReader
Dim bind As BindingSource
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\lat_vb_dgv\dbSales.accdb")
conn.Open()
cm = New OleDbCommand("select * from customer", conn)
dr = cm.ExecuteReader
bind = New BindingSource 'digunakan untuk navigasi prev, next
bind.DataSource = dr
dg.DataSource = bind
End Sub
Kembali ke mode desain dan double klik commang button dengan tulisan “next”. Tambahkan script bind.MoveNext(), sehingga script menjadi:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bind.MoveNext()
End Sub
Lakukan hal yang sama pada command button “Previous”,”First”,dan “Last”
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bind.MovePrevious()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
bind.MoveFirst()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
bind.MoveLast()
End Sub
Sebagai tambahan, double klik pada datagridview dan pilih Procedure KeyUp. Ubah script program seperti script berikut:
Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dg.KeyUp
Dim br As Integer = dg.SelectedRows(0).Index
TextBox1.Text = dg.Item(0, br).Value 'menampilkan data dari datagrid ke textbox1
End Sub
End Class
Tujuan script diatas adalah agar pada saat kamu tekan tombol keyboard arah atas dan bawah untuk memilih record, secara otomatis Field Name pada datagridview akan tampil pada textboxt di bawahnya.
Semoga bermanfaat.
Endro A
Endro A
No comments:
Post a Comment