Cara Membuat Aplikasi VB Net CRUD Data Mahasiswa Dengan Database MS Access
Posted by Unknown on 00.45 with No comments
Alfian 14.30
Cara Membuat Aplikasi VB Net CRUD Data Mahasiswa Dengan Database MS Access
Pada artikel kali ini saya akan membahas tentang cara membuat aplikasi VB Net CRUD yang terhubung dengan database Ms Access yang nantinya akan digunakan sebagai penyimpan data-data yang kita masukkan, aplikasi ini mendukung CRUD yaitu Create, Read, Update, dan Delete yang maksudnya bisa membuat data baru, membaca data yang disimpan, melakukan pembaruan data, dan menghapus data yang disimpan.
Aplikasi VB Net CRUD ini juga saya lengkapi dengan Validasi Error, berupa validasi angka dan textbox tidak boleh kosong agar nantinya tidak terjadi error saat menjalankan aplikasi ini. Pada artikel ini saya menggunakan Visual Studio 2010, dan saya hanya memberikan source code saja agar pembaca bisa membuat aplikasi VB Net CRUD sendiri dan mempraktekkannya langkah demi langkah.
LANGKAH-LANGKAH PEMBUATAN APLIKASI DATABASE VB Net CRUD
1. Buatlah database dengan nama DBMHS.mdb dan nama tabel TabMHS, kemudian desain tabelnya seperti gambar di bawah ini lalu simpan di Desktop.
2. Buka Visual Studio anda, kemudian buatlah project baru dengan nama bebas, lalu desain formnya seperti gambar di bawah untuk property name-nya saya biarkan default.
Komponen dan properti :
Toolbox | Text | Properties Name |
|---|---|---|
Label1 | NIM | TextBox1 |
Label2 | NAMA | TextBox2 |
Label3 | SEMESTER | TextBox3 |
Label4 | JURUSAN | ComboBox1 |
Button1 | SIMPAN | |
Button2 | UBAH | |
Button3 | HAPUS | |
Button4 |
3. Setelah selesai desain form-nya kemudian simpan project tersebut dengan cara Klik File –> Klik Save All, setelah itu pindahkan database DBMHS.mdb ke direktori Debug project tersebut disimpan, default-nya ada pada direktori C:\Users\NAMA-USER\Documents\Visual Studio 2010\Projects\DATA MAHASISWA\DATA MAHASISWA\bin\Debug
LANGKAH SELANJUTNYA
1. Tambahkan Imports System.Data.OleDb sebelum Public Class form1 yang berfungsi untuk memasukkan komponen OLEDB Data Provider yang digunakan untuk mengakses database MS Access.
2. Selanjutnya tambahkan kode di bawah setelah Public Class form1
1 Dim con As New OleDbConnection
2
3 Sub Open_Koneksi()
4 con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0" & _
5 ";Data Source=DBMHS.mdb;" & _
6 "Persist Security Info=False;"
7 con.Open()
8 End Sub
9
10 Sub Data_Load()
11 Dim cmd As New OleDbCommand
12 Dim adapt As New OleDbDataAdapter
13 Dim dt As New DataTable
14
15 Try
16 If Not con.State = ConnectionState.Open Then Open_Koneksi()
17
18 cmd.Connection = con
19 cmd.CommandText = "SELECT * FROM TabMHS"
20 adapt.SelectCommand = cmd
21 adapt.Fill(dt)
22
23 With DataGridView1
24 .RowHeadersVisible = False
25 .AllowUserToAddRows = False
26 .ReadOnly = True
27 .DataSource = dt
28 End With
29 DataGridView1.Columns(0).Width = 100
30 DataGridView1.Columns(1).Width = 198
31 DataGridView1.Columns(2).Width = 60
32 DataGridView1.Columns(3).Width = 191
33
34 Catch ex As OleDbException
35 MessageBox.Show("Error: " & ex.Message)
36 Finally
37 con.Close()
38 End Try
39 End Sub
Penjelasan
- Dim con As New OleDbConnection berfungsi untuk membuat variabel OleDbConnection yang digunakan untuk melakukan koneksi ke database MS Access.
- Sub Data_Load() berfungsi untuk mengimpor data yang ada pada tabel database ke dalam DataGridView1 serta mengatur lebar setiap kolom pada tabel DataGridView1, silahkan ubah angka-angkanya agar pas dengan lebar DataGridView1.
3. Klik dua kali pada Form1, kemudian tambahkan kode Data_Load() di bawah setelah Private Sub form1_Load(ByVal s… yang berfungsi untuk memasukkan data dari tabel ke dalam DataGridView1 saat aplikasi pertama kali dijalankan.
4. Klik dua kali pada Button SIMPAN, kemudian tambahkan kode di bawah
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
If TextBox1.Text = "" Then
MessageBox.Show("NIM tidak boleh kosong ...", "Peringatan", MessageBoxButtons.OK)
TextBox1.Focus()
Exit Sub
ElseIf TextBox2.Text = "" Then
MessageBox.Show("Nama tidak boleh kosong ...", "Peringatan", MessageBoxButtons.OK)
TextBox2.Focus()
Exit Sub
ElseIf TextBox3.Text = "" Then
MessageBox.Show("Semester tidak boleh kosong ...", "Peringatan", MessageBoxButtons.OK)
TextBox3.Focus()
Exit Sub
ElseIf ComboBox1.Text = "" Then
MessageBox.Show("Jurusan tidak boleh kosong ...", "Peringatan", MessageBoxButtons.OK)
ComboBox1.Focus()
Exit Sub
Else
18 Dim myCommand As New OleDbCommand
19 Dim SQL As String
20 Try
21 If Not con.State = ConnectionState.Open Then Open_Koneksi()
22 SQL = "INSERT INTO TabMHS (NIM, Nama, Semester, Jurusan) VALUES " & _
23 "('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & ComboBox1.Text & "')"
24
25
26 myCommand.Connection = con
27 myCommand.CommandText = SQL
28 myCommand.ExecuteNonQuery()
29
30 TextBox1.Text = String.Empty
31 TextBox2.Text = String.Empty
32 TextBox3.Text = String.Empty
33 ComboBox1.Text = String.Empty
34
35 Data_Load()
36 con.Close()
37
38 Catch myerror As OleDbException
39 MessageBox.Show("Error: " & myerror.Message)
40 Finally
41 con.Dispose()
42 End Try
43 End If
|
5. Klik dua kali pada Button UBAH, tambahkan kode di bawah
6. Klik dua kali pada Button HAPUS, masukkan kode di bawah
7. Klik dua kali pada Button RESET, masukkan kode di bawah
1
2
3
4
5
6
|
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
ComboBox1.Text = String.Empty
TextBox1.ReadOnly = False
|
8. Klik dua kali pada DataGridView1, kemudian ganti Event-nya dengan CellDoubleClick sehingga akan muncul Private Sub DataGridView1_CellDoubleClick lalu masukkan kode di bawah ke dalam sub tersebut
1
2
3
4
5
6
|
TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value
TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value
TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value
ComboBox1.Text = DataGridView1.CurrentRow.Cells(3).Value
TextBox1.ReadOnly = True
|
9. Klik dua kali pada TextBox1, kemudian ganti Event-nya dengan KeyPress sehingga akan muncul Private Sub TextBox1_KeyPress lalu masukkan kode di bawah ke dalam sub tersebut
1 If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then MessageBox.Show("Data harus berupa angka ...", "Peringatan..", MessageBoxButtons.OK)
2 If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
10. Lakukan hal yang sama pada langkah di atas untuk TextBox3 hanya beda pada angka 1 dan 3, lakukan hal yang sama juga pada ComboBox1 namun cuma ditambahkan kode e.handled = True saja, Sehingga hasil dari langkah 9 dan 10 seperti gambar berikut
0 komentar:
Posting Komentar