KONEKSI DATABASE DENGAN MENGGUNAKAN METODE MODUL

Liburan Maulid Nabi Besar Muhammad Saw kali ini saya akan posting tentang koneksi  database lagi, namun berbeda dengan postongan yang dulu pernah saya saya posting, kalau dulu menggunakan USING sekarang menggunakan Modul, langsug saja ikuti langkah-langkahnya,,,,,,,

1.       Buat database dengan fields sbb

NAMA	TIPE DATA
KD_BRG	TEXT
NM_BRG	TEXT
H_BELI	CURRENCY
H_JUAL	CURRENCY
JUMLAH	NUMBER

2.       Kemudian buat form dengan tampilan berikut :

3.       Buat modul dengan cara klik kanan pada solution exporer ( pojok knan atas)  >> add >> module

Dan tuliskan kode berikut :

Imports System.Data.OleDb

Module MODULE1

    Public CONN As OleDbConnection

    Public CMD As OleDbCommand

    Public DS As New DataSet

    Public ADP As OleDbDataAdapter

    Public RD As OleDbDataReader

    Public LOKASI As String

    Public SIMPAN As String

    Public UBAH As String

    Public HAPUS As String

    Public Sub KONEKSI()

        LOKASI = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = DB_BRG.mdb"

        CONN = New OleDbConnection(LOKASI)

        If CONN.State = ConnectionState.Closed Then

            CONN.Open()

        End If

    End Sub

End Module

4.       Kemudian kembali ke form dan double klik pada form dan tuliskan kode berikut :

Imports System.Data.OleDb

Public Class Frm_db1

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

        KONEKSI() ' memanggil sub koneksi

        tampilgrid() ' memanggil sub tampilgrid

    End Sub

Sub untuk menampilkan ke datagridview

    Sub tampilgrid()

        ADP = New OleDbDataAdapter("select * from tb_brg", CONN)

        DS = New DataSet

        ADP.Fill(DS, "tb_brg")

        DataGridView1.DataSource = DS.Tables("tb_brg")

    End Sub

Setelah itu jalankan program dengan menekan tombol F5,

Selesai....

Terimakasih, semoga bermanfaat..........