FAQ : Cara Memunculkan Pesan Bila Data Sudah Ada Di Database

Tanya-Jawab : Cara Memunculkan Pesan Bila Data Sudah Ada Di Database | Visual Basic Magazine -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 Tanya-Jawab : Cara Memunculkan Pesan Bila Data Sudah Ada Di Database. Semoga bermanfaat dan dapat menjawab pertanyaan visitor lainnya.