Validasi Primary Key Ganda Pada VB .Net

Tutorial Validasi Primary Key Ganda atau Double Primary Key Pada Visual Basic .Net. Pada Tutorial Visual Basic .Net kali ini akan dibahas mengenai Cara Membuat Pemberitahuan Double Primarykey. Contoh kasusnya adalah sebagai berikut :

Contoh Kasus : Kita mempunyai sebauh Form (Input, Edit dan Delete) namun karena input datanya tidak otomatis, KodeAnggota harus di ketik manual. Jika KodeAnggota dibuat Primary Key maka kita harus menginput KodeAnggota yang berbeda agar saat input tidak terjadi error. Oleh karena  itu kita harus memvalidasi sebelum kita input kedatabase maka kita cari apakah ada Kode Anggota yang sama? jika ada maka kita munculkan MassageBox.

Baik langsung saja, berikut langkahnya :

#1. Membuat Database dan Tabel
Buatlah database dengan nama : DBBVB.accdb
Buatlah Tabel dengan nama : TBL_ANGGOTA
Design TBL_ANGGOTA adalah sebagai berikut :

Jika sudah membuat Design tabel deperti gambar diatas, silahkan masukan Sample data seperti gambar dibawah ini :

Gambar diatas adalah hanya sebagai contoh, silahkan sesuaikan dengan kebutuhan anda

Jika sudah sukses membuatlangkah diatas, silahkan ikuti tahap ke-2

#2. Membuat Form Dengan VB .Net dan Membuat Kodingnya
SIlahkan buka Aplikasi Visual Basic .Net anda
Jika sudah muncul Form1, buatlah design seperti gambar dibawah ini :

Gambar diatas terdapat :
Label1, Label2, Label3, Label4, TextBox1, TextBox2, TextBox3, TextBox4, Button1, Button2, dan DatagridView1

Jika sudah :
1. Masukan Database yang telah dibuat pada tahap1, ke dalam folder BinDebug
2. Masukan Koding dibawah ini pada Form1

 
Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim CMD As OleDbCommand
    Dim RD As OleDbDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBBVB.accdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from TBL_ANGGOTA", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_ANGGOTA")
        DataGridView1.DataSource = (ds.Tables("TBL_ANGGOTA"))
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan NIP 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            CMD = New OleDbCommand("Select * from TBL_ANGGOTA where kodeAnggota='" & TextBox1.Text & "'", Conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                Call Koneksi()
                Dim simpan As String = "insert into TBL_ANGGOTA values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
                CMD = New OleDbCommand(simpan, Conn)
                CMD.ExecuteNonQuery()
                MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
            Else
                MsgBox("Kode Anggota Sudah Pernah Ada!!!!") 
            End If
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Jika sudah memasukan koding diatas, seilahkan jalankan Project VB .Net anda.
Silahkan Input Data Dengan KodeAnggota yang berbeda : Seharusnya jika benar, maka input akan sukses
Namun Jika input dengan Kode Anggota pernah diinput sebelumnya, maka akan ada MassageBox : Kode Anggota Sudah Pernah Ada!!!"

Note :
Tutorial diatas adalah Request dari Bella Melinda yang telah berkomentar di Tutorial :
http://blog.belajarvb.com/2014/06/cara-input-ke-database-dengan-vb-net.html

Jika anda ingin Request Tutorial, Silahkan Follow Google+ kami dan Silahkan berkomentar di Blog BelajarVB. Semoga bermanfaat anda semua