Cara Memunculkan Pesan Pemberitahuan Bila Data Yang Ingin Dientrikan Sudah Ada Di Database Dengan Visual Basic 6.0

Cara Memunculkan Pesan Pemberitahuan Bila Data Yang Ingin Dientrikan Sudah Ada Di Database Dengan Visual Basic 6.0 | Gho Blog's - Suatu sistem harus mampu memberikan filter yang baik terhadap data yang di entrikan agar tidak terjadi duplikasi data yang mengakibat sistem menjadi error.

Menanggapi pertanyaan visitor, tentang bagaimana cara memunculkan pesan (Message Box) yang memberikan informasi bahwa data yang sama sudah pernah dientrikan sebelumnya.

Filter yang digunakan berdasarkan primary key dari table yang akan di entrikan. Sebagai contoh saya menggunakan project dari tutorial sebelumnya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Silakan sobat download terlebih dahulu projectnya, kemudian ikuti langkah berikut ini :

• Buka form yang akan dipasang pesan yaitu berada di Form1
• Double klik pada Text1.Text yang tepatnya berada di field NIM
• Pastikan sobat berada pada Procedure Keypress. Kemudian tambahkan msgbox tepat dibawah code If Not rsmhs.EOF Then, sehingga Procedur Keypress tersebut menjadi seperti di bawah ini :

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus Set rsmhs = New ADODB.Recordset rsmhs.LockType = adLockOptimistic rsmhs.CursorType = adOpenDynamic rsmhs.Open "select * from tmhs", conn, , , adCmdText rsmhs.Filter = " nim= '" & Text1.Text & "'" If Not rsmhs.EOF Then '----------------------------------------------------------- MsgBox "Data Mahasiswa Dengan NIM '" & Text1.Text & "' Sudah Ada", vbInformation, "Info" '<-- Pesan yang disisipkan '----------------------------------------------------------- Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Text1.Enabled = False Text2.Text = rsmhs.Fields(1) Text3.Text = rsmhs.Fields(2) Text4.Text = rsmhs.Fields(3) Text5.Text = rsmhs.Fields(4) Text6.Text = rsmhs.Fields(5) Text7.Text = rsmhs.Fields(6) End If End If End Sub

• Perhatikan MsgBox yang berada dibawah If Not rsmhs.EOF Then. Itulah pesan pemberitahuan yang muncul ketika kita mengentrikan data yang primary key nya sudah ada di tabel.

Sekian jawaban dari saya pada posting yang berjudul Cara Memunculkan Pesan Pemberitahuan Bila Data Yang Ingin Dientrikan Sudah Ada Di Database Dengan Visual Basic 6.0. Semoga bermanfaat dan dapat menjawab pertanyaan visitor lainnya.