Coding Insert, Update, Delete di VB.Net


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

Belum ada Komentar untuk "Coding Insert, Update, Delete di VB.Net"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel