مشکل در Data type mismatch in criteria expression.

[mehran5]

سلام دوستان این ارور در کد زیر رخ داده .یعنی در قسمت command3.ExecuteNonQuery


ممنون


Dim strupdate AsString
strupdate = "Provider = Microsoft.Jet.OLEDB.4.0;"
strupdate &= "Data Source =" & My.Application.Info.DirectoryPath & "\msAccess\anbar.mdb"
conn = New OleDbConnection(strupdate)
'Try
Dim command3 As OleDbCommand = New OleDbCommand("UPDATE koleamval SET NAMEEAMVAL_ID=@NAMEEAMVAL_ID,AMIN_ID=@AMIN_ID,TEDA D=@TEDAD,SERYAL=@SERYAL,MOLAHEZAT=@MOLAHEZAT where ID='" + TXT_number.Text + "'", conn)
conn.Open()
command3.Parameters.Add("@NAMEEAMVAL_ID", OleDbType.Integer).Value = CBO_NAMEEAMVAL_ID.SelectedValue
command3.Parameters.Add("@AMIN_ID", OleDbType.Integer).Value = CBO_AMIN_ID.SelectedValue
command3.Parameters.Add("@TEDAD", OleDbType.Integer).Value = TXT_TEDAD.Text.Trim
command3.Parameters.Add("@SERYAL", OleDbType.Char).Value = TXT_SERYAL.Text.Trim
command3.Parameters.Add("@MOLAHEZAT", OleDbType.Char).Value = TXT_MOLAHEZAT.Text.Trim
command3.ExecuteNonQuery()

میشه بگید مشکل کجاست؟

[alireza_s_84]

سلام دوستان این ارور در کد زیر رخ داده .یعنی در قسمت command3.ExecuteNonQuery


ممنون


Dim strupdate AsString
strupdate = "Provider = Microsoft.Jet.OLEDB.4.0;"
strupdate &= "Data Source =" & My.Application.Info.DirectoryPath & "\msAccess\anbar.mdb"
conn = New OleDbConnection(strupdate)
'Try
Dim command3 As OleDbCommand = New OleDbCommand("UPDATE koleamval SET NAMEEAMVAL_ID=@NAMEEAMVAL_ID,AMIN_ID=@AMIN_ID,TEDA D=@TEDAD,SERYAL=@SERYAL,MOLAHEZAT=@MOLAHEZAT where ID='" + TXT_number.Text + "'", conn)
conn.Open()
command3.Parameters.Add("@NAMEEAMVAL_ID", OleDbType.Integer).Value = CBO_NAMEEAMVAL_ID.SelectedValue
command3.Parameters.Add("@AMIN_ID", OleDbType.Integer).Value = CBO_AMIN_ID.SelectedValue
command3.Parameters.Add("@TEDAD", OleDbType.Integer).Value = TXT_TEDAD.Text.Trim
command3.Parameters.Add("@SERYAL", OleDbType.Char).Value = TXT_SERYAL.Text.Trim
command3.Parameters.Add("@MOLAHEZAT", OleDbType.Char).Value = TXT_MOLAHEZAT.Text.Trim
command3.ExecuteNonQuery()

میشه بگید مشکل کجاست؟

سلام یعنی Syntax رشته پرس و جو ایراد داره اینجوری تعریف کن:


UPDATE Users SET Users.Email = [@Email], Users.Fname = [@Fname], Users.Lname = [@Lname], Users.City = [@City], Users.Address = [@Address], Users.Phone = [@Phone], Users.WebSite = [@WebSite], Users.Job = [@Job]
WHERE (((Users.Username)=[@Username]));

پارامترها رو که خودت درست تعریف کردی ولی :

where ID='" + TXT_number.Text + "'",
رو هم پارامتری کن اینجوری ایراد فنی زیاد داره یکیش SQl Ejection .
موفق باشی

[mehran5]

مشکل تو خط ششم بود که به شکل ذیر اصلاح کردمش؟و درست شد .بازم ممنون


conn = New OleDbConnection(strconn)
Dim strupdate AsString
strupdate = "UPDATE koleamval SET NAMEEAMVAL_ID=@NAMEEAMVAL_ID,AMIN_ID=@AMIN_ID,TEDA D=@TEDAD,SERYAL=@SERYAL,MOLAHEZAT=@MOLAHEZAT where ID="
strupdate = strupdate & Val(TXT_number.Text.Trim)
Dim command3 As OleDbCommand = New OleDbCommand(strupdate, conn)