تقييم الموضوع :
  • 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]

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 52 منذ 6 ساعة مضت
آخر رد: alsouf
  مساعدة safalo 3 41 أمس, 03:46 PM
آخر رد: أبو نوره
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 323 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  [نقاش] مساعدة من حضراتكم salma.eg 1 48 15-09-17, 09:45 PM
آخر رد: أبو نوره
  [VB.NET] محتاج مساعدة من فضلكم asadtaif 2 79 15-09-17, 01:01 PM
آخر رد: asadtaif
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 1 74 12-09-17, 02:05 AM
آخر رد: hglogtd
  [VB.NET] مساعدة التكست بوكس محمد بوقزاحة 3 69 10-09-17, 03:31 AM
آخر رد: Rabeea Qbaha
  [VB.NET] مساعدة في Card Reader 0theghost0 2 105 09-09-17, 05:25 PM
آخر رد: ola
  مساعدة في كود البحث أبووسم 9 224 08-09-17, 09:44 PM
آخر رد: أبووسم
  [VB.NET] طلب مساعدة في جلب بيانات dubai.eig 1 107 06-09-17, 02:03 AM
آخر رد: سعود

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


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