منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

إقتباس :
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 يجب ان لا تعمل عليها اي كود او كتابة وتحذف اي صندوق نص يتعلق بها في الفورم لان ملف قاعدة البيانات هو يختص بهذا العمل اي الترقيم التلقائي

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

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

كود :
[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]

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد العكيلي

محمود اكرم

محمد العكيلي

alaqsa

kslawy