Tuesday, May 9, 2017

MENGHUBUNGKAN DATABASE MS ACCESS 2007 DENGAN VISUAL BASIC.NET

LANGKAH-LANGKAH UNTUK MEMBANGUN SEBUAH DATABASE (MS ACCESS 2007) DENGAN MICROSOFT VISUAL BASIC. NET 

1. Buatlah sebuah folder kerja yang akan kita bangun projek apapun pada drive D

2. Buatlah sebuah database dengan microsoft access pada folder tempat kerja kita
        Misalnya : Dbrokok.accdb (nama database pada folder kerja saya)
       .accdb adalah extension dari database access pada Microsoft office 2007 tidak perlu ditulis nanti           akan otomatis terbaca seperti diatas.

3. Buatlah table-tabel sesuai dengan kebutuhan kita, salah satu contoh table yang akan saya bangun         adalah table wilayah dengan nama tabelnya adalah T_Wilayah. Jika sudah selesai membangun             database dan table-tabel pada Microsoft access 2007 sekarang mari kita hubungkan database               tersebut dengan Microsoft visual basic.net

4. Buka aplikasi visual basic.net

5. Buatlah sebuah project dengan memilih new projek (lihat gambar diatas)



6. Lihat gambar diatas pilih windows forms application dengan baris location diisi nama folder               tempat kita bekerja pada drive D (lihat poin 1)

7. Pilih tombol OK

8. Setelah project visual basic. Net kita terbuka buatlah sebuah module penghubung dengan cara sbb:
          a. Klik kanan pada nama projek yang ada pada lembar kerja sebelah kanan (perhatikan                            gambar)  pilih add - module


b. Tulis listing seperti dibawah ini:

Imports Microsoft.VisualBasic
Imports System.Data.OleDb

Module Module1
    Public conn As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public Cmd As New OleDbCommand
    Public dr As OleDbDataReader
    Public str As String

Public Sub KoneksiDB()
 str = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DelProgram\DbRokok.accdb")
        conn = New OleDb.OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub

End Module

Tampak  seperti gambar dibawah ini:

9.  Buatlah sebuah form baru pada lembar kerja kita untuk menampilkan database yang sudah kita            bangun dan kita koneksikan ke visual basic.net melalui module.
     untuk membuat sebuah form baru sama seperti gambar pada poin 8.a tinggal kita memilih                   windows form

10. Double klik pada form dan kita akan berada pada form load (lihat gambar dibawah ini)

11. Klik pada bagian atas public class form1 (lihat gambar diatas) dan tulis listing seperti dibawah ini :
   Imports System.Data.OleDb

12. Klik pada private sub form1_load dan tulis listing seperti dibawah ini
   Call KoneksiDB()

     Call koneksiDB (nama yang kita buat pada module sesuai dengan keingin kita) ini adalah koneksi        yang sudah kita buat pada module dan kita panggil pada form.
13. Untuk menampilkan data dari ms access ke table dapat kita lakukan dengan cara sebagai berikut:
a.      Tampilkan datagrid view pada form
b.    Pada lembar kerja form buatlah sebuah sub bagian dengan cara menulis nama sub tepat dibawah Public Class Form1
Misalnya sub tampilkan_data dan tekan enter
c.       Tulis listing seperti dibawah ini

Sub tampilkan_Data()
da = New OleDbDataAdapter("select * from T_wilayah", conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "T_wilayah")
DataGridView1.DataSource = (ds.Tables("T_wilayah"))
DataGridView1.Columns(0).Width = 77
DataGridView1.Columns(1).Width = 200
End Sub

Sedikit penjelasan da, ds an conn adalah nama yang sudah kita buat pada module bisa menggunakan nama apa saja. T_wilayah adalah nama table pada ms access




Sekian artikel pertama saya hari ini semoga dapat bermanfaat untuk kita semua









1 comment:

  1. Kasir4D Agen Togel Bandar Togel Dan Casino Online Terpercaya

    Menghadirkan pasaran togel resmi dan games casino online yang seru yang dapat anda bermain di dalam nya dengan kenyamanan dan keamanan yang sangat terjamin

    Bonus dan discount menarik yang menanti anda di Kasir4D
    Bonus Cashback 5% Up 15%
    Bonus Refferal 2% Setiap harinya
    Dan Masih Banyak Bonus Menarik Lainnya Menanti Anda

    Jadwal Tutup Pasaran Togel
    Pasaran Sydney
    Tutup : 12.20 WIB & Buka : 14.00 WIB
    Pasaran Singapore
    Tutup : 17.20 WIB & Buka : 17.45 WIB
    Pasaran Hongkong
    Tutup : 22.05 WIB & Buka : 23.00 WIB

    Kunjungi :
    Webiste : Kasir4D
    BBM : DBE662DF
    Facebook : Kasir4D
    Twitter : Kasir4D
    Prediksi : PREDIKSI TOGEL
    Blog : Kasir4D

    Situs - situs Games Recommed Terbaik Dan Terbesar
    Agen Domino99
    Agen BandarQ
    Agen Poker Online
    Agen Togel Online
    Casino Online

    ReplyDelete