Isi Data pada database Ms Acces dengan Visual Basic .Net

Sebelumnya sudah membuah database yang di bahas di Mengenal Database selanjutnya kita akan membahas bagaimana koneksi database ke dalam Microsoft Access dan menampilkan data serta mengisi data.

buat database baru dengan nama perpustakaan.mdb

buat tabel dengan nama buku, dan kolom yaitu (kode, judul, pengarang, penerbit)
isi satu data.

Berikut perintah untuk 

Imports System.Data.OleDb

Public Class frmBuku
    Public db As OleDbConnection
    Public cmd As OleDbCommand
    Public adp As OleDbDataAdapter
    Public dr As OleDbDataReader
    Public ds As New DataSet
    Public sql As String

    Sub openDb() 'Koneksi database
        Dim lokasi = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\Tomy Satria Alasi\Documents\perpustakaan.mdb"
        db = New OleDbConnection(lokasi)
        If db.State = ConnectionState.Closed Then
            db.Open()
            ' MsgBox("Berhasil Terhubung")
        End If
    End Sub
    Sub Tampil() ' Tampil Data
        adp = New OleDbDataAdapter("select *from buku", db)
        ds = New DataSet
        adp.Fill(ds, "buku")
        DataGridView1.DataSource = ds.Tables("buku")
    End Sub

    Private Sub frmBuku_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        openDb()
        Tampil()
    End Sub

    Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
        'Mengisi Data
        Try
            sql = "insert into buku(kode, judul, pengarang, penerbit) " & _
          " values('" & txtKode.Text & "','" & _
          txtJudul.Text & "','" &
          txtPengarang.Text & "','" &
          txtPenerbit.Text & "')"
            cmd = New OleDbCommand(sql, db)
            cmd.ExecuteNonQuery()
            Tampil()
            bersih()
        Catch ex As Exception
            MsgBox(ex.Message)
            '  MsgBox(sql)
        End Try


    End Sub
    Sub bersih() ' bersih file
        txtKode.Clear()
        txtJudul.Clear()
        txtPengarang.Clear()
        txtPenerbit.Clear()
        'txtKode.Text = ""
    End Sub

End Class

Agar jelas lihat vidio berikut untuk konfigurasi dan mengisi kode.

untuk kode bisa di unduh di sini