im currently doing a client-server programming. however i ve got problem in updating the password.. the code below is the function i wrote to update the password.. but when i go back and check the database, the password is not updated.. could someone help me please??
Function UpdatePassword(ByVal oPwd As String, ByVal nPwd As String)
Dim row As DataRow
DbD_ALL1.Clear()
Me.OleDbUpdateCommand1.CommandText = "Update Login Set Password = " & nPwd & " Where Password = " & oPwd & ""
Me.DBA_Users1.UpdateCommand = Me.OleDbUpdateCommand1
DBA_Users1.Fill(DbD_ALL1, nPwd) password
For Each row In DbD_ALL1.Tables(0).Rows
row("Pasword") = nPwd
Next
MsgBox("Password Updated")
End Function
Function UpdatePassword(ByVal oPwd As String, ByVal nPwd As String)
Dim row As DataRow
DbD_ALL1.Clear()
Me.OleDbUpdateCommand1.CommandText = "Update Login Set Password = " & nPwd & " Where Password = " & oPwd & ""
Me.DBA_Users1.UpdateCommand = Me.OleDbUpdateCommand1
DBA_Users1.Fill(DbD_ALL1, nPwd) password
For Each row In DbD_ALL1.Tables(0).Rows
row("Pasword") = nPwd
Next
MsgBox("Password Updated")
End Function