منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ ... احتاج الى مساعدة ... - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ ... احتاج الى مساعدة ... (/showthread.php?tid=8913)

خطأ ... احتاج الى مساعدة ... - محمد العكيلي - 16-05-13

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

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

إقتباس :
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

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

خطأ ... احتاج الى مساعدة ... - محمود اكرم - 16-05-13

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

خطأ ... احتاج الى مساعدة ... - محمد العكيلي - 17-05-13

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

خطأ ... احتاج الى مساعدة ... - alaqsa - 27-06-13

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

خطأ ... احتاج الى مساعدة ... - kslawy - 27-06-13

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

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