1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 

Protected Sub UserNameTextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim GetUserNameDS As New SqlDataSource
        Dim args As New System.Web.UI.DataSourceSelectArguments
        Dim TempTextBox As New TextBox
        Dim TempLabel As New Label
        Dim TempTextParameter As New Parameter
        
        
        TempTextBox = FormView1.FindControl("UserNameTextBox")
        TempLabel = FormView1.FindControl("CheckUserNameAvailabilityLabel")
        
        TempTextParameter.Name = "Text"
        TempTextParameter.DefaultValue = TempTextBox.Text
        
        GetUserNameDS.ConnectionString = "Data Source=CW-02;Initial Catalog=CarAndBikes;Integrated Security=True"
        GetUserNameDS.SelectCommandType = SqlDataSourceCommandType.Text
        GetUserNameDS.SelectParameters.Add(TempTextParameter)
        GetUserNameDS.SelectCommand = "SELECT [Salers_UserName] FROM [Salers] WHERE EXISTS(SELECT [Salers_UserName] WHERE [Salers_UserName]=@Text)"
        
        If GetUserNameDS.Select(args).GetEnumerator.MoveNext.ToString = True Then
            TempLabel.ControlStyle.ForeColor = Drawing.Color.Red
            TempLabel.Text = "Το Όνομα Χρήστη χρησιμοποιείται. Παρακαλώ εισάγετε άλλο"
        
        Else
            TempLabel.ControlStyle.ForeColor = Drawing.Color.Green
            TempLabel.Text = "Το Όνομα Χρήστη είναι διαθέσιμο."
        End If
        
    End Sub