Datareader visual basic 2010 express ms-access 2007

Pada artikel yang lalu "Membuat aplikasi database dengan vb.net"  di situ saya _ menggunakan dataset sebagai penampung datanya. Kali ini menggunakan datareader dengan database Microsoft Access 2007. Datareader lebih ringan dari dataset dalam penggunaan memory. OKlah ini kode selengkapnya:

Imports System.Data.OleDbImports System.DataPublic Class Form1     Private m_pos As Long     Private oTbl As New DataTable      Private sConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _   Application.StartupPath & _        "\dataku.accdb;Persist Security Info=False;"      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _  HandlesButton1.Click         Dim oConn As New OleDbConnection(sConn)         oConn.Open()         Dim oCmd As New OleDbCommand("select * from kota", oConn)         Dim oDr As OleDbDataReader        oDr = oCmd.ExecuteReader         oTbl.Load(oDr)         DataGridView1.DataSource = oTbl     End Sub      Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, _  ByVal e As System.EventArgs)Handles DataGridView1.CurrentCellChanged         m_pos = BindingContext(oTbl).Position         txtKodeKota.Text = oTbl.Rows(m_pos).Item(0)         txtNamaKota.Text = oTbl.Rows(m_pos).Item(1)     End Sub End Class

Jika ANDA jalankan hasilnya akan seperti gambar di bawah ini:

Itulah project selengkapnya. OK Gan

Bagikan Artikel ini