PERTEMUAN KE 13

Pertemuan ke 13 ini kita akan membahas tentang koneksi ke data basic dengan microsoft office access 2007

Database   adalah informasi yang tersimpan dan tersusun rapi di dalam suatu tempat, dan dapat dengan mudah dimanipulasi seperti menambah data, menghapus, mencari, mengatur informasi yang kita butuhkan

ADO.Net 3.5 merupakan hasil pengembangan dari ADO.Net 2.x sebelumnya, yang merupakan paket untuk mengakses dan mengelolah sumber data (database) atau sumber data lainnya. Berikut ini komponen .NET Data Provider dari ADO.Net.3.5 

Latihan Database Access dan Koneksi dengan ADO.Net 3.5

1.      Buat Database pada Microsoft Access, dengan struktur sebagai berikut :

1.      Buat project baru, dengan nama Prak8

2.      Klik Tab Data, lalu klik Show data source    Klik Add New Data Source ….

1.      Pilih Database, Klik Next

1.      Klik New Connection, Pilih Microsoft Access Data File

1.      Klik Continue, pada kotak dialog add connection, klik tombol Browse

1.      Pilih database access : dbMhs

2.      Klik tombol  test connection, kemudian klik OK

1.      Klik Next, pada kotak diaolog configuration wizard, klik next

c  

     Beri tanda cek pada table, klik finish

      Kemudian, klik dan drag ke area form Masing-masing field dari table Mhs Dan hasil drag dari masing-masing field dari table mhs seperti gambar berikut ini

Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging

contoh program terkoneksi ke database

Adapun tahapan atau cara yang dapat kita lakukan dalam membangun sebuah aplikasi database sederhana seperti pada gambar di atas adalah sebagai berikut :

a.       Buat database dengan Microsoft Access dengan format 2003 dengan nama database PEMBELIAN.MDB dengan struktur tabel berikut ini:

Simpan Tabel di atas dengan nama: BARANG

b.      Keluar dari Microsoft Access, kemudian buka Visual Basic .Net 2008 

a.       Selanjutnya buat modul untuk koneksi database dengan cara klik menu Project>Add Modul, pada kotak dialog klik tombol Add.

b.      Ganti nama modul tersebut dengan nama KoneksiDB.vb, kemudian ketik modul berikut ini:

Imports System.Data

Module KoneksiDB

Public Dataku AsNew OleDb.OleDbConnection

Public Tampil AsNew OleDb.OleDbCommand

Public Tampilkan As OleDb.OleDbDataReader

Public Grid AsNew OleDb.OleDbDataAdapter

Public DS AsNew DataSet

Public Kata AsString

Public Baris AsNew BindingSource

Public Perintah AsNew OleDb.OleDbCommand

PublicSub Koneksi()

Try

                Dataku.Close()

                Dataku.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;"& _

"Data Source=D:\DotNet\Database\pembelian.mdb"

                Dataku.Open()

Catch ex As Exception

                MsgBox(ex.ToString())

EndTry

EndSub

EndModule

a.       Kemudian ketik program berkut ini pada Form1 sebagai berikut :

PublicClass Form1

PrivateSub TampilData()

Call Koneksi()

        DS = New DataSet

        Kata = "select * from barang"

        Grid = New OleDb.OleDbDataAdapter(Kata, Dataku)

        Grid.Fill(DS, "barang")

Dim Gridview AsNew DataView(DS.Tables("barang"))

        DataGridView1.DataSource = Gridview

EndSub

PrivateSub Bersih()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

EndSub

PrivateSub Mulai()

        TampilData()

        Bersih()

        TextBox1.Focus()

EndSub

PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Close()

EndSub

 PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically

        Mulai()

EndSub

PrivateSub DataGridView1_CellClick(ByVal sender AsObject, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

Try

            TextBox1.Text = DataGridView1.SelectedCells(0).Value

            TextBox2.Text = DataGridView1.SelectedCells(1).Value

            TextBox3.Text = DataGridView1.SelectedCells(2).Value

            TextBox4.Text = DataGridView1.SelectedCells(3).Value

Catch ex As Exception

EndTry

EndSub

PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Call Mulai()

EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim a AsInteger

        a = MsgBox("Yakin Data Barang dengan Nama = "& TextBox2.Text &" Ingin dihapus?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Pesan Penghapusan")

If a = vbYes Then

Try

Call Koneksi()

                Perintah.Connection = Dataku

                Perintah.CommandType = CommandType.Text

                Perintah.CommandText = "Delete * from barang where kodebrg='"& TextBox1.Text &"'"

                Perintah.ExecuteNonQuery()

Call Mulai()

Catch ex As Exception

                MsgBox(ex.ToString)

EndTry

EndIf

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

            Perintah.Connection = Dataku

            Perintah.CommandText = CommandType.Text

            Perintah.CommandText = "insert into barang values('"& TextBox1.Text &"','"& TextBox2.Text &"','"& TextBox3.Text &"',"& TextBox4.Text &")"

            Perintah.ExecuteNonQuery()

Call Mulai()

MsgBox("Data Berhasil disimpan", MsgBoxStyle.Information, "Penyimpanan Data(")")

Catch Ex As Exception

            MsgBox("Kode Barang Sudah Ada, Silahkan isi kode barang yang lain")

            TextBox1.Focus()

EndTry

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Try

            Perintah.Connection = Dataku

            Perintah.CommandText = CommandType.Text

            Perintah.CommandText = "update barang set namabrg='"& TextBox2.Text &"', satuan='"& _

            TextBox3.Text &"', harga="& TextBox4.Text &" where kodebrg='"& TextBox1.Text &"'"

            Perintah.ExecuteNonQuery()

Call Mulai()

MsgBox("Data Berhasil diedit", MsgBoxStyle.Information, "Pengeditan Data(")")

Catch ex As Exception

            MsgBox("Data Yang Akan Diedit Belum Tersimpan Dalam Database"& vbCr & _

"Data yang sudah tersimpan yang dapat diedit, simpan dahulu data anda")

            Button1.Focus()

EndTry

EndSub

PrivateSub TextBox1_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox2.Focus()

EndIf

EndSub

PrivateSub TextBox2_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox3.Focus()

EndIf

EndSub

PrivateSub TextBox3_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown

If e.KeyCode = Keys.Return Then

            TextBox4.Focus()

EndIf

EndSub

PrivateSub TextBox4_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown

If e.KeyCode = Keys.Return Then

            Button1.Focus()

EndIf

EndSub

PrivateSub DataGridView1_KeyUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp

Try

            TextBox1.Text = DataGridView1.SelectedCells(0).Value

            TextBox2.Text = DataGridView1.SelectedCells(1).Value

            TextBox3.Text = DataGridView1.SelectedCells(2).Value

            TextBox4.Text = DataGridView1.SelectedCells(3).Value

Catch ex As Exception

EndTry

EndSub

PrivateSub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

EndSub

EndClass