-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
무엇이 오류입니까? –
코드 공유만으로 도움이되지 않는 문제에 대한 자세한 정보를 추가하십시오 –