Coding Insert, Update, Delete di VB.Net

Oleh informasi

Bagikan :

Tweet

Coding Insert, Update, Delete di VB.Net - Proses simpan data, update dan hapus data merupakan sebuah proses yang sudah tentu harus ada dalam membuat program aplikasi. Sebenarnya dalam proses tersebut banyak cara yang bisa Anda lakukan seperti salah satunya adalah membuat coding langsung di dalam sebuah form, akan tetapi proses simpan edit dan hapus data dapat juga Anda lakukan dengan menggunakan stored procedure. Secara umum stored procedure dilakukan didalam sebuah database, cara stored procedure biasa dilakukan oleh para master-master program.

Pada kesempatan kali ini saya akan berbagi mengenai bagaimana eksekusi perintah query sederhana seperti insert, update, delete dan select pada Visual Basic.Net, Akan tetapi sebelum melanjutkan tutorial ini, alangkah lebih baiknya jika Anda membaca artikel saya mengenai Membuat Koneksi Di VB.Net Dengan Database SQL Server dan juga Cara Menampilkan Data ke DataGridView Vb.net 

Berikut adalah langkah-langkah membuat coding Simpan, Edit dan Delete

Pertama yaitu buatlah sebuah project baru kemudian tambahkan form lalu seret komponen sesuai kebutuhan. lihat gambar diatas.

Jika Anda telah selesai menambahkan semua komponen seperti diatas lalu tambahkan coding dibawah ini

Coding Simpan

Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        If txtnmkaryawan.Text = "" Or txtalamatkaryawan.Text = "" Then
            MsgBox("Data Masih Ada yang Kosong !", MsgBoxStyle.Critical, "Kesalahan")
            txtnmkaryawan.Focus()
        Else
            If txtkdkaryawan.Enabled = False Then
                koneksi.Close()
                buka()
                cmd.Connection = koneksi
                cmd.CommandType = CommandType.Text
                cmd.CommandText = "Insert into tbkaryawan (kdkaryawan,nmkaryawan,alamat,usernm,statuskrywn) values ('" & txtkdkaryawan.Text.Replace("'", "''") & "','" & txtnmkaryawan.Text.Replace("'", "''") & "','" & txtalamatkaryawan.Text.Replace("'", "''") & "','" & menuutama.ToolStripStatusLabel1.Text.Replace("'", "''") & "', '" & " NotAccess " & "')"
                cmd.ExecuteNonQuery()
                MsgBox("Sukses di Simpan !", MsgBoxStyle.Information, "Sukses")
                kosong()
               
            End If
        End If
    End Sub

Untuk memperjelas coding diatas lihat gambar dibawah ini

Coding Update

Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        If txtnmkaryawan.Text = "" Or txtalamatkaryawan.Text = "" Then
            MsgBox("Data Masih Ada yang Kosong !", MsgBoxStyle.Critical, "Kesalahan")
            txtnmkaryawan.Focus()
        Else
          koneksi.Close()
                    buka()
                    cmd.Connection = koneksi
                    cmd.CommandType = CommandType.Text
                    cmd.CommandText = "update tbkaryawan set nmkaryawan = '" & txtnmkaryawan.Text.Replace("'", "''") & "', alamat = '" & txtalamatkaryawan.Text.Replace("'", "''") & "', usernm='" & menuutama.ToolStripStatusLabel1.Text.Replace("'", "''") & "' where kdkaryawan = '" & txtkdkaryawan.Text.Replace("'", "''") & "'"
                    cmd.ExecuteNonQuery()
                    MsgBox("Sukses di Update !", MsgBoxStyle.Information, "Sukses")
                    kosong()
                    tampil()
                End If
    End Sub

Coding Hapus

Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
         If txtkdkaryawan.Enabled = True Then
                Dim pesan As String
                pesan = MsgBox("Yakin hapus Data?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Peringatan")
                If pesan = vbYes Then
                    koneksi.Close()
                    buka()
                    cmd.Connection = koneksi
                    cmd.CommandType = CommandType.Text
                    cmd.CommandText = "delete from tbkaryawan where kdkaryawan = '" & txtkdkaryawan.Text.Replace("'", "''") & "'"
                    cmd.ExecuteNonQuery()
                    MsgBox("Data di Hapus !", MsgBoxStyle.Information, "Sukses")
                    kosong()
                    tampil()
                End If
                 End If
    End Sub

Proses Membuat Coding Insert, Update, Delete di VB.Net telah selesai. Untuk mencobanya silahkan anda running program tersebut dengan menekan tombol F5 pada keybord.

Sekian dari saya mengenai Cara membuat Coding Insert, Update, Delete di VB.Net, Mudah-mudahan tutorial ini memberikan manfaat bagi kita semua, "Aamiin". Terima Kasih

Tag : VBNET