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 :
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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
