Blog Informasi dan Pendidikan

Coding Insert, Edit, Update, Delete VB.Net

Coding Insert, Edit, Update, Delete VB.Net, - Halo sahabat DotNet pada kesempatan ini admin akan berbagi kembali tentang script / coding di VB.Net atau Visual Studio 2008. Coding ini merupakan coding sederhana tentang bagaimana cara simpan, edit, update dan hapus data di VB.Net. Dalam melakukan proses ini perlu adanya ketelitian dalam memahami script. Namun secara keseluruhan coding ini sangatlah sederhana dan cukup mudah untuk dipahami oleh kita. Dalam tutorial Vb.Net ini admin menggunakan database penyimpanan Microsoft Access, jika kalian menggunakan database lainnya kalian hanya merubah sedikit bagian coding ini.

Jangan Lewatkan Review Cara Mengatasi Anak Susah Makan dengan Laperma Platinum

Proses simpan data atau edit, update dan hapus data merupakan sebuah proses yang tentunya merupakan kebutuhan pokok di dalam membuat program. Sebenarnya dalam proses tersebut dapat dilakukan dengan berbagai cara seperti salah satunya ialah membuat coding langsung di dalam sebuah from. Akan tetapi untuk melakukan proses simpan, edit dan hapus data ini dapat juga kita lakukan dengan menggunakan stored procedure. Pada umumnya stored procedure dilakukan didalam sebuah database, namun cara ini biasanya dilakukan oleh para master-master program.

Coding Insert, Edit, Update, Delete di VB.Net

Sebagai contoh admin membuat sebuah from kelola user dengan gambar diatas, kalian biasa mengikuti atau bisa juga membuat form yang kalian inginkan. Tentunya tidak tertinggal kalian siapkan beberapa textbox, button dan datagridview. Admin anggap kalian telah mengerti bagaimana cara koneksi database di VB.Net. Dan untuk database admin membuat tabel dengan gambaran seperti dibawah ini:

Coding Insert, Edit, Update, Delete VB.Net

Jika semua persiapan sudah memenuhi, untuk tahap selanjutnya kalian bisa ambil coding dibawah ini

Coding Simpan:
If tnama.Text = "" Or tpass.Text = "" Or cb_katagori.Text = "" Then
            MsgBox("Data Masih Ada yang Kosong !", MsgBoxStyle.Critical, "Programer Junior")
            tnama.Focus()
        Else
            koneksi.Close()
            buka()
            cmd.Connection = koneksi
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "Insert into tbuser (user_id,nm_user,pass,hak_akses) values ('" & tuser.Text & "','" & tnama.Text & "', '" & cb_katagori.Text & "')"
            cmd.ExecuteNonQuery()
            MsgBox("Berhasil-Berhasil !", MsgBoxStyle.Information, "Programer Junior")
            kosong()
        End If
Coding Update:
If tnama.Text = "" Or tpass.Text = "" Or cb_katagori.Text = "" Then
            MsgBox("Data Masih Ada yang Kosong !", MsgBoxStyle.Critical, "Programer Junior")
            tnama.Focus()
        Else
            koneksi.Close()
            buka()
            cmd.Connection = koneksi
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "Update tbuser set nm_user = '" & tnama.Text & "', pass = '" & tpass.Text & "', hak_akses ='" & cb_katagori.Text & "' where user_id = '" & tuser.Text & "'"
            cmd.ExecuteNonQuery()
            MsgBox("Berhasil-Berhasil !", MsgBoxStyle.Information, "Programer Junior")
            kosong()
        End If
Coding Delete:
If Not tuser.Text = "" Then
            koneksi.Close()
            buka()
            cmd = New OleDbCommand("SELECT * FROM tbuser WHERE user_id='" & tuser.Text & "'", koneksi)
            baca = cmd.ExecuteReader()
            baca.Read()
            If baca.HasRows Then
                Dim pesanuser As String
                pesanuser = MsgBox("Yakin Hapus Data ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Programer Junior")
                If pesanuser = vbYes Then
                    koneksi.Close()
                    buka()
                    cmd.Connection = koneksi
                    cmd.CommandType = CommandType.Text
                    cmd.CommandText = "delete from tbuser where user_id='" & tuser.Text & "'"
                    cmd.ExecuteNonQuery()
                    MsgBox("Sukses Hapus Data !", MsgBoxStyle.Information, "'Akses Sukses' Programer Junior")
                    kosong()
                Else
                    kosong()
                End If
            Else
                MsgBox("User " & tuser.Text & " Tidak Tersedia!", MsgBoxStyle.Critical, "'Akses Gagal' Programer Junior")
                kosong()
            End If
        End If 

Disini admin telah menggunakan module dalam membuat sebuah koneksi database ke Vb.Net, jika kalian bingung kalian bisa baca tutorial admin sebelumnya Membuat koneksi database Ms.Accees ke VB.Net. Jika kalian tetap bingung kalian dapat berkomntar, terimakasih telah mereview artikel Cara Simpan, Ubah, Hapus Data di VB.Net ini semoga dapat bermanfaat.
Tag : Coding, VB.NET
1 Komentar untuk "Coding Insert, Edit, Update, Delete VB.Net "

Gaudah bikin blog coding klo isinya ga boleh di copas

Back To Top