[محمد العكيلي]

السلام عليكم ورحمة الله وبركاته ...

ماهو الخطأ في الكود التالي :

إقتباس :

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

وسأكون ممنونا لكم ...

[محمود اكرم]

اظن يا صديقي ان CourseID يجب ان لا تعمل عليها اي كود او كتابة وتحذف اي صندوق نص يتعلق بها في الفورم لان ملف قاعدة البيانات هو يختص بهذا العمل اي الترقيم التلقائي

[محمد العكيلي]

صديقي محمود لم اعمل اي كود عليه , وافهم ان قاعدة البيانات هي من تضيف هذه القيمة , لكني محتاجها في الشرط .

[alaqsa]

للرفع اخواني اتنمى المساعده فاني اقع في نفس المشكله

[kslawy]

كود :

[color=#333333][i]Dim cidx As Integer = Convert.ToInt32(Me.KryptonTextBox1.Text)[/i][/color]

[color=#333333][i]Dim update As New OleDb.OleDbCommand[/i][/color]
[color=#333333][i]update.Connection = Conn[/i][/color]

[color=#333333][i]update.CommandText = " UPDATE Table2 SET " & _[/i][/color]
[color=#333333][i]" IDi = @IDi " & _[/i][/color]
[color=#333333][i]" , CourseNamei = @CourseNamei " & _[/i][/color]
[color=#333333][i]" , DateOfCoursei = @DateOfCoursei " & _[/i][/color]
[color=#333333][i]" , detialsOfCoursei = @detialsOfCoursei " & _[/i][/color]
[color=#333333][i]" , ResultOfCoursei = @ResultOfCoursei " & _[/i][/color]
[color=#333333][i]" , DurationOfCoursei = @DurationOfCoursei " & _[/i][/color]
[b][color=#ff0000][i]" " & _[/i][/color][/b]
[color=#333333][i]" WHERE CourseID = " & cidx & " "[/i][/color]


[color=#333333][i]update.Parameters.AddWithValue("@IDi", Convert.ToInt32(idix))[/i][/color]
[color=#333333][i]update.Parameters.AddWithValue("@DateOfCoursei", Me.KryptonDateTimePicker1.Value.Date)[/i][/color]
[color=#333333][i]update.Parameters.AddWithValue("@CourseNamei", Me.KryptonTextBox2.Text)[/i][/color]
[color=#333333][i]update.Parameters.AddWithValue("@detialsOfCoursei" , Me.KryptonTextBox4.Text)[/i][/color]
[color=#333333][i]update.Parameters.AddWithValue("@ResultOfCoursei", Me.KryptonTextBox5.Text)[/i][/color]
[color=#333333][i]update.Parameters.AddWithValue("@DurationOfCoursei ", Me.KryptonTextBox6.Text)[/i][/color]

[color=#333333][i]Conn.Open()[/i][/color]
[color=#333333][i]DataSet1.Clear()[/i][/color]
[color=#333333][i]update.ExecuteNonQuery()[/i][/color]
[color=#333333][i]DataAdapter1.Fill(DataSet1, "Table2")[/i][/color]
[color=#333333][i]Conn.Close()[/i][/color]

المحدد بالأحمر لا توجد حوجة له أحذفه