Halo , Kali ini Admin akan memberi tips Membuat Aplikasi Crud Di VBNET , Crud Itu Merupakan Singkatan Dari Create Read Update Delete yang masing masing fitur ini memiliki fungsi yang sangat bermanfaat bagi orang , ini sebagai contoh program Crud ini akan kita kaitkan dengan database ,nahh disini kita akan memakai database Microsoft Access , bagi kalian yang belum mengetahui apa itu database dan bagaimana cara mengkoneksikan Program Crud ini Kita kaitkan ke Microsoft Access agar nantinya data yang kita input di program kita dapat kita akses atau Kita lihat dengan mudah, nah bagi anda yang belum mengetahui apa sih itu Crud ? , Disini Kita akan Bahas Satu Persatu , insya allah akan saya ajarkan anda untuk bisa sampai membuat program ini , penjelasan Crud ada dibawah ini.
PENJELASAN CRUD ?
- Create yaitu yang berarti membuat data baru. contoh kita sedang melakukan registrasi disebuah web itu sudah merupakan Create dari CRUD karena kita membuat dan menyimpan data masuk langsung ke database.
- Read adalah membaca atau menampilkan suatu data yang tadinya berada di database MYSQL agar kemudian ditampilkan di web menggunakan bahasa pemrograman php.
- Update merupakan mengedit sebuah data dari database yang kemudian di edit menggunakan bahasa pemrograman php berupa web.
- Delete adalah fungsinya hampir sama dengan update akan tetapi proses ini adalah untuk melakukan penghapusan data didatabase melalui bahasa php.
Jika Anda Sudah Paham Betul Maksud diatas ini kita masuk Ke tahap yang ke – dua ,Sebelum Membuat programnya tentu kita pasti membuat modulnya terlebih dahulu kan ? nah saya pimpin ini cara Mengkoneksikan Database Access Ke VBNET saya sudah menerangkannya sudah saya siapkan Scriptnya Silahkan Copas Script Berikut , Dan Sebelum Itu Anda Masuk Dulu Ke Pembuatan Modul , Caranya Klik menu Project dan pilih add Module Dan Kasi nmanya dan Pilih Oke Gambarnya ada dibawah ini
Imports System.Data.OleDb
Module Module1
Public conn As OleDbConnection
Public da As OleDbDataAdapter
Public ds As DataSet
Public cmd As OleDbCommand
Public rd As OleDbDataReader
Public str As String
Public Sub koneksi()
str = “Provider=Microsoft.Ace.oledb.12.0;data source=dbbiodata.accdb”
conn = New OleDbConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
End Module
Nah Jika Anda Sudah Berhasil Membuat Sekarang Kita masuk Ke Tahap Membuat Form , membuat Form ini Cukup Mudah Mungkin jika anda belum tahu bagaimana cara membuatnya anda bisa googling , nah anda harus membuat formnya mirip seperti gambar yang ada di bawah ini , Itu alatnya hanya memakai Label , Textboxt , Button RadioButton , Button dan data grid , gak susah kok .. Usahakan Jumlah Label , Textboxt , Button RadioButton , Button dan data grid Samakan Dengan yang Ada dibawah ya gan..
Jika Sudah Mirip Betul , Masuk Ke Source Code nya , saya sudah siapkan codenya ada dibawah tinggal anda kreasikan saja ya gan , kode yang ada dibawah ini ane gak nipu karna ane juga pernah membuatnya jadi dijamin 100 % ga Penipu Untuk Kodingnya silahkan Copas yang ada dibawah ini
Imports System.Data.OleDb
Public Class Form1
Sub bersih()
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox1.Enabled = True
Button2.Enabled = False
Button4.Enabled = False
Button1.Enabled = True
End Sub
Sub TampilGrid()
da = New OleDbDataAdapter(“SELECT * From dbbiodata”, conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, “dbbiodata”)
DataGridView1.DataSource = (ds.Tables(“dbbiodata”))
DataGridView1.ReadOnly = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call koneksi()
Call TampilGrid()
Call bersih()
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
cmd = New OleDbCommand(“select * from dbbiodata where Nama='” & TextBox1.Text & “‘”, conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows = True Then
MsgBox(“Nama Ditemukan”, vbInformation + vbOKOnly, “Pesan”)
TextBox1.Text = rd.Item(“Nama”)
TextBox2.Text = rd.Item(“Umur”)
TextBox3.Text = rd.Item(“Alamat”)
TextBox4.Text = rd.Item(“Keterangan”)
TextBox1.Enabled = False
Button1.Enabled = False
Button4.Enabled = True
Button2.Enabled = True
Button3.Focus()
Else
TextBox2.Focus()
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
TextBox3.Focus()
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
If Button1.Enabled = True Then
Button1.Focus()
Else
Button2.Focus()
End If
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = “” Or TextBox2.Text = “” Or TextBox3.Text = “” Or TextBox4.Text = “” Then
MsgBox(“Data Anda Belum Lengkap”)
Exit Sub
Else
cmd = New OleDbCommand(“Select * from dbbiodata where Nama='” & _
TextBox1.Text & “‘”, conn)
rd = cmd.ExecuteReader
rd.Read()
If Not rd.HasRows Then
Dim sqltambah As String = “Insert Into dbbiodata(Nama,Umur,Alamat,Keterangan) values ” & _
“(‘” & TextBox1.Text & “‘,'” & TextBox2.Text & “‘,'” & TextBox3.Text & “‘,'” & _
TextBox4.Text & “‘)”
cmd = New OleDbCommand(sqltambah, conn)
cmd.ExecuteNonQuery()
Call bersih()
Call TampilGrid()
TextBox1.Focus()
Else
MsgBox(“Kode Telah Ada Sebelumnya”, vbInformation + vbOKOnly, “Pesan”)
Call TampilGrid()
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call bersih()
Call TampilGrid()
TextBox1.Focus()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = “” Then
MsgBox(“Kode Masih Kosong”)
Button3.Focus()
Exit Sub
Else
cmd = New OleDbCommand(“Update dbbiodata set Umur='” & _
TextBox2.Text & “‘, Alamat = ‘” & TextBox3.Text & “‘,Keterangan='” & TextBox4.Text & “‘ where Nama='” & TextBox1.Text & “‘”, conn)
cmd.ExecuteNonQuery()
Call bersih()
Call TampilGrid()
TextBox1.Focus()
End If
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
If RadioButton1.Checked = True Then
da = New OleDbDataAdapter(“Select * from dbbiodata where Nama like ‘%” & TextBox5.Text & “%’ order by Nama asc”, conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, “dbbiodata”)
DataGridView1.DataSource = (ds.Tables(“dbbiodata”))
DataGridView1.ReadOnly = True
ElseIf RadioButton2.Checked = True Then
da = New OleDbDataAdapter(“Select * from dbbiodata where Umur like ‘%” & TextBox5.Text & “%’ order by Umur asc”, conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, “dbbiodata”)
DataGridView1.DataSource = (ds.Tables(“dbbiodata”))
DataGridView1.ReadOnly = True
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox1.Text = “” Then
MsgBox(“Kode Masih Kosong”)
Button3.Focus()
Exit Sub
Else
If MessageBox.Show(“Yakin Akan di Hapus …?”, “Konfirmasi”, MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
cmd = New OleDbCommand(“Delete from dbbiodata where Nama= ‘” & _
TextBox1.Text & “‘”, conn)
cmd.ExecuteNonQuery()
Call bersih()
Call TampilGrid()
TextBox1.Focus()
Else
Call bersih()
Call TampilGrid()
TextBox1.Focus()
End If
End If
End Sub
End Class
Sampai Disini Kurang Lebih Begitu Lah ya gan , Sekarang agan boleh cek Programnya cara menjalankan progrmnya klik ada tanda play di option bar di atas Visual Studio 2010 ., Sampai Disini Sekian Tutorial Dari Saya ., Semoga Bermanfaat Bagi Anda Semua Yaa… Sekian Dari Saya Admin JagoanKode Silahkan Berkunjung lagi ya gan , ane kasi trik trik rahasia yang orang belum tentu share .. Sekian Terima Kasih
