Membuat koneksi Database menggunanakan VB.Net

Hay sobat bloger n para New Gen... kali ini saya akan mengshare tentang VB.Net (Visual Studio 2008) disini kita akan belajar bagaimana cara mengkoneksikan Database Acces ke aplikasi yang kita buat. Ok langsung saja...

Pertama kita buat Databasenya terlebih dahulu menggunakan Microsoft Access, Buka Accessnya pilih Blank database lihat gambar di bawah.

Klik No1 yang di gambar, No2 adalah nama folder tempat kita menyimpan database

No3 nama database, No4 type accessnya disini kita menggunakan access Database 2002-2003>>Ok, kemudian Klik No5 Create

Setelah selesai pilih View>>Design View dan berinama Table Name dengan “tbbarang” tanpa tanda kutip >> Ok, akan muncul seperti gambar di bawah ini.

Delete Field yang dikotak merah, kemudian isi

Field Name     Data Type      Field Size

Kdbarang        Text                 5

Nmbarang       Text                 25

Hrg_satuan      Number           Long Integer

Save, Selesai sudah membuat Database Accessnya selanjutnya Buka VB.Netnya (Visual Studio 2008) Bisa Doubble Klik atau Klik kanan kemudian Open.

Pilih File>>New>>Project

Pilih Windows>>Windows Forms Application

Berinama Aplikasi.VBNet di Name, pilih folder penyimpanannya dengan klik Browse kemudian OK.

Doubble di Form1

 Kemudian tuliskan coding yang didalam kotak, lihat gambar

 Coding :

Imports System

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Private StrCon As String

    Private ConMgr As OleDbConnection

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Aplikasi.VBNet\Dbpenjualan.mdb;"

        ConMgr = New OleDbConnection

        ConMgr.ConnectionString = StrCon

        Try

            ConMgr.Open()

            MsgBox("Koneksi Terhubung")

            ConMgr.Close()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

End Class

Maksud dari : "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = D:\Aplikasi.VBNet\Dbpenjualan.mdb;" kita memanggil Database yang kita buat tadi yang kita simpan di D: Folder Aplikasi.VBNet

Kemudian Simpan dan Running deh...

Akhirnya selesai.. semoga bermanfaat... Salam New Gen!!!