Code: Select all
' Insert page code here
'
Function updateUserPass(ByVal username As String, ByVal password As String) As Integer
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Documents an"& _
"d Settings\me\Desktop\database assignment 2\Project\members.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "UPDATE [members] SET [password]=@password WHERE ([members].[username] = @username"& _
")"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_username As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_username.ParameterName = "@username"
dbParam_username.Value = username
dbParam_username.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_username)
Dim dbParam_password As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_password.ParameterName = "@password"
dbParam_password.Value = password
dbParam_password.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_password)
Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close
End Try
Return rowsAffected
End Function
Sub btnUpdate_Click(sender As Object, e As EventArgs)
lblUsernameError.Text = ""
lblPasswordLengthError.Text = ""
lblNewPasswordError.Text = ""
Dim hashMethod as string
hashMethod = "MD5"
Dim encryptPassword as string
encryptPassword = FormsAuthentication.HashPasswordForStoringInConfigFile(txtNewPassword.Text, hashMethod)
If txtNewPassword.Text.Length < 7 then
lblPasswordLengthError.Text = "* Your password is not secure, please ensure it is 7 characters or more"
Else if txtNewPassword.Text <> txtVerifyNewPassword.Text Then
lblNewPasswordError.Text = "* Verify password must match password"
Else if updateUserPass(txtUsername.Text, encryptPassword) = 0 Then
lblUsernameError.Text = "* Your username does not appear to exist"
Else
updateUserPass(txtUsername.Text, encryptPassword)
End
End Sub
I have constructed the above code using Web Matrix to perform a simple update function. However, for some reason I get the error message that the username doesnt exsist eventhough it does. Can anyone see where Im going wrong with it?