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.
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:
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
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
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, Hapu
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.
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.
