Cara Menghubugkan Database dengan Visual Basic 2010

    Pertama sebelum Database dihubungkan ke Visual Basic 2010, buatlah Databasenya terlebih dahulu. Disini saya menggunakan Database Ms.Access. Saya akan membuat Database Ms.Access dengan Nama Databasenya  contoh "DataMatkul" dengan format *mdb (2000).  Dan kemudian Field nya sebagai berikut, setelah itu Save dan beri nama tabelnya contoh "Matkul" 

(seperti gambar dibawah ini)

    Setelah dibuat databasenya maka bukalah Visual Basic nya, kemudian New Project dan beri nama projectnya contoh "InputDataMatkul", kemudian Ok

(seperti gambar dibawah ini)

    Setelah membuat projectnya, kemudian buat designnya untuk tempat menampilkan Database-nya. ToolBox > DataGridView sesuaikan ukurannya, setelah itu Tool DataGridView nya diganti nama dengan "dgv"

(seperti gambar dibawah ini)

    Setelah mengganti nama DataGridView menjadi "dgv", kemudian membuat modul untuk menghubungkan/memanggil databasenya. Buka tool Project yang ada diatas, kemudian Add New Item.

(seperti gambar dibawah ini)

    Setelah itu, pilih module kemudian beri nama modulnya. contoh Koneksi. Kemudian Add

    Setelah itu, memasukan scrip di Tab module tersbuat yang diberi nama Koneksi tadi

(seperti gambar dibawah ini)

Imports System.Data.OleDb
Module koneksi
    Public conn As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public cmd As OleDbCommand
    Public dr As OleDbDataReader 
    Sub koneksiDb() 
conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;Data source=DataMatkul.mdb")
        conn.Open()
    End Sub
End Module

    Setelah itu, kemudian buka Tab Code-nya ,dan isikan scripnya. untuk menampilkan databasenya yang telah dihubukan, diVisualbasic. "From1  Load"

(seperti gambar dibawah ini)

Public Class Form1

    Sub tampil()

        da = New OleDb.OleDbDataAdapter("select * from Matkul", conn)

        ds = New DataSet

        da.Fill(ds)

        dgv.DataSource = ds.Tables(0)

        dgv.ReadOnly = True

    End Sub

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

        Call koneksiDb()

        Call tampil()

    End Sub

End Class

    Kemudian save project tersebuat SaveAll (Ctrl+Shift+S), kemudian tentukan lokasi untuk penyimpanan project tersebut, Setelah lokasi penyimpanan sudah ditentukan, kemudian Save.

(seperti gambar dibawah ini)

     Setelah di Save, kemudian database ms.access nya yang diberi nama "DataMatkul" tadi di copy/cat ke folder VisualBasic yang dibuat tadi. Dan ditempatkan di sebagai berikut, project tadi dengan nama "InoutDataMatkul", maka databasenya ditempatkan di ; Buka folder project InputDataMatkul, kemudian ada folder InputDataMatkul lagi dibuka, kemudian buka folder bin, kemudian buka folder Debug, kemudian Paste kan

    Setelah di save, kemudian buka VisualBasic-nya kembali, kemudian jalankan. Jika berhasil tampilannya akan seperti gambar dibawah ini:

Berbagi :