16-05-13, 10:09 PM
السلام عليكم ورحمة الله وبركاته ...
ماهو الخطأ في الكود التالي :
الخطأ الي يطلعلي هو ::
CourseID = auto number
IDi = number
وسأكون ممنونا لكم ...
ماهو الخطأ في الكود التالي :
إقتباس :Dim cidx As Integer = Convert.ToInt32(Me.KryptonTextBox1.Text)
Dim update As New OleDb.OleDbCommand
update.Connection = Conn
update.CommandText = " UPDATE Table2 SET " & _
" IDi = @IDi " & _
" , CourseNamei = @CourseNamei " & _
" , DateOfCoursei = @DateOfCoursei " & _
" , detialsOfCoursei = @detialsOfCoursei " & _
" , ResultOfCoursei = @ResultOfCoursei " & _
" , DurationOfCoursei = @DurationOfCoursei " & _
" " & _
" WHERE CourseID = " & cidx & " "
update.Parameters.AddWithValue("@IDi", Convert.ToInt32(idix))
update.Parameters.AddWithValue("@DateOfCoursei", Me.KryptonDateTimePicker1.Value.Date)
update.Parameters.AddWithValue("@CourseNamei", Me.KryptonTextBox2.Text)
update.Parameters.AddWithValue("@detialsOfCoursei", Me.KryptonTextBox4.Text)
update.Parameters.AddWithValue("@ResultOfCoursei", Me.KryptonTextBox5.Text)
update.Parameters.AddWithValue("@DurationOfCoursei", Me.KryptonTextBox6.Text)
Conn.Open()
DataSet1.Clear()
update.ExecuteNonQuery()
DataAdapter1.Fill(DataSet1, "Table2")
Conn.Close()
الخطأ الي يطلعلي هو ::
CourseID = auto number
IDi = number
إقتباس :Data type mismatch in criteria expression
وسأكون ممنونا لكم ...