akavehb
دوشنبه 13 آبان 1392, 14:52 عصر
با سلام خدمت تمام اساتید محترم
در صورت امکان این کد رو بررسی کنید و اشکالش رو برای من توضیح بدید. من نمونه این کد رو در چند قسمت از برنامه نوشتم و همگی درست کار میکنند ولی کد زیر در فرم Change Password کار نمیکنه و Error میده
لطفاً کمک کنید.
Dim cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Piping IWCS.accdb"
Dim con As New OleDbConnection(cs)
Dim cmd As New OleDbCommand
With cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "UPDATE T_UP SET PassWord='123' WHERE UserName='A.Kaveh'"
If .Connection.State <> ConnectionState.Open Then .Connection.Open()
.ExecuteNonQuery()
con.Close()
End With
در صورت امکان این کد رو بررسی کنید و اشکالش رو برای من توضیح بدید. من نمونه این کد رو در چند قسمت از برنامه نوشتم و همگی درست کار میکنند ولی کد زیر در فرم Change Password کار نمیکنه و Error میده
لطفاً کمک کنید.
Dim cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Piping IWCS.accdb"
Dim con As New OleDbConnection(cs)
Dim cmd As New OleDbCommand
With cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "UPDATE T_UP SET PassWord='123' WHERE UserName='A.Kaveh'"
If .Connection.State <> ConnectionState.Open Then .Connection.Open()
.ExecuteNonQuery()
con.Close()
End With