Здравствуйте. Скажите пожалуйста, в чем закралась ошибка?
Есть форма регистрации, на ней TextBox:
<asp:TextBox ID="BoxLogin" runat="server"></asp:TextBox>
Для прорверки индивидуальности логина есть валидатор: <asp:CustomValidator ID="CustomValidatorLogin" runat="server" ErrorMessage="Этот Логин занят" ControlToValidate="BoxLogin" OnServerValidate="CustomValidatorLogin_ServerValidate"></asp:CustomValidator>
Подпрограмма проверки:
Protected Sub CustomValidatorLogin_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidatorLogin.ServerValidate
Dim dbConn As OleDbConnection
Dim dCmd As OleDbCommand
Dim dr As OleDbDataReader
Dim strConnection As String
Dim strSQL As String
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\auth.mdb;Persist Security Info=False"
dbConn = New OleDb.OleDbConnection(strConnection)
dbConn.Open()
strSQL = "SELECT login FROM AppUser WHERE login=" + args.Value + ""
dCmd = New OleDbCommand(strSQL, dbConn)
dCmd.Parameters.Add(New OleDbParameter("login", args.Value))
dr = dCmd.ExecuteReader()
If (dr.Read()) Then
args.IsValid = False
End If
dr.Close()
dbConn.Close()
End Sub