تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اتمنى المساعدة في DataGridView vb.net2015
#1
الكود

كود :
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        For i As Integer = 0 To DataGridView1.Rows.Count - 1

            If i > DataGridView1.Rows.Count - 1 Then Exit For

            Dim sql As String =
            " INSERT INTO [Rent_Equipment] " &
            " (  Cus_ID,  Cus_Name,  Cus_Private_Number,  Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, @Ren_Date ) " &
            " VALUES " &
            " ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "

            Dim cmd As New OleDbCommand(sql, conn)


            cmd.Parameters.AddWithValue("@Equ_ID", DataGridView1.Rows(i).Cells(0).Value)
            cmd.Parameters.AddWithValue("@Equ_Name", DataGridView1.Rows(i).Cells(1).Value)
            cmd.Parameters.AddWithValue("@Equ_Quantity", DataGridView1.Rows(i).Cells(2).Value)

            cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text)
            cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
            cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
            cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text)
            cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.Date)

            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()

            MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

            i += 1
        Next i

مكان الخطا             cmd.ExecuteNonQuery()
الخطا يقول 
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll


Additional information: The INSERT INTO statement contains the following unknown field name: '@Ren_Date'.  Make sure you have typed the name correctly, and try the operation again.

ما الحل يا اخواني ؟؟
الرد }}}
تم الشكر بواسطة:
#2
سلام

بيقول ان لا يوجد عمود بالاسم Ren_Date@ لو تلاحظ سطر اسماء الاعمده اللي قبل VALUES احذف علامه @ وليس بسطر البارامترات

ركز فيها تلاقيك وضعت علامه البارامتر مكان اسم العمود
[URL="http://www.up-00.com/"][/URL]

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم

من جديد رجعت لكم وشكرا لك على مجهودك الرائع معي ولكن الخطأ نفسه وتغير نوع الخطأ
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: Data type mismatch in criteria expression.

ومكان الخطأ
cmd.ExecuteNonQuery()

فهل هناك شيء جديد اضيفه او احذفه ارجو ان تتأكد لي من الكود بالكامل لو سمحت
الرد }}}
تم الشكر بواسطة:
#4
سلام

باقي غليك ترتيب اسطر البارامترات متطابقه للترتيب في حملت اسكيوال
كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()

For Each row As DataGridViewRow In DataGridView1.Rows

Dim sql As String =
" INSERT INTO [Rent_Equipment] " &
" (  Cus_ID,  Cus_Name,  Cus_Private_Number,  Equ_ID,  Equ_Name,  Equ_Quantity,  Equ_Price,  Ren_Date ) " &
" VALUES " &
" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value)
cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value)
cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value)
cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text)
cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.Date)

cmd.ExecuteNonQuery()

End Using

Next

conn.Close()
End Using

MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#5
الكود تبعك يوجد به مشكلة بعد والمشكلة تقول ان :
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

Additional information: The INSERT INTO statement contains the following unknown field name: ' Cus_ID'. Make sure you have typed the name correctly, and try the operation again.

هذا هو مكان الخطأ
cmd.ExecuteNonQuery()

الكود التي قمت بإضافته

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()

For Each row As DataGridViewRow In DataGridView1.Rows

Dim sql As String =
" INSERT INTO [Rent_Equipment] " &
" ( Cus_ID, Cus_Name, Cus_Private_Number, Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date ) " &
" VALUES " &
" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "
Using cmd As New OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)
cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)
cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value)
cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value)
cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value)
cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text)
cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.Date)

cmd.ExecuteNonQuery()

End Using

Next

conn.Close()
End Using

MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)
الرد }}}
تم الشكر بواسطة:
#6
سلام

تاكد من اسم العمود Cus_ID في الجدول Rent_Equipment وبالمره راجع بفيه اسما الاعمده
ولاجظ اذا يوجد عمود ترقيم تلقائي فما فيه داعي تضعه في جمله اسكيوال

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#7
راجعت جميع الاكواد ومثل الشيء الخطأ

فهل من مغيث ؟؟
الرد }}}
تم الشكر بواسطة:
#8
سلام

هل عملت مثل ما خبرتك في ردي الاخير من مراجعه اسم الاعمده في قاعدت البيانات
اذا استمرت المشكله ضع مشروعك لنشوف

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#9
هذا هو مشروعي واتمنى ان ترفق معاه الشرح مصور حق استوعب الخطأ الى مشيت عليه
ولو تكرمت ارفق لي بريدك الالكتروني حق اتواصل معاك مباشرة او رقم هاتفك الواتس اب
رابط التحميل

http://adf.ly/1L6Dp8

وشكرا لك اخي الفاضل
الرد }}}
تم الشكر بواسطة:
#10
سلام

اتضحت المشكله في المسافات المشوهه

اوضح اكثر احيانا عند النسخ كود من اي صفحه من المتصفح تتغير رموز بعض الاحرف
وغالبا تكون المسافه فتشاهد مسافه مشوهه يعتي شكلها مسافه ولكنها رمز شبيه بالمسافه
شرح هذع المشكله قراته في احد المنتدات

فكل اللي انا عملته خذفت المسافات في جملت sql واعدت كتابتها واختفت المشكله

كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
    conn.Open()

    For Each row As DataGridViewRow In DataGridView1.Rows

        If row.Cells(0).Value Is Nothing Then Exit For

Dim sql As String =
" INSERT INTO [Rent_Equipment] " &
" ( Cus_ID, Cus_Name, Cus_Private_Number, Equ_ID, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date ) " &
" VALUES " &
" ( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Equ_ID, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date ) "
        Using cmd As New OleDbCommand(sql, conn)
            cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text.ToString)
            cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)
            cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)
            cmd.Parameters.AddWithValue("@Equ_ID", row.Cells(0).Value.ToString)
            cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(1).Value.ToString)
            cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(2).Value.ToString)
            cmd.Parameters.AddWithValue("@Equ_Price", TextBox4.Text.ToString)
            cmd.Parameters.AddWithValue("@Ren_Date", DateTimePicker1.Value.ToString)

            cmd.ExecuteNonQuery()

        End Using

    Next

    conn.Close()
End Using

وضعت شرط خروج من الحلقه اذا وصل للسطر الاخير الفارغ

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  مشكلة في datagridview Adata 4 310 17-01-24, 03:00 PM
آخر رد: aljzazy
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 2 5,102 24-12-23, 05:08 AM
آخر رد: laban
  [نقاش] أساتذتنا مشرفى المنتدى المساعدة و الدعم فى Telerik dr.programming 6 381 21-12-23, 12:29 AM
آخر رد: dr.programming
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
Question [VB.NET] اسم عمود الأرقام في DataGridView أبو خالد الشكري 6 606 03-12-23, 08:01 AM
آخر رد: أبو خالد الشكري

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


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