Cara Menciptakan Crud Di Vb.Net

Langsung saja, sebelumnya sudah terbahas simpan hapus edit, nah kini tinggal kita gabungkan semua perintah perintah nya pada pada teladan aktivitas vb.net dengan database access. semoga ga pusing kita akan menciptakan aplikasi CRUD dengan vb.net dan database Ms. Access. ok niscaya kalian semua sudah paham coding simpan, coding hapus, coding edit. nah dibawah ini merupakan cara Membuat aplikasi siswa CRUD di vb.net dan database Ms. Access.
Langkah pertama :
Buat Project lalu eksklusif simpan pada folder yang sudah dibuat

bila sudah maka buat database pada ms. access dengan ketentuan :
nama tabel : siswa
atribut       : nis(number), nama(text), kelas(text)
sehabis itu simpan database pada folder dimana tadi menyimpan project, pada folder tersebut buka pilih bin lalu buka folder debug simpan disana.

Langkah kedua :
tambahkan modul dan beri coding koneksi dibawah ini :

Imports System.Data.OleDb
Module Module1
    Public CONN As OleDbConnection
    Public CMD As OleDbCommand
    Public DS As New DataSet
    Public DA As OleDbDataAdapter
    Public RD As OleDbDataReader
    Public LokasiData As String
    Sub Koneksi()
        LokasiData = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=latihan1.accdb"
        CONN = New OleDbConnection(LokasiData)
        If CONN.State = ConnectionState.Closed Then
            CONN.Open()
        End If
    End Sub
End Module

*nama database sanggup diubahsuaikan

Langkah ke tiga:
buka kembali project yang tadi lalu buatlah desain form menyerupai dibawah ini :

 setelah itu maka klik double pada form lalu ketikan coding dibawah ini :

Imports System.Data.OleDb
Public Class Form1
    Sub Baca()
        Call Koneksi()
        DA = New OleDbDataAdapter("Select * from siswa", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "siswa")
        DataGridView1.DataSource = (DS.Tables("siswa"))
    End Sub
    Sub kosong()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        simpan.Enabled = True
        edit.Enabled = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Data belum lengkap, pastikan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim simpan As String = "insert into siswa values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
            CMD = New OleDbCommand(simpan, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
            Call Baca()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        DA = New OleDbDataAdapter("Select * from siswa", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "siswa")
        DataGridView1.DataSource = (DS.Tables("siswa"))
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        Call Koneksi()
        DA = New OleDbDataAdapter("Select * from siswa Where nis like '" & Me.TextBox4.Text & "%' or kelas like '" & Me.TextBox4.Text & "%' or nama like '" & Me.TextBox4.Text & "%'", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "siswa")
        DataGridView1.DataSource = (DS.Tables("siswa"))
        Dim tampil1 As String
        tampil1 = "select * from siswa where nis ='" & TextBox4.Text & "'"
        CMD = New OleDbCommand(tampil1, CONN)
        RD = CMD.ExecuteReader

        If RD.Read Then
            TextBox1.Text = RD.Item("nis")
            TextBox2.Text = RD.Item("nama")
            TextBox3.Text = RD.Item("kelas")
            If Me.simpan.Text = "Simpan" Then
                TextBox1.Enabled = False
                simpan.Enabled = False

            End If
        End If
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click
        Dim update As String
        update = "update siswa set " & _
         " nama='" & TextBox2.Text & "'," & _
            " kelas ='" & TextBox3.Text & "' where nis='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(update, CONN)
        CMD.ExecuteNonQuery()
        MsgBox("DATA SUDAH TERUPDATE", MsgBoxStyle.Information, "INFORMASI")
        TextBox1.Enabled = True
        Call Baca()
        Call kosong()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Dim hapus As String
        hapus = "delete from siswa where nis='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(hapus, CONN)
        CMD.ExecuteNonQuery()
        MsgBox("DATA SUDAH TERHAPUS", MsgBoxStyle.Information, "INFORMASI")
        TextBox1.Enabled = True
        Call Baca()
        Call kosong()
    End Sub
End Class




Jika sudah maka di run, selamat mencoba semoga berhasil  ^_^
*source code by AISH Tech :)



Sumber http://tutorial-komputertech.blogspot.com

Share this post