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 databasePEMBELIAN.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 AsSystem.EventArgs) Handles Button5.Click
Me.Close()
EndSub
PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
Mulai()
EndSub
PrivateSub DataGridView1_CellClick(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.DataGridViewCellEventArgs) HandlesDataGridView1.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 AsSystem.EventArgs) Handles Button4.Click
Call Mulai()
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.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 AsSystem.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 AsSystem.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 AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Return Then
TextBox2.Focus()
EndIf
EndSub
PrivateSub TextBox2_KeyDown(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Return Then
TextBox3.Focus()
EndIf
EndSub
PrivateSub TextBox3_KeyDown(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown
If e.KeyCode = Keys.Return Then
TextBox4.Focus()
EndIf
EndSub
PrivateSub TextBox4_KeyDown(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
If e.KeyCode = Keys.Return Then
Button1.Focus()
EndIf
EndSub
PrivateSub DataGridView1_KeyUp(ByVal sender AsObject, ByVal e AsSystem.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 AsSystem.EventArgs) Handles TextBox4.TextChanged
EndSub
EndClass
No comments:
Post a Comment