Menghindari Inputan Khusus

Hmm.lagi-lagi saya mengalami masalah dalam pembuatan program dengan menggunakan koneksi Adodc, saat saya input karakter khusus pada textbox ketika saya klik simpan programnya malah debug..dan disitu ada sebuah pernyataan bahwa adodc tidak dapat menyimpan karakter khusus ke dalam database..
Bagaimana cara untuk menghindari inputan karakter khusus pada subuah Textbox misal" '@#!%$&*" ??

oke saya akan memberitahu agan caranya..

Persiapan:

1. Buat 1 Project baru dengan 1 Form dan 1 TextBox.
2. Copy-kan coding berikut ke dalam editor form ybt.

berikut sourcenya:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda inginkan untuk
'dihindari diinput pada Text1
sTemplate = "!@#$%^&*()_+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub

semoga bermanfaat...

Posted in: source code vb