使用者名稱限制輸入特殊字元

在SQL查詢語句中要避免使用者名稱中有特殊符號，像“=”，“‘”，等等，這些都會干擾查詢甚至會報錯。

以限制”‘“為例，我想了兩種方法：

一、利用Like

Private Sub txtUserID_Change()    '限制輸入非法字元    dim bJudge as boolean    bJudge = txtUserID Like "*'*"    If bJudge Then        MsgBox "請不要輸入非法字元！", vbOKOnly + vbExclamation, "警告"    End IfEnd Sub

二、利用split（）

'避免出現使用者名稱中有"'"幹擾sql查詢語句出錯  dim strA() as string  strA = Split(txtUsername.Text, "'") '如果含有"'"就會把字串截開，賦值到數組  If UBound(strA) <> 0 Then  MsgBox "使用者名稱中有非法字元，請重新輸入!", vbOKOnly + vbExclamation, "警告"  Exit Sub  End If

補充一個：

三、利用inStr()

Private Sub txtUserName_Change()    If InStr(txtUserName.Text, "'") Then        MsgBox "使用者名稱中有非法字元！", vbOKOnly + vbExclamation, "警告"    End IfEnd Sub