Pada saat membuat program database dengan visual basic 06, sering kali kita membuat source code pencarian data dengan menggunakan bahasa sql.. select * bla..bla.., dan simbol-simbol sebagaimana contoh berikut ‘” & txtcari & “‘, nah yang menjadi masalah adalah.. ketika txtcari diisi dengan tanda petik tunggal (‘) maka yang terjadi adalah debug error…, bagaimana mengatasi agar user tidak bisa memasukkan tanda petik tunggal (‘) pada txtcari. Ini dia solusinya…
‘contoh coding untuk menonaktifkan tanda petik tunggal (‘)
Private Sub txtcari_KeyPress(KeyAscii As Integer)
If InStr(“1234567890-=_+!@#$%^&*()qwerty uiop[]asdfghjkl;zxcvbnm,./QWERTYUIOP{}ASDFGHJKL:ZXCVBNM?”, Chr(KeyAscii)) Or KeyAscii = vbKeyBack Then
Exit Sub
ElseIf KeyAscii = vbKeyReturn Then
Else
KeyAscii = 0
End Sub
Silahkan dicoba… semoga sukses, dan tidak debug error lagi.
