VB 2010 - Koneksi Database Access 2007

Pada Pembelajaran VB 2010 kali ini adalah tentang Cara Membuat Koneksi Database Access 2007. Pembelajaran ini juga bisa anda gunakan Untuk Database Access 2010 atau 2013 Jika anda ingin membuat Aplikasi berbasis Database dengan VB Net 2010 maka Pembelajaran kali ini adalah sangat penting sekali :)

Berikut langkah-langkahnya
1. Membuat Project Baru VB 2010 dan Menyimpannya
2. Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
3. Design Form, Masukan Koding dan Jalankan Program

#1 - Membuat Project Baru VB 2010 dan Menyimpannya
Pastikan anda sudah Install Visual Basic 2010 pada komputer anda,
Klik Start pada Windows
All Programs

Klik Microsoft Visual Studio 2010
Klik File - New - Project
Maka akan muncul :
Masukan Name, Location
Klik OK
Maka akan keluar Form1 (lihat gambar diatas)

#2 - Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
Buatlah sebuah database dengan nama : DBBelajarvb.accdb
Buatlah sebuah Tabel dengan Nama : Barang
Berikut Design Tabel Barang :
Jangan lupa, sebagai contoh masukan data ditabel Barang agar nantinya bisa terlihat :)
Setelah selesai, simpan pada folder Bin / Debug

#3 -  Design Form, Masukan Koding dan Jalankan Program
Buatlah sebuah Form seperti gambar dibawah
Design form diatas hanya ditambahkan DataGridView1


Masukan Koding dibawah ini :

Imports System.Data.OleDb
Public Class Form1
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBBelajarvb.accdb"
Conn = New OleDbConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Barang")
DataGridView1.DataSource = (ds.Tables("Barang"))
End Sub
End Class

Kemudian silahkan jalankan Aplikasi anda :)


Silahkan anda praktikan, kemudian jika anda sudah sukses membuat koneksi database diatas, anda bisa melanjutkan berlajar VB .NET yaitu Cara Membuat Pencarian Data Dengan VB .NET

Subscribe to receive free email updates:

14 Responses to "VB 2010 - Koneksi Database Access 2007"

  1. Dear Bu Tutarni, lokasi folder Bin / Debug di mana ya?

    Terimakasih.

    ReplyDelete
    Replies
    1. Hi Mark,
      Lokasi Bin/Debug ada didalam folder project yang kamu buat.
      Jika telah menyimpan Project, pasti ada bin debug didalamnya..
      silahkan dicari aja ya...

      Delete
    2. bu Tutarni Aliya saya mau bertanya, bagaimana cara memasukkan 2 tabel access (tbl_rak & tbl_kategori) ke combobox 1 dan 2 (combobox1 = tbl_kategori & combobox2 = tbl_rak)?

      terima kasih sebelumnya

      Delete
  2. bu Tutarni,
    boleh bertanya.. adakah salah dengan code hapus data ini :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
    If TextBox1.Text = "" Then
    MsgBox("Isi kode barang terlebih dahulu")
    TextBox1.Focus()
    Exit Sub
    Else
    If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
    Call Koneksi()
    cmd = New MySqlCommand("Delete * from number where no='" & TextBox1.Text & "'", Conn)
    cmd.ExecuteNonQuery()
    Call Tampilkan()
    MsgBox("data terhapus")
    Else
    MsgBox("gagal")
    End If
    End If
    Catch ex As Exception
    MsgBox(ex.ToString, MsgBoxStyle.Critical, "error")
    End Try
    End Sub
    End Class

    kenapa database mysql tidak terhapus ..
    Trimakasih sebelumnya.

    ReplyDelete
  3. coba perhatikan spasi tanda "'"& TextBox1.text &"'" itu tanda petik doble kemudian koma dan tanda petik doble, untuk diawal dan diakhir tnda petik harus sama.
    semoga membantu

    ReplyDelete
  4. bu Tutarni Aliya saya mau bertanya, bagaimana cara memasukkan 2 tabel access (tbl_rak & tbl_kategori) ke combobox 1 dan 2 (combobox1 = tbl_kategori & combobox2 = tbl_rak)?

    terima kasih sebelumnya

    ReplyDelete
    Replies
    1. Pake fungsi while adam, tp buka dlu table ny , apa nama field ny

      Delete
  5. bu Tutarni Aliya saya mau bertanya, bagaimana cara memasukkan 2 tabel access (tbl_rak & tbl_kategori) ke combobox 1 dan 2 (combobox1 = tbl_kategori & combobox2 = tbl_rak)?

    terima kasih sebelumnya

    ReplyDelete
  6. bu Tutarni Aliya saya mau bertanya, bagaimana cara memasukkan 2 tabel access (tbl_rak & tbl_kategori) ke combobox 1 dan 2 (combobox1 = tbl_kategori & combobox2 = tbl_rak)?

    terima kasih sebelumnya

    ReplyDelete
  7. bu Tutarni Aliya saya mau bertanya, bagaimana cara memasukkan 2 tabel access (tbl_rak & tbl_kategori) ke combobox 1 dan 2 (combobox1 = tbl_kategori & combobox2 = tbl_rak)?

    terima kasih sebelumnya

    ReplyDelete