كيف عمل الباسوارد وتغير ارجو المساعده

CREATE PROCEDURE sp_loginvalidation
@username char(50)
@password char(50)

AS SELECT COUNT(username) FROM USERS WHERE username=@username and password=@password

'Create your SqlConnection object
Dim conn As New SqlConnection("YourConnectionStringHere")
'Create your SqlCommand object
Dim cmd As New SqlCommand
'Create a place holder for your stored procedure
Dim str As String
'Set the value of your placeholder variable
str = sp_loginvalidation

'Use the With statement, allows you to
'not have to type out the name of the object/control
'each time, like when have several properties
With cmd
'Set the CommandType (could be Text, StoredProcedure, Unknown)
.CommandType = CommandType.StoredProcedure
'Set the CommandText (this is the query to execute,
'in this case your stored procedure)
.CommandText = str
'Add your parameters
.Parameters.AddWithValue("@username",TextBox1.Text)
.Parameters.AddWithValue("@password", TextBox2.Text)
.Connection = conn
End With
'Open your connection
conn.Open
'Create an Integer value to hold the result of
'the ExecuteScalar of the SqlCommand Object
Dim valid As Integer = cmd.ExecuteScalar

'Check for a valid login. There shoould
'have been a single row returned if they used
'a valid username/password combination
If valid < 1 Then
'Invalid login
Else
'Valid login
End If

str="sp_loginvalidation"