Protected Sub btnButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnButton1.Click Try If getOrder() = False Then Return Dim entry As New DirectoryEntry("LDAP://IP Address") entry.Username = txtUsername.Text + "@gov.net" entry.Password = txtPassword.Text Dim searcher As New DirectorySearcher("(&(objectCategory=Person)(objectClass=User))") searcher.SearchRoot = entry searcher.PropertiesToLoad.Add("cn") Dim result As SearchResult searcher.Filter = "(mail=net\" & txtUsername.Text & "@gov.net)" result = searcher.FindOne Dim sql As String = "INSERT INTO Table (Role,Username,Unit,Rank) VALUES ( '" & _ ddlRole.Text & "','" & txtUsername.Text.Replace("'", "''") & "','" & _ ddlUnit.Text & "','" & ddlRank.Text & "')" Dim gentool As New functions If gentool.ExecuteDatabase(sql) = True Then lblMsg.Text = "Registered successfully" goClear() Else lblMsg.Text = "User already exists" End If Catch ex As Exception lblMsg.Text = "Registration failure: Either username or password" 'ex.Message End Try End Sub
Text.Replace()
result = searcher.FindOne
If result IsNot Nothing Then ... Code for inserting user into databaseElse ... Code for telling the user they don't exist in AD, or whatever you want.End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)