Cara Mengatasi Duplikat Entri (Duplicate entry) di VB6 ketika disimpan dengan Database Mysql Phpmyadmin

Advertisement
Assalamualaikum,
 Kali ini saya akan berbagi apa yang saya pelajari di microsoft visual basic 6.0 mengenai validasi SIMPAN, EDIT, BATAL, UPDATE, HAPUS & ADD. Namun, kali ini saya akan membahas megenai validasi SIMPAN, pengalaman saya ketika belajar VB6 ketika masa perkuliahan adalah ketika saya menyimpan data dengan primary key yang sama muncullah ERROR denga pesan "Runtime error..... Duplicate entry for"xxx" for key"primary"". atau lebih jelasnya di bawah ini :


OKE kita bahas masalah ini,




1. dibawah ini adalah form transaksi pembuatan SIM A (di ambil dari tugas akhir saya).


Ketika saya memilih "Nomor Induk Siswa" misalnya "TBK001" dan saya klik simpan maka berhasil, namun ketika saya "Tambah" dan saya pilih kembali "TBK001" dan saya simpan untuk kedua kalinya tapi terjadi ERROR. Mengapa terjadi error? karena didalam datebase dengan primary key yang sama, sistem tidak dapat menerimanya (Duplicate data).




2. ini solusinya, berikut adalah logika darikode listing pada combobox "Nomor induk Siswa".

Private Sub tnosiswa_Click()
Call koneksi
rspembuatansima.Open "select*from tpembuatansima where nis='" & tnosiswa.Text & "'", KON
If rspembuatansima.EOF Then 'jika tidak ditemukan, maka isi data

tkodebiaya.Enabled = True
tkodebiaya.Clear
cbbatal.Enabled = True
tnamasiswa.Enabled = False
tbiayasim.Enabled = False
tobay.Enabled = False
ttempat.Enabled = False

Else 'jika ditemukan, maka ada pesan data sudah ada
a = rspembuatansima!nis
MsgBox "Data Dengan NIS " & a & " Sudah Terisi", vbCritical, "SIMPAN"
End If
End Sub

3. Maka pesannya seperti dibawah ini,


Semoga bisa membantu :D
0 Komentar untuk "Cara Mengatasi Duplikat Entri (Duplicate entry) di VB6 ketika disimpan dengan Database Mysql Phpmyadmin"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!

Back To Top