mehran5
شنبه 14 فروردین 1389, 02:07 صبح
سلام دوستان این ارور در کد زیر رخ داده .یعنی در قسمت 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()
میشه بگید مشکل کجاست؟
ممنون
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()
میشه بگید مشکل کجاست؟