Membuat Aplikasi Crud Database Access Di Vbnet

Halo , Kaliitu Admin mau memberi tips Membuat Aplikasi Crud Di VBNET , Crud Itu Merupakan Singkatan Dari Create Read Update Delete nan masing masing fituritu mempunyai fungsi nan sangat berfungsi sebagai orang ,itu jadi pola jadwal Cruditu mau kami kaitkan dengan database ,nahh disitu kami mau menggunakan database Microsoft Access , sebagai kalian nan belum mengetahui apa itu database juga bagaimana tutor mengkoneksikan Program Cruditu Kita kaitkan ke Microsoft Access biar nantinya data nan kami input di jadwal kami sanggup kami kanal ataupun Kita lihat dengan mudah, naahh sebagai kalian nan belum mengetahui apa sih itu Crud ? , Disini Kita mau Bahas Satu Persatu , insya allah mau aku ajarkan kalian sebagai sanggup hingga membikin programitu , klarifikasi Crud tersedia dibawah ini.

PENJELASAN CRUD ?

1. Create ialah nan berarti membikin data baru. pola kami sedang mengerjakan pendaftaran disebuah web itu rampung merupakan Create dari CRUD alasannya ialah kami membikin juga menyimpan data masuk pribadi ke database.
2. Read ialah membaca ataupun menampilkan suatu data nan tadinya berada di database MYSQL biar kemudian ditampilkan di web menggunakan bahasa pemrograman php.
3. Update merupakan mengedit sebuah data dari database nan kemudian di edit menggunakan bahasa pemrograman php berupa web.
4. Delete ialah fungsinya hampir sama dengan update mau tetapi prosesitu ialah sebagai mengerjakan abolisi data didatabase melalui bahasa php.

Jika Anda Sudah Paham Betul Maksud diatasitu kami masuk Ke tahap nan ke - dua ,Sebelum Membuat programnya pastinya kami niscaya membikin modulnya terlebih dahulu kan ? naahh aku pimpinitu tutor Mengkoneksikan Database Access Ke VBNET aku rampung menerangkannya rampung aku siapkan Scriptnya Silahkan Copas Script Berikut , Dan Sebelum Itu Anda Masuk Dulu Ke Pembuatan Modul , Caranya Klik sajian Project juga pilih add Module Dan Kasi nmanya juga Pilih Oke Gambarnya tersedia dibawah ini

Jika Anda Sudah Masuk Ke Source Code Add Module Copy Dan Pastekan Script Berikut ... Ingat Script nan warna merah kalian ganti dengan nama database kalian sendiri ,( Masukkan Database Ke Bin > Debug ) mengapa musti Di Bin > Debug ? Karna disitulah Tempat Aplikasi database dijalankan .. Copas Script Berikut..

Atau Jika Anda Bingung 

Baca INI  : CARA MEMBUAT KONEKSI DATABASE ACCESS KE VB.NET 

Saya juga rampung memosting sebelumnya klik saja link diatas.. ataupun apabila kalian mengerti lanjutkan saja di artikelitu dibawah tersedia juga scriptnya

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 , membikin Formitu Cukup Praktis Mungkin apabila kalian belum tahu bagaimana tutor membikinnya kalian sanggup googling , naahh kalian musti membikin formnya ibarat mirip gambar nan tersedia di bawahitu , Itu alatnya hanya menggunakan Label , Textboxt , Button RadioButton , Button juga data grid , gak susah kok .. Usahakan Jumlah Label , Textboxt , Button RadioButton , Button juga data grid Samakan Dengan nan Ada dibawah ya gan..

Jika Sudah Mirip Betul , Masuk Ke Source Code nya , aku rampung siapkan codenya tersedia dibawah tinggal kalian kreasikan saja ya gan , aba-aba nan tersedia dibawahitu ane gak nipu karna ane juga pernah membikinnya jadi dijamin 100 % ga Penipu Untuk Kodingnya silahkan Copas nan tersedia 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 tutor menjalankan progrmnya klik tersedia tanda play di option kafetaria di atas Visual Studio 2010 ., Sampai Disini Sekian Tutorial Dari Saya ., Semoga Berfungsi Bagi Anda Semua Yaa... Sekian Dari Saya Admin JagoanKode Silahkan Berkunjung lagi ya gan , ane kasi trik trik diam-diam nan orang belum pastinya share .. Sekian Terima Kasih