2014-12-15 4 views
-3
Imports System.Data 
Imports System.Data.OleDb 
Public Class frmChangePassword 
    Public dbrs As New OleDb.OleDbCommand 
    Public Provider As New OleDb.OleDbDataAdapter 
    Public dbConn As New OleDb.OleDbConnection 

    Private Sub frmChangePassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 


    End Sub 

    Private Sub btnChangePassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChangePassword.Click 

     Using cn As New OleDbConnection("PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source = login.mdb"), _ 
     cmd As New OleDbCommand("UPDATE LogInAdmin SET Password= ? WHERE Username= ? ;", cn) 
      cmd.Parameters.AddWithValue("?", txtNewPassword.Text) 
      cmd.Parameters.AddWithValue("?", txtUsername.Text) 
      cn.Open() 
      cmd.ExecuteNonQuery() 
      MsgBox("Changed") 
      cn.Close() 
     End Using 
    End Sub 
End Class 
+2

무엇이 오류입니까? –

+0

코드 공유만으로 도움이되지 않는 문제에 대한 자세한 정보를 추가하십시오 –

답변

1

단어 PASSWORD는 MS-액세스/JET에 대한 예약 된 키워드가 내 데이터베이스 VB되어 업데이트, 당신은 그러나

cmd As New OleDbCommand("UPDATE LogInAdmin SET [Password]= ? WHERE Username= ? ;", cn) 

대괄호를 사용해야합니다, 사용하는 나쁜 생각 이 reserved keywords가 여전히 가능하면 해당 필드 이름을 변경하고 일반 텍스트 대신 hash of the password을 저장하는 방법을 배우는 것이 좋습니다.

+0

감사합니다., 현재 작동 중입니다. D – Tolits