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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 161 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  مساعدة فى xml Mohamed20 2 64 02-02-17, 05:40 PM
آخر رد: Mohamed20
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 178 24-01-17, 08:32 PM
آخر رد: gmailali
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 84 23-01-17, 01:49 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 65 22-01-17, 06:02 PM
آخر رد: CoderMM
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 9 209 21-01-17, 04:35 PM
آخر رد: abudawoodd
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 165 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra
  [VB.NET] مساعدة حول تحيديث بينات جدول من جدول آخر kassa djeffal 1 73 19-01-17, 09:16 PM
آخر رد: ahmed.nabil
  [VB.NET] مساعدة لنشر موقعي safa 1 72 18-01-17, 11:11 AM
آخر رد: أبو عمر
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 153 15-01-17, 11:48 PM
آخر رد: Mohamed20

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


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