Cara membuat CRUD di VB.NET

11/10/2016 06:58:00 AM Unknown 0 Comments

Langsung saja, sebelumnya sudah terbahas simpan hapus edit, nah sekarang tinggal kita gabungkan semua perintah perintah nya pada pada contoh program vb.net dengan database access. biar ga pusing kita akan membuat aplikasi CRUD dengan vb.net dan database Ms. Access. ok pasti 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 kemudian langsung simpan pada folder yang sudah dibuat
jika sudah maka buat database pada ms. access dengan ketentuan :
nama tabel : siswa
atribut       : nis(number), nama(text), kelas(text)
setelah itu simpan database pada folder dimana tadi menyimpan project, pada folder tersebut buka pilih bin kemudian 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 dapat disesuaikan

Langkah ke tiga:
buka kembali project yang tadi kemudian buatlah desain form seperti dibawah ini :
 setelah itu maka klik double pada form kemudian 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 :)