Aplikasi sederhana dengan Visual Basic 2010 dan Ms.Acces 2010

Aplikasi Sederhana dengan Visual Studio 2010 dan Ms. Acces 2010
1. pertama buatlah database dengan nama dbbelajar dengan tabel bernama siswa seperti gambar di bawah ini :
2. setelah database terbuat, bukalah Visual Basic 2010 dan buatlah New Project dengan nama project belajardengandatabase
3. masukan 4 Label, 3 Button, 2 Combobox, 2 Textbox dan 1 DataGridView dari Toolbox, seperti contoh di bawah ini :
4. klik form1, dan lihat bagian Properties, cari StartPosition rubahlah CenterScreen
5. kemudian cari ControlBox di Properties Form1 dan rubahlah menjadi False
6. lanjutkan rubahlah Label 1 pada Properties bagian Text menjadi NIS, Label 2 menjadi Nama, Label 3 menjadi Email,Label 4 menjadi Kelas, untuk Button di bagian properties masing-masing rubahlah padabagian Name dan Textnya,button1 pada Name menjadi BtnSimpan dan Text menjadi &Simpan, button 2 pada Name menjadi BtnEdit dan Textmenjadi &Edit, button 3 pada Name menjadi BtnHapus dan Text menjadi &Hapus, kemudian untuk ComboBox 1 rubah pada bagian Name menjadi CmbNIS, ComboBox 2 rubah pada bagian Name menjadi CmbKelas, terakhir untuk Textbox 1 rubah pada bagian Name menjadi TxtNama serta Textbox 2 rubah pada bagian Name menjadi TxtEmail, hingga seperti gambar di bawah ini :
7. simpanlah terlebih dahulu project yang kita buat dengan nama project belajardengandatabase,
8. setelah disimpan, masukan database siswa yang sebelumnya sudah dibuat di MS Access ke Folder Project anda di Folder Visual Studios 2010, langkah-langkahnya seperti berikut: langkah-1 buka Folder Visual Studios 2010
9. langkah-2, buka Folder Project
10. langkah-3, buka Folder Project belajar dengan database
11. langkah – 4, buka Folder belajardengandatabase
12. langkah – 5, bukalah Folder bin
13. langkah – 6, Bukalah Folder Debug dan Simpan file database dbsiswa yang dibuat tadi di folder ini
14. jika database sudah disimpan, mari lanjutkan ke Desain Form kembali, double klik pada Form, masukan perintah :

Imports System.Data.OleDb
sebelum Public Class Form1
dan masukan rumus berikut setelah Public Class Form1
Private Conn As OleDbConnection = Nothing
Private cmd As OleDbCommand = Nothing
Private sql As String = Nothing
Private reader As OleDbDataReader = Nothing
Private da As OleDbDataAdapter = Nothing
Function Connect()
If Not Conn Is Nothing Then
Conn.Close()
End If
Conn.Open()
Return Conn
End Function
Function Closedd()
Conn.Close()
Return Connv
End Function

Sub LoadData()
Connect()
sql = "select NIS from siswa"
cmd = New OleDbCommand(sql, Conn)
reader = cmd.ExecuteReader()
Try
CmbNIS.Items.Clear()
While reader.Read
CmbNIS.Items.Add(reader.GetString(0))
End While
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Closedd()
End Sub

Sub Tampil()
Connect()
Try
Dim dt As New DataTable
da = New OleDbDataAdapter("select * from siswa", Conn)
da.Fill(dt)
DataGridView1.DataSource = dt
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Closedd()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Conn Is Nothing Then Conn.Close()
Dim ConnString As String
ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\dbbelajar.accdb"
Try
Conn = New OleDbConnection(ConnString)
Conn.Open()
Me.Text = "Mengubah data Anggota [Connected]"
LoadData()
Tampil()
Conn.Close()
Catch ex As Exception
MessageBox.Show("Koneksi Error : " + ex.Message)
End Try
CmbKelas.Items.Add("X")
CmbKelas.Items.Add("XI-IPS")
CmbKelas.Items.Add("XI-IPA")
CmbKelas.Items.Add("XI-Bahasa")
CmbKelas.Items.Add("XII-IPS")
CmbKelas.Items.Add("XII-IPA")
CmbKelas.Items.Add("XII-Bahas")
seperti gambar di bawah ini :
15. masukan rumus berikut dibawah Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load rumusnya sebagai berikut :
If Not Conn Is Nothing Then Conn.Close()
Dim ConnString As String
ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\dbbelajar.accdb"
Try
Conn = New OleDbConnection(ConnString)
Conn.Open()
Me.Text = "Mengubah Data Siswa [Terkoneksi]"
LoadData()
Tampil()
Conn.Close()
Catch ex As Exception
MessageBox.Show("Koneksi Error : " + ex.Message)
End Try
CmbKelas.Items.Add("X")
CmbKelas.Items.Add("XI-IPS")
CmbKelas.Items.Add("XI-IPA")
CmbKelas.Items.Add("XI-Bahasa")
CmbKelas.Items.Add("XII-IPS")
CmbKelas.Items.Add("XII-IPA")
CmbKelas.Items.Add("XII-Bahas")
seperti dicontohkan pada gambar di bawah ini :

16. double klik pada button Simpan dan masukan perintah seperti berikut :

Connect()
Dim insertquery As String
Dim Kelas As Boolean
Dim Hasil As Integer
Dim cmd As OleDbCommand
insertquery = ("insert into siswa(NIS,Nama,Email,Kelas)Values('" & CmbNIS.Text & "','" & TxtNama.Text & "','" & TxtEmail.Text & "','" & Kelas & "')")
Try
cmd = New OleDbCommand(insertquery, Conn)
Hasil = cmd.ExecuteNonQuery
If Hasil > 0 Then
MessageBox.Show("record Berhasil Dimasukan", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
CmbNIS.Text = ""
TxtEmail.Text = ""
TxtNama.Text = ""
Tampil()
LoadData()
End If
Catch ex As OleDbException
MessageBox.Show("Failed : " & ex.Message, "Gagal", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Closedd()

17. dan masukan perintah berikut pada Button Edit

Connect()
Dim hasil As Integer
sql = "Update siswa set Nama='" & TxtNama.Text & "',Email='" & TxtEmail.Text & "', Kelas='" & CmbKelas.Text & "' where NIS='" & CmbNIS.Text & "'"
cmd = New OleDbCommand(sql, Conn)
Try
hasil = cmd.ExecuteNonQuery
If (hasil > 0) Then
MessageBox.Show("Record Berhasil diubah", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
CmbNIS.Text = ""
TxtEmail.Text = ""
TxtNama.Text = ""
Tampil()
LoadData()
End If
Catch ex As OleDbException
MessageBox.Show("Failed : " & ex.Message)
End Try
Closedd()
seperti dicontohkan oleh gambar :

18. masukan perintah di bawah untuk Button Hapus

Connect()
Dim index As Integer = CmbNIS.SelectedIndex
Dim hasil As Integer
Dim pesan As DialogResult
sql = "delete from siswa where NIS='" & CmbNIS.Text & "'"
pesan = MessageBox.Show("Yakin Menghapus Data Siswa " & Chr(10) & "dengan id" & CmbNIS.Text & "...?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
cmd = New OleDbCommand(sql, Conn)
Try
If pesan = Windows.Forms.DialogResult.Yes = True Then
hasil = cmd.ExecuteNonQuery
CmbNIS.Text = ""
TxtEmail.Text = ""
TxtNama.Text = ""
Tampil()
End If
Catch ex As OleDbException
MsgBox("Failed : " & ex.Message)
End Try
Closedd()

dicontohkan seperti gambar di bawah ini :

Connect()
Dim Kunci As String = CmbNIS.Text
sql = "select * from siswa where NIS='" & Kunci & "'"
cmd = New OleDbCommand(sql, Conn)
reader = cmd.ExecuteReader
Try
reader.Read()
TxtNama.Text = reader.GetString(1)
TxtEmail.Text = reader.GetString(2)
CmbKelas.Text = reader.GetString(3)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Closedd()

seperti di contohkan gambar di bawah ini :
20. klik DataGridView dan lihat pada properties bagaian Dock rubah menjadi Bottom
21. Terakhir masukan MenuStrip dari ToolBox ke form bagian atas
22. setelah MenuStrip ditambahkan buatlah Menu > Exit dan Help > Tentang Software
23. double klik pada submenu Exit dan masukan perintah End serta masukan perintah pada submenu Tentang Software dengan cara doubleklik pada tentang software yaitu : MsgBox("Masih Versi Sederhana dalam naungan masih Belajar")
dan tampilan akhirnya seperti berikut :