VB 2010 - Koneksi Database Access 2007

8:27:00 PM
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

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

14 komentar

Write komentar
November 26, 2014 at 2:40 PM delete

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

Terimakasih.

Reply
avatar
Tutarni Aliya
AUTHOR
December 3, 2014 at 2:14 AM delete

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...

Reply
avatar
Eco Putra
AUTHOR
December 18, 2014 at 2:34 PM delete

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.

Reply
avatar
January 29, 2015 at 11:32 AM delete

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

Reply
avatar
adam f
AUTHOR
March 23, 2015 at 12:50 PM delete

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

Reply
avatar
adam f
AUTHOR
March 23, 2015 at 12:50 PM delete

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

Reply
avatar
adam f
AUTHOR
March 23, 2015 at 12:51 PM delete

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

Reply
avatar
adam f
AUTHOR
March 23, 2015 at 12:51 PM delete

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

Reply
avatar
adam f
AUTHOR
March 23, 2015 at 12:51 PM delete

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

Reply
avatar
Atman ZL
AUTHOR
March 24, 2015 at 8:01 PM delete

Maksudny isi recordny

Reply
avatar
Atman ZL
AUTHOR
March 24, 2015 at 8:02 PM delete

Maksudny isi recordny

Reply
avatar
Atman ZL
AUTHOR
March 24, 2015 at 8:02 PM delete

Maksudny isi recordny adam

Reply
avatar
Atman ZL
AUTHOR
March 24, 2015 at 8:25 PM delete

Pake fungsi while adam, tp buka dlu table ny , apa nama field ny

Reply
avatar