» Tanpa Label » Mengkoneksikan Database Ms Access Pada Visual Basic 2008 ( 32 bit )

Mengkoneksikan Database Ms Access Pada Visual Basic 2008 ( 32 bit )

Oleh
Mengkoneksikan Database Ms Access Pada Visual Basic 2008 ( 32 bit ) 
Sebelum memulai praktek, terlebih dahulu kita membuat database menggunakan Microsoft Accsess . 
  1. Buatlah dua Database dengan nama Mahasiswa.accdb ( Ms.Office 2007 ) dan Mahasiswa.Mdb ( Ms.Office 2003 ) 
  1. Buatlah tabel dengan nama DataPribadi yang terdiri dari field (NIM-Text-13) , (Nama-Text-30), (Tempat_Lahir-Text-30), (Tanggal_Lahir-Date/Time), (No_HP-Text-15), (Email-Text-30) 
Gambar 
  1. Kemudian isi data data tersebut sebanyak 5 Data 
Gambar 
  1. Simpan Database di folder D 

Setelah Database terbuat , buatlah aplikasi untuk koneksi ke-2 database access dan menampilka data pada Tabel : DataPribadi 
  1. Buatlah Form 1 dan Form2 dengan 2 button dan Data Grid View Seperti gambar berikut  
No 
Tool 
Nama 
Keterangan 
1 
Button 
BtnTampil 
BtnTampil 
2 
Button 
Hapus Layar 
Button1 
3 
Data GridView 
Data Grid View 
DataGridView1 
  1. Berikut adalah Bentuk Dari aplikasinya 
Gambar 
  1. Kemudian isilah Kode Berikut ini untuk aplikasi dengan Database Mahasiswa.mdb 
Imports System.Data.OleDb 
  
Public Class Form1 
    Public DB As OleDbConnection 
    Public ADP As OleDbDataAdapter 
    Public DS As New DataSet 
  
    Private Sub BtnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTampil.Click 
        Dim MyDb = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=D:Mahasiswa.mdb" 
        DB = New OleDbConnection(MyDb) 
        If DB.State = ConnectionState.Closed Then 
            DB.Open() 
        End If 
  
        ADP = New OleDbDataAdapter("Select * from DataPribadi", DB) 
        DS = New DataSet 
        ADP.Fill(DS, "DataPribadi") 
        DataGridView1.DataSource = DS.Tables("DataPribadi") 
    End Sub 
  
    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick 
  
    End Sub 
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        DS.Clear() 
        DataGridView1.Refresh() 
    End Sub 
End Class 
  1. Dan isi Kode pada form2 dengan database Mahasiswa.accdb sebagai berikut : 
Imports System.Data.OleDb 
Public Class Form2 
    Public DB As OleDbConnection 
    Public ADP As OleDbDataAdapter 
    Public DS As New DataSet 
  
    Private Sub Tampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tampil.Click 
        Dim MyDb = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:Mahasiswa.accdb" 
        DB = New OleDbConnection(MyDb) 
        If DB.State = ConnectionState.Closed Then 
            DB.Open() 
        End If 
  
        ADP = New OleDbDataAdapter("Select * from DataPribadi", DB) 
        DS = New DataSet 
        ADP.Fill(DS, "DataPribadi") 
        DataGridView1.DataSource = DS.Tables("DataPribadi") 
    End Sub 
  
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        DS.Clear() 
        DataGridView1.Refresh() 
    End Sub 
End Class 
  1. Sebelum meruning program atur dan input database dengan cara , pilih menu Data , kemudian pilih Add New Data Source 
Gambar 
  1. Kemudian Pilih Database dan Next 
Gambar 
  1. Pilih Database yang diperlukan (untuk menambah yang baru pilih new connection) kemudian Next 
Gambar 
  1. Centang Tables dan View untuk melakukan tahap terakhir dan Finish 
Gambar 
  1. Kemudian Running program berikut adalah Bentuk Aplikasi yang dibuat 
Gambar 
  1. Test fungsi Aplikasi database dengan menekan tombol "Tampil" dan "Hapus Layar" untuk mengahapus Layar 
Gambar 
Gambar : Fungsi Tampil 
Gambar 
Gambar : Fungsi Hapus Layar 

G+

0 Komentar untuk "Mengkoneksikan Database Ms Access Pada Visual Basic 2008 ( 32 bit )"

Back To Top