تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ ... احتاج الى مساعدة ...
#1
السلام عليكم ورحمة الله وبركاته ...

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

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

وسأكون ممنونا لكم ...
الرد }}}
تم الشكر بواسطة:
#2
اظن يا صديقي ان CourseID يجب ان لا تعمل عليها اي كود او كتابة وتحذف اي صندوق نص يتعلق بها في الفورم لان ملف قاعدة البيانات هو يختص بهذا العمل اي الترقيم التلقائي
الرد }}}
تم الشكر بواسطة:
#3
صديقي محمود لم اعمل اي كود عليه , وافهم ان قاعدة البيانات هي من تضيف هذه القيمة , لكني محتاجها في الشرط .
الرد }}}
تم الشكر بواسطة:
#4
للرفع اخواني اتنمى المساعده فاني اقع في نفس المشكله
الرد }}}
تم الشكر بواسطة:
#5
كود :
[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]

المحدد بالأحمر لا توجد حوجة له أحذفه
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 220 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 273 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم