Saiph0902
Member
- Joined
- Aug 8, 2011
- Messages
- 7
- Programming Experience
- Beginner
VB.NET:
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbCommand
Public Class frmChangePassword
Public cn As New OleDbConnection
Public cmd As New OleDbCommand
Public da As New OleDbDataAdapter
Public str As String
Public dlgRes As DialogResult
Private Sub btnOkay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkay.Click
Try
cmd.Connection = cn
cmd.CommandText = "UPDATE Employees SET Password ='" & txtNewPassword.Text & "'" & _
"SecretQuestion1 ='" & cmbNewSecretQ.Text & ", SecretAnswer1 ='" & txtNewSecretA.Text & "'" & _
"WHERE Username='" & frmForgotPassword.txtUsername.Text & "'"
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show("Unable to change password due to " & ex.Message, "Changing password")
End Try
End Sub
Private Sub frmChangePassword_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= C:\Documents and Settings\James\My Documents\MSN Pharmacy\msn_pharmacy.mdb"
cn.Open()
End Sub
End Class
I get a Syntax Error on UPDATE Statement